求助：如何判断一点是否在某一图元上？？

zxfzxf

请教大侠：如何判断一点是否在某一图元上（如直线，圆弧，圆，样条等）？？？

BDYCAD

;例
;(pt-on-curve (GETPOINT) (CAR (ENTSEL)) )

(defun pt-on-curve(pt e)
 (if(vlax-curve-getParamAtPoint (vlax-ename->vla-object e) Pt)t nil)
 )

yshf

用这一点和某一图元上距该点最近点的距离是否等于0进行判断。