[编程交流] 需要帮助。

(vl-load-com)
[b];;;        Stefan MBR        ;;;[/b]
(defun C:TEST ( / ss lst en l)
 (if
   (setq ss (ssget '((0 . "LINE,*POLYLINE"))))
   (progn
     (repeat (sslength ss)
       (setq lst (cons (vlax-ename->vla-object (setq en (ssname ss 0))) lst))
       (ssdel en ss)
     )
     (while (cdr lst)
       (foreach e (cdr lst)
         (foreach int (l2p (vlax-invoke (car lst) 'IntersectWith e acExtendNone))
           (if (not (vl-some (function (lambda (x) (equal (distance int x) 0.0 1e-)) l))
             (setq l (cons int l))
           )
         )
       )
       (setq lst (cdr lst))
       )
     )
   )
 (if l (foreach n l (entmake (list '(0 . "POINT") (cons 10 n)))))
 (princ)
 )
(defun l2p (l)
 (if l
   (cons (list (car l) (cadr l) (caddr l)) (l2p (cdddr l)))
   )
 )