如何快速计算出CAD图中所画线条的长度

答案:2 悬赏:0 手机版

解决时间 2021-02-22 17:43

提问者网友：萌卜娃娃
2021-02-22 01:41

如何快速计算出CAD图中所画线条的长度

最佳答案

五星知识达人网友：时间的尘埃
2021-02-22 02:12

这个需要一个小插件。

;;测量长度;;
(defun C:TES ( / &dis1 &dis2 &k1 &kw1 &ob1)
(if (null vlax-dump-object) (vl-load-com) )
(if (setq &kw1 (ssget '((0 . "LINE,ELLIPSE,CIRCLE,ARC,LWPOLYLINE,SPLINE"))))
(progn
(setq &dis1 0)
(while (setq &k1 (ssname &kw1 0))
(setq &kw1 (ssdel &k1 &kw1))
(setq &ob1 (vlax-ename->vla-object &k1))
(setq &dis2 (vlax-curve-getDistAtParam &ob1 (vlax-curve-getEndParam &ob1)))
(setq &dis1 (+ &dis1 &dis2))
)
(princ "\n长度共: ")
(princ (rtos &dis1 2 3))
(princ " 毫米");命令行显示长度
)
)
(prin1)
);复制到记事本，以【.lsp】为后缀命名，打开CAD，autolisp加载了，命令【TES】
;就可以选择对象得到长度

全部回答

1楼网友：风格不统一
2021-02-22 02:28

这个需要一个小插件。 ;;测量长度;; (defun c:tes ( / &dis1 &dis2 &k1 &kw1 &ob1) (if (null vlax-dump-object) (vl-load-com) ) (if (setq &kw1 (ssget '((0 . "line,ellipse,circle,arc,lwpolyline,spline")))) (progn (setq &dis1 0) (while (setq &k1 (ssname &kw1 0)) (setq &kw1 (ssdel &k1 &kw1)) (setq &ob1 (vlax-ename->vla-object &k1)) (setq &dis2 (vlax-curve-getdistatparam &ob1 (vlax-curve-getendparam &ob1))) (setq &dis1 (+ &dis1 &dis2)) ) (princ "\n长度共: ") (princ (rtos &dis1 2 3)) (princ " 毫米");命令行显示长度 ) ) (prin1) );复制到记事本，以【.lsp】为后缀命名，打开cad，autolisp加载了，命令【tes】 ;就可以选择对象得到长度

我要举报

如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！