[求助]如何判断一个点位于一条线的端点上

clh521

如何判断一个点位于一条线的端点上？谢谢

线是指所有类型的线

ZZXXQQ

(if (equal (distance pt (osnap pt "END")) 1e-6 1e-8)
 (princ "\n点在端点。")
 (princ "\n点不在端点。")
)

clh521

谢谢，我回去试下看看

clh521

Z版主，试了好像不行的,不知道是什么原因：

(defun c:tt( / pt)
(setq pt (getpoint "请点取一点:"))
(if (equal (distance pt (osnap pt "END")) 1e-6 1e-8)
 (princ "\n点在端点。")
 (princ "\n点不在端点。")
)
(princ)
)

无论怎么点，都是出现：“点不在端点”不知道是什么回事呀？

ZZXXQQ

这样试试：
(defun c:tt()
(setq pt (getpoint "请点取一点:"))
(if (equal (distance pt (osnap pt "END")) 0.0 1e-6)
 (princ "\n点在端点。")
 (princ "\n点不在端点。")
)
(princ)
)

caoyin

;;vl方法

(defun IstEndPoint (curve point)
       (or (equal (vlax-curve-getStartPoint curve) point 0.00001)
           (equal (vlax-curve-getEndPoint curve) point 0.00001)
       )
)