[LISP程序]：求PL线内部的两直线交点

baolanjun

选择封闭的PL线，求PL线内部的两直线交点?如何编写
内部只有两条直线，或一直线与弧线，也就是说只有一个交点

zooloo

(defun c:hee2 ()
  (vl-load-com)
  (setq pta nil)
  (setq b (entget (car (entsel "Pline"))))
  (while (setq pt1 (cdr (assoc 10 b)))
    (setq pta (cons pt1 pta))
    (setq b (vl-remove (assoc 10 b) b)))
    (setq ssc (ssget "CP" pta))
  (setq Jpt (vla-IntersectWith
                (vlax-ename->vla-object (ssname ssc 0))
                (vlax-ename->vla-object (ssname ssc 1))
                acExtendnone
     ))
   (setq Jin (not (minusp (vlax-safearray-get-u-bound (vlax-variant-value Jpt) 1))))
   (setq Jpl (if Jin (vlax-safearray->list (vlax-variant-value Jpt)) Jin))
  
  
  )