[Apelsinov]

Уважаемые, подскажите,
как для VLA-OBJECT IAcadPViewport задать координату "дырки" в модель?

[Apelsinov]

Эх, никто, так ничего и не подсказал....абидна.. :cry:

Вышел из положения через Ж..., уж как смог:

Код:

[Выделить все]

;;;Задание дырке в ВЭ окна по двум углам модели
;;;Apelsinov
;;;16.05.05
;;;Арг:
;;;new_vport - pvport для кот. задается
;;;point_1 - 1-й угол окна
;;;point_2 - 2-й угол окна
(defun APEL-VPORT-ZOOM_WINDOW
       (new_vport point_1 point_2 / svar_CMDECHO)
   (vla-put-mspace (APEL-ACTIVE_DOCUMENT) :vlax-true)
  (vla-put-ActivePViewport (APEL-ACTIVE_DOCUMENT) new_vport)
  (setq svar_CMDECHO (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (vl-cmdf "_.ZOOM" "_W" point_1 point_2)
  (setvar "CMDECHO" svar_CMDECHO)
  (vla-put-mspace (APEL-ACTIVE_DOCUMENT) :vlax-false)
)

однако вот глюк, при очень малом размере vport отн. самого листа
выражение

Код:

[Выделить все]

 (vla-put-mspace (APEL-ACTIVE_DOCUMENT) :vlax-true)

выдает ошибку "error: Automation Error. There is no active modelspace viewport. Switching to paperspace"

Проверка

Код:

[Выделить все]

 (vlax-property-available-p (APEL-ACTIVE_DOCUMENT) 'mspace T)

Ничего не дает , то есть T.

Как отловить это дело?