CAD中计算多条多段线的总长(含脚本制作方法).doc

CAD中计算多条多段线的总长(含脚本制作方法).doc CAD中计算多条多段线的总长方法: 1、先将以下代码复制到记事本中。 (defun c:n() (setq tleng 0) (setq s (ssget)) (setq n (sslength s)) (setq index (- n 1)) (repeat n (vl-load-com) (setq ent (ssname s index)) (setq index (- index 1)) (setq curve-obj (vlax-ename->vla-object ent)) (setq leng (vlax-curve-getDistAtParam curve-obj (vlax-curve-getEndParam curve-obj) ) ) (setq tleng (+ tleng leng)) (princ leng) (princ "\n") ) (setq prscreemtext (strcat "\n总共计算" (itoa n) "个对象，总长度为 " (rtos tleng 2 1))) (princ prscreemtext) (princ) ) 2、将文件更名为 统计多段线长度.lsp 并复制到CAD安装目录下。 3、打开CAD软件，在命令中输入AP弹出加载框，如下图所示: 选择 统计多段线长度.lsp 加载 4、使用时输入命令 N 选择所需要计算的多条多段线，确认即可。 已在CAD2007中测试过，完全OK