Question

CAD如何批量统计各条线段的长度

1、不是总长度，是各条线段的长度，要输出到excel或文本文档，不需要顺序和编号；
2、阳光算量快手用不了，因为电脑和CAD都是64位的。

Answer 1

1、首先打开电脑，然后我们在电脑桌面打开的软件中绘制直线、多段线、圆、矩形等图形；

2、然后我们点击左侧工具栏中的工具选择下方的曲线工具，然后找到长度统计选项，点击长度统计选项；

3、选择好以后我们点击鼠标右击确认选择，然后找到合适的地方插入标注结果的地方；

4、点击左键即可在鼠标位置插入标注结果。也可以事先选择好需要统计的线段以后然后点击工具栏中的长度统计，显示结果是一致的。

Answer 2

1、首先打开一个需要统计线段的cad图纸。

2、然后选择需要统计的线段然后点击右键，点击右键菜单中的统计长度。

3、选择后继续点击选择需要统计的线段，选择完成后点击右键。

4、然后移动鼠标到需要的位置点击输出统计的长度。

5、这是统计后的长度。

6、也可以全部选择需要统计的线段以后点击右键选择长度统计来进行统计。

Answer 3

1、首先我们需要打开CAD，在命令栏输入li，然后按“Enter”，这一点很重要。注意多点击几下。

2、然后我们需要选择两条不同的线段，按“Enter"，这一点很重要。

3、这时会弹出如图的窗口，上面就有所选线段的长度，CAD就可以批量统计各条线段的长度了。方法很简单。

Answer 4

autolisp可以做到，复制以下代码到记事本，以【.lsp】为后缀命名，打开cad，【appload】加载，加载后，命令【TES】，选择曲线，得到的长度到D盘Point表格。

(defun c:tes ( / &a0 &dis1 &k1 &kw1 &ss1 &ss2)
 (if (null vlax-dump-object) (vl-load-com) )
 (princ "\n请选择曲线")
 (setq &ss1 '("LINE" "LWPOLYLINE" "CIRCLE" "ARC" "HELIX" "ELLIPSE" "SPLINE" "POLYLINE"))
 (if (setq &kw1 (ssget '((0 . "LINE,LWPOLYLINE,CIRCLE,ARC,HELIX,ELLIPSE,SPLINE,POLYLINE"))))
  (progn
   (setq &ss2 '())
   (while (setq &k1 (ssname &kw1 0))
    (setq &kw1 (ssdel &k1 &kw1) &a0 (cdr (assoc 0 (entget &k1))))
    (setq &dis1 (vlax-curve-getDistAtParam &k1 (vlax-curve-getEndParam &k1)))
    (setq &ss2 (cons (cons &a0 &dis1) &ss2))
   );while
   (s1606021 &ss1 &ss2)
  )
 )
 (princ)
)

(defun s1606021 (&ss1 &ss2 / &a0 &dis1 &ss1 &ss2 &ss3 ff x y);写入长度到表格
 (setq ff (open "D://Point.csv" "w"));D盘表格Point
 (while (setq &a0 (car &ss1))
  (setq &ss1 (cdr &ss1))
  (if (setq &ss3 (mapcar 'cdr (vl-remove-if-not '(lambda (X) (= &a0 (car x))) &ss2)))
   (progn
    (setq &ss3 (vl-sort &ss3 '(lambda (x y) (<  x y))));长度从小到大
    (while (setq &dis1 (car &ss3))
     (setq &ss3 (cdr &ss3))
     (write-line (strcat &a0 "," (rtos &dis1)) ff)
    );while
    (write-line "" ff)
   )
  );if
 );while
 (close ff)
)

Answer 5

专门有解决这方面的程序，适用32位，64位电脑。