最佳答案：记事本复制以下命令，另存为“统计线段长度.lsp”。打开CAD，输入APPLOAD，然后加载刚才这个lsp文件。然后按ZZ，选线段，就可以统计长度了。（结果在命令栏里）（方法来源于网络）(princ
记事本复制以下命令，另存为“统计线段长度.lsp”。打开CAD，输入APPLOAD，然后加载刚才这个lsp文件。然后按ZZ，选线段，就可以统计长度了。（结果在命令栏里）（方法来源于网络）(princ "\n程序：统计线段长度 命令：zz")(defun C:zz (/ CURVE TLEN SS N SUMLEN)(vl-load-com) (setq SUMLEN 0)(setq SS (ssget '((0 . "CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))(setq N 0)(repeat (sslength SS)(setq CURVE (vlax-ename->vla-object (ssname SS N)))(setq TLEN (vlax-curve-getdistatparam CURVE (vlax-curve-getendparam CURVE)))(setq SUMLEN (+ SUMLEN TLEN))(setq N (1+ N)))(princ (strcat "\n共选择 " (itoa (sslength SS)) " 条线段. 线段总长: " (rtos SUMLEN 2 3) " .")) (princ))
