CAD中如何用lisp实现测量多短线上任意一点至某一端点的距离，并显示或者标注于图上？
2个回答
展开全部
只做了起点的，终点的自己手动减一下或读出长度减去这个值输出来吧
(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)
)
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
Sievers分析仪
2024-10-13 广告
是的。传统上，对于符合要求的内毒素检测，最终用户必须从标准内毒素库存瓶中构建至少一式两份三点标准曲线；必须有重复的阴性控制；每个样品和PPC必须一式两份。有了Sievers Eclipse内毒素检测仪，这些步骤可以通过使用预嵌入的内毒素标准...
点击进入详情页
本回答由Sievers分析仪提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
