[求助]：请高手帮忙修改下

82406515

本人的量线段长度的程序有个问题,就是比如说我画了一个图由几百或者更多的线段构成.如果我用这个程序量,他会把所有的线段一条一条的算出来,然后给出总和,这样的话他就会量几百或者更多次.我在用后退命令的时候,他就要退几百或者更多次,这样就很麻烦了,希望高手能帮忙修改,谢谢

xyp1964

[php]
;;; 需先加载通用函数xyplib.vlx
;;; 线长统计
(defun c:test001 ()
  (CMDLA0)
  (setq        ss  (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC")))
        sum 0
        i   -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq l   (xyp-get-CurveLength s1)
          sum (+ sum l)
    )
    (princ"\n")
    (princ l)
  )
  (princ "\n总线数 = ")
  (princ i)
  (princ "\n总线长 = ")
  (princ (rtos sum 2 3))
  (CMDLA1)
)[/php]