｛求助｝帮忙看一个lisp程序有没有错？

shuizhilan

    我在网上下了一个lisp程序，但是加载了还是不能用！本人没学lisp实在是看不懂哪里出错了！希望哪位高手帮忙看一下！谢谢了！

     计算所有线段总长度(加载后只需框选所有线段便可得出这些线段的总长度)
(defun cL ()
(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))
)

王咣生

函数最后返回总长度:

(defun cL ()
  (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))
  )
  ll ;返回值
)