鲁达 CAD绘图中多个线段的总长度测量方法
1，打开记事本，然后将下列命令复制到记事本，保存后，将记事本名称改为 “统计线段长度.LSP”。
(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)
)
2，打开CAD，输入APPLOAD，然后加载统计线段长度.LSP文件。如下图所示，显示已“成功加载 统计线段长度.LSP” 。这样就可以统计多条线段的总长度了。
3,打开CAD软件,画几条线段(画图中,线缆方面建议使用
PLINE多段线画图,快捷键PL ,这样方便统计总长度).用ZZ指令,然后选择1条或者多条需要测量的线段,按回车命令栏里就是出现多天线段的总长度.如下图所示:
打出指令按回车:
选择需要测量的线段:
按回车总长度统计出来了:
注:上图中乱码部分不影响供能的使用.有高手知道乱码原因可以评论留言,多多指教。