获取曲线上指定两点距离

13648893846

;;[功能]获取曲线上指定两点距离
;;[用法](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

挺好的，感谢分享！

技术工作室

老仓的帖子就是好