• CompKiller
  • Восстановленный участник
  • На форуме с 28 марта 2007г.
  • Сообщений: 2
  • Спасибо: 0

Тема: Печать чертежа AutoCAD из Delphi

Здрасте фсем. Подскажите пожалуйста, как распечатать программно из автокада чертеж с помощью рамки, с расстановкой всех параметов: масштаб, лист (альбом, книга), принтер, формат листа.
Заранее спасиба!

  • CompKiller
  • Восстановленный участник
  • На форуме с 28 марта 2007г.
  • Сообщений: 2
  • Спасибо: 0

Re: Печать чертежа AutoCAD из Delphi

У меня в ряд выстроены листы. Нужно распечатать их от листа номер К до листа I.
Научился выделять рамкой. Но программа почему-то не повторяет цикл. Распечатывает один чертеж К и всё! Почему? Тааааак! Уже голова дымится!!!! Все перепробовал!
BeginPoint:=VarArrayCreate([0,1],varDouble);
EndPoint:=VarArrayCreate([0,1],varDouble);
  For j:=k to i do
    begin
      BeginPoint[0]:=j*21-21;  // координата X
      BeginPoint[1]:=0;  // координата Y
      EndPoint[0]:=j*21;  // координата X
      EndPoint[1]:=29.7;  // координата Y
AutoCAD.ActiveDocument.ActiveLayout.SetWindowToPlot(BeginPoint,EndPoint);
AutoCAD.ActiveDocument.Plot.PlotToDevice(ComboBox1.Text);
    end;

  • Ptica_Oz
  • Восстановленный участник
  • На форуме с 19 декабря 2006г.
  • Сообщений: 12
  • Спасибо: 0

Re: Печать чертежа AutoCAD из Delphi

первое, что приходит в голову: проверь значение i

  • Юля
  • Восстановленный участник
  • На форуме с 23 декабря 2002г.
  • Сообщений: 37
  • Спасибо: 0

Re: Печать чертежа AutoCAD из Delphi

Я бы посоветовала добавить координату Z.
Где-то читала,  что надо всегда задавать все три координаты