请教，能否完善下面程序功能，谢谢！

cxs259

1、不相交的直线显示出来
2、具有框选功能
(defun c:test(/ obj1 obj2 pts)
  (vl-load-com)
  ;求交点的对象
  (setq obj1 (vlax-ename->vla-object (car (entsel)))
obj2 (vlax-ename->vla-object (car (entsel)))
)
  ;求交点，分四种情况
  ;acExtendNone 求实交点，也可以用0代替
  ;acExtendThisEntity 延伸obj1求交点,也可以用1代替
  ;acExtendOtherEntity 延伸obj2求交点,也可以用2代替
  ;acExtendBoth 同时延伸obj1和obj2求交点,也可以用3代替
  (setq pts (vlax-invoke obj1 'IntersectWith obj2 0))
  ;此外还可以用(vlax-variant-value (vla-intersectwith obj1 obj2 0))求
  ;用vlax-safearray-get-u-bound检索返回值的上标大于0就存在交点
  ;用vlax-safearray->list可以得到交点
  (if pts (alert "相交")(alert "不相交"))
  (princ)
  )

cie0588

图中每条线都有与其相交的线啊

cxs259

cie0588 发表于 2013-4-28 12:38
图中每条线都有与其相交的线啊

窗间线（由下往上第3条线）就没有相交

云中孤鹰

路过顶起！