CAD中如何用lisp实现测量多短线上任意一点至某一端点的距离,并显示或者标注于图上?
展开全部
只做了起点的,终点的自己手动减一下或读出长度减去这个值输出来吧
(princ "\n************************\n查询点到线段起点的距离小程序,快捷键cc")
(defun c:cc( / str)
(setq str(vlax-curve-getDistAtPoint (vlax-ename->vla-object (nth 0 (entsel "\n选择线段:"))) (getpoint "\n选择点:\n")))
(princ "该点到线段起点距离为:")
(princ str)
(princ)
)
(princ "\n************************\n查询点到线段起点的距离小程序,快捷键cc")
(defun c:cc( / str)
(setq str(vlax-curve-getDistAtPoint (vlax-ename->vla-object (nth 0 (entsel "\n选择线段:"))) (getpoint "\n选择点:\n")))
(princ "该点到线段起点距离为:")
(princ str)
(princ)
)
东莞大凡
2024-11-19 广告
2024-11-19 广告
板格标定棋盘是我们东莞市大凡光学科技有限公司在精密光学测量领域的重要工具。它采用高精度设计,确保每一个格板都达到严格的校准标准。通过使用板格标定棋盘,我们能够有效地对光学测量系统进行校准,从而提升测量的准确性和可靠性。这一工具在光学仪器的研...
点击进入详情页
本回答由东莞大凡提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询