曲线起点至指定点到曲线垂点的距离（曲线长）

13648893846 · 发表于 2018-8-16 19:51:09

本帖最后由 13648893846 于 2018-8-16 19:58 编辑

;;[功能]曲线起点至指定点到曲线垂点的距离（曲线长）
;;[用法](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));垂点
)
)

yuebu · 发表于 2019-4-18 16:42:00

怎么用不了呀大神

13648893846 · 发表于 2019-4-19 17:15:28

这只是一个函数而已

账号		自动登录	找回密码
密码			注册

[函数] 曲线起点至指定点到曲线垂点的距离（曲线长）