CAD LISP 程序（2020年十二月整理）.pdfVIP

1.计算所有线段总长度(加载后只需框选所有线段便可得出这些线段的总长度) (defun c:LL () (setvar cmdecho 1) (setq en (ssget (list (0 . spline,arc,line,ellipse,LWPOLYLINE)))) (setq i 0) (setq ll 0) (repeat (sslength en) (setq ss (ssname en i)) (setq endata (entget ss)) (command lengthen ss ) (setq dd (getvar perimeter)) (setq ll (+ dd ll)) (setq i (1+ i)) ) (princ 所选线条总长为：)(princ ll)(princ) ) 2.标注所有线段(加载后只需框选所有线段便可得标注这些线段) (defun c:LLL () 1 (COMMAND UCS ) (setvar cmdecho 1) (SETVAR OSMODE 0) (setq AcadObject (vlax-get-acad-object)