[求助]请问用什么方法，检查多段段是否有相交

nameld001

如题

Gu_xl

(defun c:tt()
  (setq en1 (car (entsel))
 en2 (car (entsel))
 obj1 (vlax-ename->vla-object en1)
 obj2 (vlax-ename->vla-object en2)
 )
  (setq ipts (vla-intersectwith
     obj1
     obj2
     acExtendNone
   )
     ipts (vlax-variant-value ipts)
      )
  (if (> (vlax-safearray-get-u-bound ipts 1) 0) (princ "\n有交点！") (princ "\n无交点！"))
  (princ)
  )

nameld001

在一个大的图形里如何，标识出交叉点，如果循环查，会标识出两次叉点，如a与b判得到交叉点，反过来如b与a又找出交叉点，怎么办呢

Gu_xl

假设有1、2 、3。。。n个图元，在选择集SS里，用如下方法循环：

(setq n (sslength ss))

(repeat (1- n)

(setq en1 (ssname ss 0))

(ssdel en1 ss)

(setq k (sslength ss)

m 0)

(repeat k

(setq en2 (ssname ss m))

;;;求交点en1 en2

...

(setq m (1+ m))

)

)