CAD中计算多条多段线的总长.docx

《CAD中计算多条多段线的总长.docx》由会员分享，可在线阅读，更多相关《CAD中计算多条多段线的总长.docx（2页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

最好的沉淀整理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-getDistAtParamcurve-obj(vlax-curve-getEndParam curve-obj)(setq tleng(+ tleng leng)(princ leng)(princ n)2 1)(setq prscreemtext (strcatn 总共计算 (itoa n) 个对象，总长度为 (rtos tleng(princ prscreemtext)(princ)2、将文件更名为统计多段线长度 .lsp 并复制到 CAD 安装目录下。3、打开 CAD 软件，在命令中输入 AP 弹出加载框，如下图所示：选择 统计多段线长度 .lsp 加载4、使用时输入命令N 选择所需要计算的多条多段线，确认即可。已在 CAD2007 中测试过，完全 OK