Тема от rustam (изменено: Rustam Ubaidullaev, 5 декабря 2010г. 11:55:39)

  • На форуме с 6 мая 2007г.
  • Сообщений: 12
  • Спасибо: 0

Тема: Печать в PDF. Можноли через VBA передать при печати в PDF свойство Drawing orietation

Уважаемые коллеги. При печати нескольких черетежей, размещенных в Model space, не удается передать свойство Drawing orientation из меню Plot. Как положено настроил pc3-файлы, использую метод PlotToDevice. Если все чертежи альбомного формата, или все книжного, нет проблем - перед печатью вручную устанавливаю ориентацию, далее вручну сохраняю настройки Layout (Apply to Layout) и запускаю печать нескольких чертежей одной ориентации, например A3-hor. Настроить окно печати, центрировать, масштабировать, выбрать нужный pc3 файл - все это не составляет труда, изменяя свойства объекта класса AcadLayout, а вот как передать ориентацию, чтобы в цикле печатать и кнжные и альбомные чертежи? (свойство PlotRotation просто поворачивает рисунок) Cпасибо.

  • На форуме с 2 сентября 2008г.
  • Сообщений: 47
  • Спасибо: 1

Re: Печать в PDF. Можноли через VBA передать при печати в PDF свойство Drawing orietation

'x1,y1 - left bootom corner's coordinates
'x2,y2 - right top corner's coordinates

if x2-x1<y2-y1 then
      ThisDrawing.ActiveLayout.PlotRotation = AcPlotOrientation.acPlotOrientationLandscape
else
      ThisDrawing.ActiveLayout.PlotRotation = AcPlotOrientation.acPlotOrientationPortrait
End if