检查点是否位于LWPOLYIN上

gschmidt · 发表于 2022-7-5 19:59:55

你好

如何使用LISP检查给定点是否正好位于LWPOLYLINE上？

Stefan BMR · 发表于 2022-7-5 20:17:47

(equal (distance p (vlax-curve-getclosestpointto e p)) 0.0 1e-

Stefan BMR · 发表于 2022-7-5 20:24:24

或者，如果您只有点，并且希望检查是否有多段线穿过

(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-
 )

pBe · 发表于 2022-7-5 20:45:04

(if (vlax-curve-getparamatpoint e pt) ....

编辑：两篇帖子太晚了

gschmidt · 发表于 2022-7-5 20:55:40

Thanx这有效！

Lee Mac · 发表于 2022-7-5 21:01:35

也许交叉选择比nentselp调用更合适，以允许多个对象通过给定点的情况。

[编程交流] 检查点是否位于LWPOLYIN上