cad 中统计多条线段长度 编辑整理：尊敬的读者朋友们：这里是精品文档编辑中心，本文档内容是由我和我的同事精心编辑整理后发布的，发布之前我们对文中内容进行认真校对，但是难免会有疏漏的地方，但是任然希望（cad 中统计多条线段长度）的内容能够给您的工作和学习带来便利。同时也真诚的希望收到您的建议和反馈，这将是我们进步的源泉，前进的动力。本文可编辑可修改，假如觉得对您有帮助请收藏以便随时查阅，最后祝您生活愉快 业绩进步，以下为 cad 中统计多条线段长度的全部内容。新建文本文档。在文档中输入以下内容：； 统 计 cad 图中线的总长度;*＊＊＊＊＊＊*＊＊＊＊*＊Write By zhenglin**＊*＊＊＊*＊*＊＊**＊＊(defun c:tj_l （/ p n e e1 e2 l s x1 x2 y1 y2 xx yy ll lll) （setq ln 0 lll 0） （ setq p （ ssget) ） ； Select objects （if p (progn ; If any objects selected (setq l 0 n (sslength p）) (while （〈 l n) ； For each selected object。.。 （if (= "LINE” (cdr （assoc 0 （setq e （entget （ssname p l）））））） （progn （setq e1 (assoc 10 e) e2 （assoc 11 e）) （setq x1 (cadr e1) y1 （caddr e1)) （setq x2 (cadr e2） y2 (caddr e2）） （setq xx （abs （- x2 x1)) yy （abs (- y2 y1））) （setq ll (sqrt (+ （* xx xx） （* yy yy)）)） （setq lll (+ lll ll)) (setq ln (+ ln 1）) ) ) (setq l （1+ l)) ） ） ） (print "total line number= "） （princ ln） (print ”total line length= "） （princ lll) (terpri） )另存为 tj_l。lsp打开 cad —〉 工具 —〉 加载应用程序 —〉 找到并选中 tj_l。lsp点加载在命令行输入 tj_l 然后选中所有要统计的线。按 F2 查看结果
