|
;;[功能]曲线起点至指定点到曲线垂点的距离(曲线长)
;;[用法](LC:starting-point>pt-curveFoot>dist (car(entsel "\n 请选择曲线:")) (getpoint "\n 请选择线外一点:"))
;;[作者]BY 老仓测绘上班记
(defun LC:starting-point>pt-curveFoot>dist (EN PT / POINTCURVEDIST)
(setq pointcurvedist (vlax-curve-getDistAtPoint
(vlax-ename->vla-object en)
(vlax-curve-getClosestPointTo (vlax-ename->vla-object en) pt));垂点
)
)
;;[功能]点到曲线的垂直距离
;;[用法](LC:point>curveFoot-dist (car(entsel "\n 请选择曲线:")) (getpoint "\n 请选择线外一点:"))
;;[作者]BY 老仓测绘上班记
(defun LC:point>curveFoot-dist (EN PT / CURVEFOOT CURVEDIST)
(setq curveFoot (vlax-curve-getClosestPointTo (vlax-ename->vla-object en) pt);垂点
curvedist (distance curveFoot pt)
)
)