[vosh]

Конечно основная цель данной темы не найти эти самые команды, а найти некий самостоятельный файл, типа *.hlp и т.п. в котором можно было бы удобно искать по производимым действиям различные команды lisp'а. Возможно кто-то заморачивался по этому поводу и сделал подобную чудо-штуку.
А теперь то что меня натолкнуло на подобный поиск. Есть ли команда находящая точку пересечения линии, пускай даже прямой с ломаной полилинией? Ничего кроме inters мне не удалось найти на пересечения

[VVA]

Если использовать объектную модель, то любой объект имеет метод IntersectWith, с помощью которого можно узнать точки пересечения чего-либо с чем-либо.
Можно воспользоваться готовыми функциями
VxGetInters - Returns all intersection points between two objects
VxGetBlockInters - Returns all intersection points between a block and an obj

[vosh]

Пытался громко крикнуть ура и поблагодарить, но столкнулся с непониманием работы команды. Сделал следующее:

Код:

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

(defun c:aaa (/ a b)
(setq a (VLAX-ENAME->VLA-OBJECT (car (entsel))))
(setq b (VLAX-ENAME->VLA-OBJECT (car (entsel))))
(princ (vla-IntersectWith a b acextendnone))
)

выдало страшную штуку "#<variant 8197 ...>#<variant 8197 ...>"
acextendnone - так понял руководство к неудлинению
прошу пояснения по остальному

[vosh]

Все "воткнул" , немного через... неочевидно. Так фурычит:

Код:

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

(defun c:aaa (/ a b)
(setq a (VLAX-ENAME->VLA-OBJECT (car (entsel))))
(setq b (VLAX-ENAME->VLA-OBJECT (car (entsel))))
(princ (vlax-safearray->list (vlax-variant-value (vla-IntersectWith a b acextendnone))))             
(princ)
)

VVA как всегда спасибо.