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

Тема: при переключении на новый layout ACAD запрашивает тип принтера. как убрать это сообщение

Set Layouts = ThisDrawing.Layouts
          i = 0
         For Each Layout In Layouts
           Set name_lay(i) = Layout
           i = i + 1
         Next
Здесь список Layout файла
При выполнеии команды (переключение на нужный layout)
ThisDrawing.ActiveLayout = name_lay(i)
ACAD выдает сообщение, о подключении принтера для этого layout. В ACAD можно нажать Esc, А как это сделать из проги на VBA
ThisDrawing.SendCommand Chr(27) это не предлагать. т.к макрос VBA останавливается на команде  ThisDrawing.ActiveLayout = name_lay(i) и ждет действий от пользователя.
Как быть.

  • Maxim T
  • Восстановленный участник
  • На форуме с 1 августа 2003г.
  • Сообщений: 628
  • Спасибо: 0

Re: при переключении на новый layout ACAD запрашивает тип принтера. как убрать это сообщение

Предварительно назначить принтер, при этом не делая лейаут активным. Но как "назначить принтер", я не знаю, могу показать только, как получить их список (для первого лейаута, для определённости):

Sub a()
    Dim Layout As AcadLayout
    Set Layout = ThisDrawing.Layouts.Item(1)
    Layout.RefreshPlotDeviceInfo
    Dim plotDevices As Variant
    plotDevices = Layout.GetPlotDeviceNames()
    Dim x As Integer
    For x = LBound(plotDevices) To UBound(plotDevices)
        MsgBox plotDevices(x)
    Next
End Sub