(defun C:A-INTERS_WITH( / a1 a2)
(vl-load-com)
; aus CAD.de

(setq a1 (vlax-ename->vla-object (car (entsel)))) ; 1. waehlen
(setq a2 (vlax-ename->vla-object (car (entsel)))) ; 2. waehlen

(setq ret (vlax-invoke a1 "IntersectWith" a2 acExtendBoth)) ; schnittpunkt(e)
)