给排水用于提取管道长度的编码（自己第一次写的嘿嘿，很简单的多多指教）

onlyonewolf

(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)
)
多多指教呀！

wowan1314

非常不错。支持你。