寻找所有相交的多段线

漫步苍穹

大家好！我写了个求两线段交点的程序，但不能很好的运行，请高人帮忙修改一下程序，谢谢
带病程序：
;;;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  (defun c:jd()
         ;;;检查两条线段是否有交点
         (VL-LOAD-COM)
         (setq st (ssget))
         (if  st
              (progn
                   (setq st_c (sslength st))
                   (setq nn (- st_c 2))
                   (setq n 0)
                   (while (<= n nn)
                              
                        (setq nam1 (ssname st n))
                        (setq i (+ n 1))
                        (while (< i st_c)
                              (setq nam2 (ssname st i))
                       
                              (setq vl_line (vlax-ename->vla-object nam1) vl_line2 (vlax-ename->vla-object nam2))
                       ;       (vlax-invoke (vlax-ename->vla-object (car(entsel))) 'IntersectWith (vlax-ename->vla-object (car(entsel))) acExtendNone)
                              (setq poit nil)
                             (setq POIT(vla-IntersectWith VL_LINE VL_LINE2 acExtendNone))
                ;;;       (SETQ POINT (vlax-safearray->list (vlax-variant-value POIT)))
                              (if (/= poit nil)
                                  (progn
                                  (command  "change" nam1  "" "p" "c" "8" "")
                                  (command  "change"  nam2 "" "p" "c" "8" "")
                         ;        
                              ));;if
                            (setq i (+ i 1))
                        );;while



                        (setq n (+ n 1))
                  );;while
         ));;if
        ;;;程序运行完毕！
   )


;;;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++