(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))
将以上文件保存为.lsp格式（后缀），打开CASS用appload 加载你保存的上边文件
然后LL命令即可查询线长
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024