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

Тема: Переход в пространство модели на листе, возникает ошибка

Возникает execution error , а Err.number = 0
такие строки:

With ParcelDrawingDoc
        .ActivePViewport.Display True
        .MSpace = True 'после выполнения этой строки возникает
End With

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

Re: Переход в пространство модели на листе, возникает ошибка

Dim Layout As AcadLayout
'''''''''''''' бла бла бла '''''''''''''''''''''''''''''
ThisDrawing.ActiveLayout = Layout
ThisDrawing.MSpace = True
' делаем дела в лейауте
' и переходим в модел спейс
ThisDrawing.ActiveSpace = acModelSpace

У меня такое работает. Может неправильно. Не знаю.