auto cad里多条平行线段怎么求总长度？ CAD中怎样一次算出多条多段线的总长度

CAD\u5982\u4f55\u67e5\u770b\u591a\u6761\u7ebf\u6bb5\u7684\u603b\u957f\u5ea6\uff1f

1\u3001\u6253\u5f00\u4fee\u6539II\u5de5\u5177\u680f\uff1b2\u3001\u70b9\u51fb\u7f16\u8f91\u591a\u7ebf\u6bb5\uff1b3\u3001\u9009\u62e9\u4e00\u6761\u7ebf\uff0c\u8f93\u5165Y\u6765\u786e\u5b9a\u5408\u6210\u591a\u7ebf\u6bb5\u30024\u9009\u62e9\u8981\u5408\u6210\u7684\u7ebf\u6761\uff0c\u9009\u62e9\u5408\u5e76\u3002\u5b8c\u6210\u540e\u6240\u6709\u7ebf\u6bb5\u5c31\u5408\u5e76\u5728\u4e00\u8d77\u4e86\u3002\u8f93\u5165\u201caa\u201d\uff0c\u7136\u540e\u8f93\u5165\u201co\u201d\u5bf9\u8c61\uff0c\u76f4\u63a5\u9009\u62e9\u521a\u624d\u5408\u6210\u7684\u591a\u7ebf\u6bb5\uff0c\u957f\u5ea6\u548c\u9762\u79ef\u5c31\u51fa\u6765\u4e86\u3002
\u53e6\u5916\uff0c\u4e0d\u8fde\u7eed\u7684\u7ebf\u662f\u65e0\u6cd5\u5b9e\u73b0\u7684\uff0c\u53ea\u6709\u5206\u51e0\u4e2a\u90e8\u5206\u76f8\u52a0\u5f97\u5230\u4e86\u3002

CAD\u56fe\u7eb8\u7b97\u91cf\u5f88\u9ebb\u70e6\uff1f\u7528\u8fd9\u4e2a\u65b9\u6cd5\uff0c\u76f4\u63a5\u6279\u91cf\u7edf\u8ba1\u51fa\u5404\u7ebf\u6bb5\u7684\u603b\u957f\u5ea6

下载比一个 贱人工具箱 打开CAD之后输入ap命令空格确定之后选择贱人工具箱，加载成功关闭对话框之后输入Y命令空格确定后弹出贱人工具箱，选择右上角的长度按键，然后选择所有要测量长度的线段，空格确定就全部测量出来了

安装一个小插件就可以办到：

;;测量长度;;
(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 "
长度共: ") 
   (princ (rtos &dis1))
   (princ " 毫米");命令行显示长度
  )
 )
 (prin1)
);复制到记事本，以【.lsp】为后缀命名，打开CAD，autolisp加载了，命令【TES】
;就可以选择对象得到长度和

选中所有的平行线段 然后ctrl+1 在特性中即可查看所有线段总长度

用LISP实现吧，源程序如下：(defun c:test ()
(prompt "点要求线长度的线: ")
(setq en (ssget '((0 . "LINE"))) n (sslength en) i 0 l 0)
(repeat n
(setq en1 (entget (ssname en i)) p1 (cdr (assoc 10 en1)) p2 (cdr (assoc 11 en1)) ll (distance p1 p2) l (+ l ll) i (+ i 1))
)
(prompt (strcat "线的总长度为" (rtos l 2 4)))
(print)
)

CAD里只能测量，不带计算功能的，只能量好后自己加

扩展阅读：永久免费正版cad类软件 ... autodesk navisworks ... 永久免费cad下载 ... 自学cad入门教程视频 ... autocad永久免费版 ... auto cad2022 ... 十大免费cad网站 ... autocad官网价格 ... auto cad在圆柱体上做螺纹 ...