sind die beiden objekte bereits gezeichnet ??
dann geht es so
(setq a1 (vlax-ename->vla-object (car (entsel)))) ; 1. wählen
(setq a2 (vlax-ename->vla-object (car (entsel)))) ; 2.wählen
(setq ret (vlax-invoke a1 "IntersectWith" a2 acExtendBoth)) ; schnittpunkt(e)
ergibt z.B.: bei angehängtem JPG
(4.79101 7.81705 0.0 7.89297 3.85528 0.0)
------------------
***********************************************
AutoCad 2000i, 2002, 2004 deutsch und englisch
Windows 2000, NT, XP
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP