13648893846 发表于 2018-8-16 19:47:50

点到曲线的垂直距离

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

;;[功能]点到曲线的垂直距离
;;[用法](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)
   )
)

cghdy 发表于 2019-11-16 16:11:55

好码
页: [1]
查看完整版本: 点到曲线的垂直距离