[acyxou]

Пишу небольшую программку... Предполагается что работать будет только в пространстве листа.
Зашел в тупик на функции получения объектов, изображенных в видовом экране листа.
Полагаю, должно быть что-то в этом роде:

Код:

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

(defun GetVportObjects (/ ss1 pt1 pt2)

  (setq vport (vlax-ename->vla-object (car (entsel))))
  (setq pt1 (car (GetVportCords vport)))
  (setq pt2 (cadr (GetVportCords vport)))

  (setq ss1 (ssget "_W" pt1 pt2 (list (cons 2 "ИМЯ_БЛОКА"))))

  )

(defun GetVportCords    (obj / center xOfset yOfset)
  (setq    center (vlax-get obj 'Center)
    xOfset (/ (vla-get-width obj) 2.0)
    yOfset (/ (vla-get-height obj) 2.0)
    )
  (list
    (trans (list (- (car center) xOfset) (- (cadr center) yOfset)) 3 2)
    (trans (list (+ (car center) xOfset) (+ (cadr center) yOfset)) 3 2)
    )
  )

Но не удивительно, что ss1 возвращает nil т.к. выбор объектов производится в пространстве листа, а не модели. Отсюда и вопрос: как из пространства листа добраться до вхождения блока с именем "ИМЯ_БЛОКА", находящимся в пространстве модели не переключаясь предварительно в пространство модели. Есстественно что блок нужен только тот, что попадает в рамку полученную точками pt1 и pt2.

[Дима_]

если кратко - то геморно - смотреть на видовой экран, получить координаты отображеня с учетом возможного поворота - выбрать их в модели (с учетом новой плоскости), тем паче что видовые экраны еще и друг на друга залезать могут; вариант попроще - принидутельно перед выбором включать (активизировать) видовой экран.