auto cad里多条平行线段怎么求总长度？

Question

auto cad里多条平行线段怎么求总长度？请告知具体步骤。

Answer 1

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

Answer 2

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

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

Answer 3

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

Answer 4

用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)
)

Answer 5

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