[LISP]各位大哥指点

zenghong

;;;小弟刚学LISP 烦请各位指点一下

;;;------------编程思路------------
;;;1:选择对象线长存入ss1  乘  0.1     若无选择　按空键
;;;2:选择对象线长存入ss2  乘  0.2     若无选择　按空键
;;;3:选择对象线长存入ss3  乘  0.3     若无选择　按空键
;;;print 1 　若无选择不显示该行
;;;print 2 　若无选择不显示该行
;;;print 3　 若无选择不显示该行
;;;　           若全部没选择则显示该行  :“没有任何选择”
;;;-----------------------------------------------------
;;;计算线加总长度
;;;-----------------------------------------------------
(defun C:lz (/ CURVE TLEN SS N SUMLEN)
  (vl-load-com)
  (setq SUMLEN 0)
  (setq SS (ssget '((0 .  "CIRCLE,REGION,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))))   
  (setq N 0)
  (repeat (sslength SS)
    (setq CURVE (vlax-ename->vla-object (ssname SS N)))
    (setq TLEN (vlax-curve-getdistatparam
CURVE
(vlax-curve-getendparam CURVE)
       )
    )
    (setq SUMLEN (+ SUMLEN TLEN))
    (setq N (1+ N))
  )
(print (strcat "总长:" (rtos SUMLEN 2 5)))
)