再来一个LISP，测量已选择线的总长度

主要是看我们土木还真没有讨论LISP的，不会是不允许把，再发一个，
命令：LL
不会用这个程序的参看 http://bbs.co.163.com/content/0_1194968_1.html[code](defun c：LL ()
(princ "\n 了解更多请登录路桥隧专业技术论坛~http://xingyou.5d6d.com！")
(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) )[/code]