[Sege]

Нужно определить чтобы точка выноска MULTILEADER находится на блоке (для дальнейшего вытаскивания значения тега блока в текст мультивыноски)

использую vla-GetBoundingBox:

Код:

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

 
(vla-GetBoundingBox obj 'minp 'maxp) ; obj - текущий блок VLA
(setq pt1 (vlax-safearray->list minp))
(setq pt2 (vlax-safearray->list maxp))
(setq mlead_k (ssget "_C" pt1 pt2 '((0 . "MULTILEADER"))))

Все четко работает, пока случайно мультивыноска не пересекает атрибут соседнего блока (все атрибуты - видимые). Т.е. получается что vla-GetBoundingBox дает габаратный контейнер с учетом видимых атрибутов.
Есть вариант не учитывает атрибуты блока в vla-GetBoundingBox?

Или есть какой-нибудь иной вариант определить что выноска (точка) MULTILEADER находится на блоке?

[koMon]

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

[Sege]

Сообщение от koMon не совсем понятно, что нужно, но как вариант взять корневую точку мвыноски и проверить находится ли она в описывающем прямоугольнике блока.

а корневая точка - это какой dfx код?
И как проверить что указанная точка входит в габаритный контейнер? временно создать точку и ssget определить?

[koMon]

110 MLeader Plane Origin Point
соррян, 10 после (304 . "LEADER_LINE{")

описывающий прямоугольник - ОП
корневая точка мвыноски - КТ

если КТ внутри ОП, тогда дб t

(and
(<= xmin_оп x_кт xmax_оп)
(<= ymin_оп у_кт ymax_кт)
)

[Nike]

Сообщение от Sege Все четко работает, пока случайно мультивыноска не пересекает атрибут соседнего блока (все атрибуты - видимые)

Если атрибуты находятся в своём отдельном слое - выключить его перед этим самым - таким образом мультивыноска соседние блоки не зацепит..
Так я выбираю блоки, лежащие на полилинии и отсеиваю соседние блоки с налезающими на неё атрибутами.

[Sege]

Сообщение от Nike Если атрибуты находятся в своём отдельном слое - выключить его перед этим самым - таким образом мультивыноска соседние блоки не зацепит.. Так я выбираю блоки, лежащие на полилинии и отсеиваю соседние блоки с налезающими на неё атрибутами.

не работает вроде так, я спецом сделал атрибуты на другом слое. Слой выключен. vla-GetBoundingBox учитывает весь габаритный контейнер определения блока, в т.ч. если элементы блока находятся на выключенном слое.

----- добавлено через ~4 мин. -----

Сообщение от koMon 110 MLeader Plane Origin Point соррян, 10 после (304 . "LEADER_LINE{") описывающий прямоугольник - ОП корневая точка мвыноски - КТ если КТ внутри ОП, тогда дб t (and (<= xmin_оп x_кт xmax_оп) (<= ymin_оп у_кт ymax_кт) )

спасибо! Еще один глупый вопрос: как извечь 10 код именно после 304? В списке кодов текущей MLEADER несколько 10 кодов

[Nike]

Оговорился - не выключить слой, а заморозить.
У меня работает, попробуй.

[Sege]

Сообщение от Nike Оговорился - не выключить слой, а заморозить. У меня работает, попробуй.

фиг поймет, у меня все-таки не работает

[kp+]

Сообщение от Sege как извечь 10 код именно после 304

Более того, у мультивыноски и кодов 304 не один, поэтому

Код:

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

 (setq a (entget (car (entsel)))) 
(setq b (nth (1+ (VL-POSITION '(304 . "LEADER_LINE{") a)) a ) )

[koMon]

Сообщение от Sege извечь 10 код именно после 304

(cdr (assoc 10 (member '(304 . "LEADER_LINE{") (entget mleader_ename)))