获取曲线上指定两点距离

13648893846 发表于 2018-7-30 20:28:57

;;[功能]获取曲线上指定两点距离
;;[用法](LC:curve-length (car(entsel "\n 选择曲线: ")) (getpoint "\n 选择曲线上第一点: ") (getpoint "\n 选择曲线上第二点: "))
;;[作者]老仓测绘上班记
(defun LC:curve-length (en p1 p2 / en p1 p2)
(if (and en p1 p2)
(abs
(- (vlax-curve-getDistAtPoint en (vlax-curve-getclosestpointto en p1))
(vlax-curve-getDistAtPoint en (vlax-curve-getclosestpointto en p2))
)
)
)
)

zhangkui9070 发表于 2022-6-20 20:50:38