CAD统计多条线段长度程序及程序加载方法计划.docxVIP

CAD统计多条线段长度程序及程序加载方法方案 CAD统计多条线段长度程序及程序加载方法方案 CAD统计多条线段长度程序及程序加载方法方案 (defun c:mulen() (setq i 1 s 0) (prompt 选择直线： ) (setq ss (ssget)) (setq leng (sslength ss)) (setq namelist (list(ssname ss 0))) (repeat (1- leng) (setq namelist (append namelist (list (ssname ss i)))) (setq i (1+ i))) (foreach name namelist (setq nameall (entget name)) (setq ps (cdr (assoc 10 nameall))) (setq pe (cdr (assoc 11 nameall))) (setq psx (car ps)) (setq psy (cadr ps)) (setq psz (caddr ps)) (setq pex (car pe)) (setq pey (cadr pe)) (setq pez (caddr pe)) (setq x (- psx pex)) (setq y (- psy pey)) (setq z (- psz pez)) (