给排水用于提取管道长度的编码（自己第一次写的嘿嘿，很简单的多多指教）
(defun c:q()(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)
)
多多指教呀！
非常不错。支持你。
页:
[1]