Подскажите, пожалуйста, что делать.
У меня почему-то функция VPAdjust (см. 20-ой пост) вылетает на строчке:
ThisDrawing.MSpace = True
почему это может быть?...
Более подробно, дело обстоит так. Я создаю вьюпорт через SendCommand, потом нужно присвоить ему Target. Если присвоить Target вьюпорту, созданному программно
Dim oldVP As AcadPViewport
Set oldVP = ThisDrawing.PaperSpace.AddPViewport(pt_center, width, height)
oldVP.Target = Tg
, то всё хорошо. Координаты Tg - на ModelSpase.
Если создавать PViewPort с помощью SedCommand, то получается, что PViewPort смотрит на некоторую непонятную мне точку, а координаты его Target-a в Debuger-e показвыаются (0,0,0).
Почему-то с присвоением CustomScale проблем не возникло, а Target ну никак победить не могу... Надеюсь на вашу помощь.