检查点是否位于LWPOLYIN上
你好如何使用LISP检查给定点是否正好位于LWPOLYLINE上? (equal (distance p (vlax-curve-getclosestpointto e p)) 0.0 1e- 或者,如果您只有点,并且希望检查是否有多段线穿过
(and
p
(setq e (car (nentselp p)))
(eq (cdr (assoc 0 (entget e))) "LWPOLYLINE")
(equal (distance p (vlax-curve-getclosestpointto e p)) 0.0 1e-
) (if (vlax-curve-getparamatpoint e pt) ....
编辑:两篇帖子太晚了 Thanx这有效!
也许交叉选择比nentselp调用更合适,以允许多个对象通过给定点的情况。
页:
[1]