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)）)
