• Garrick
  • Восстановленный участник
  • На форуме с 26 июля 2005г.
  • Сообщений: 17
  • Спасибо: 0

Тема: Как распечатать все Layout'ы?

Необходимо распечатать все Layout'ы всех открытых файлов
У меня выводится несколько раз один и тот же (вероятно, активный) Layout.
For Each AcadDocument In ThisDrawing.Application.Documents
AcadDocument.Activate
For Each Layout In ThisDrawing.Layouts
ThisDrawing.Plot.PlotToDevice
Next Layout
Next AcadDocument
Как сделать правильно?

  • Sliver
  • Восстановленный участник
  • На форуме с 27 февраля 2005г.
  • Сообщений: 38
  • Спасибо: 0

Re: Как распечатать все Layout'ы?

У меня в каждом Layout'e куча чертежей. Например раздел стены - в одном Layot'e, а перекрытие в другом. Я для их вывода в файл использую свою же программку  AutoPrint http://lithium80.narod.ru
Позволяет без тормозов при переключении в layout распечатать хоть все чертежи в файле. Только эти чертежи должны быть сохранены под специальным именем (см.help) в Page Name Setup, содержащим и имя layouta и др. необходимую инфу, как имя принтера, номер листа.

  • Родион
  • Восстановленный участник
  • На форуме с 30 ноября 2005г.
  • Сообщений: 1
  • Спасибо: 0

Re: Как распечатать все Layout'ы?

Все правильно, токо сделай так
For Each AcadDocument In ThisDrawing.Application.Documents
AcadDocument.Activate
' если хочешь в начале запомни здесь
'activelayout в какую либо переменную
For Each Layout In ThisDrawing.Layouts
'добавь сюда
ThisDrawing.ActiveLayout=Layout
ThisDrawing.Plot.PlotToDevice
Next Layout
Next AcadDocument