cad中统计多条线段长度(共4页).doc

精选优质文档-倾情为你奉上新建文本文档。在文档中输入以下内容：;统计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)