[Ax3]

Всем привет и успехов в работе, уважаемые коллеги!
Такая проблема. Надо программно раздербанить пространство модели на несколько видовых портов. С помощью (vl-cmdf "_vports" <...>) требуемую конфигурацию получить не удается. Подскажите, какие команды или функции лиспа можно использовать для работы с vport`ами?

[Makswell]

Можно например так:

Код:

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

^C^C(vl-cmdf "_.vports" "3" "")

[Ax3]

Ну а если надо четыре маленьких впорта разместить слева от основного чертежа?

[Alaspher]

Сообщение от Ax3 Ну а если надо четыре маленьких впорта разместить слева от основного чертежа?

Что-нибудь в таком духе:

Код:

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

(defun demo (/ adoc base lat lats lnam papr)
    (setq adoc (vla-get-activedocument (vlax-get-acad-object))
          lats (vla-get-layouts adoc)
          papr (vla-get-paperspace adoc)
          lnam "MyTestLayout"
    )
    (if (vl-catch-all-error-p
            (setq lat (vl-catch-all-apply (function vla-item) (list lats lnam)))
        )
        (setq lat (vla-add lats lnam))
    )
    (vla-put-activelayout adoc lat)
    (vla-put-activespace adoc acpaperspace)
    (setq base (getpoint "\nУкажи левый нижний угол: "))
    (vla-addpviewport papr (vlax-3d-point (polar (polar base 0 150) (/ pi 2) 100)) 300 200)
    (vla-addpviewport papr (vlax-3d-point (polar (polar base 0 400) (/ pi 2) 100)) 200 200)
    (vla-addpviewport papr (vlax-3d-point (polar (polar base 0 250) (/ pi 2) 300)) 500 200)
    (princ)
)

[Ax3]

Alaspher, rulezz! Я подозревал, что activeX надо копнуть. Спасибо!

[dextron3]

Alaspher а макрос запуска какой твоего лиспа

что то командой demo не запускается

[VVA]

>dextron3
Читай здесь

[dextron3]

(defun c:demo (/ adoc base lat lats lnam papr)

вот подправил, теперь работает

[Ax3]

А в modelspace не прокатывает такой способ. Разве в modelspace нельзя создавать произвольные впорты?
ЗЫ. Блин, вообще метод addpviewport не применим к пространству модели! Вот засада...

[Alaspher]

Сообщение от Ax3 А в modelspace не прокатывает такой способ. Разве в modelspace нельзя создавать произвольные впорты? ЗЫ. Блин, вообще метод addpviewport не применим к пространству модели! Вот засада...

Естественно! В модели видовые экраны не плавающие. Это совсем другой объект viewport и работа с ним строится принципиально иначе. Попробуй отдампить объект полученный через - (vla-get-ActiveViewport (vla-get-activedocument (vlax-get-acad-object))) и посмотреть его свойства и методы.

[Ax3]

угу, понял...