这样的LISP怎么写？

zenghong

选择图元：    1   找出线长小于5.MM  

　　　　　　 2  把线长大于5MM的元素线长相加

                      3  文字输出：小于5.0的多少个

　　　　　　　　　　　　　大于5的线长是？

　　　　　

龙龙仔

3. ;|
4. 选择图元：1 找出线长小於5MM
5. 　　　　　2 把线长大於5MM的元素线长相加
6.           3 文字输出：小於5.0的多少个
7. 　　　　　　　　　　　大於5的线长是？
8. |;
9. ;;;-----------------------------------------------------
10. ;;;计算线加总长度
11. ;;;BY LUCAS(龙龙仔)
12. (defun C:LENOF (/ CURVE TLEN SS N SUMLEN1 SUM) ;SUMLEN)
13.   (vl-load-com)
14.   (setq SUMLEN1 1   ;SUMLEN 0
15. SUM 0
16.   )
17.   (setq
18.     SS (ssget
19.   '((0 . "REGION,CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))
20.        )
21.   )
22.   (setq N 0)
23.   (repeat (sslength SS)
24.     (setq CURVE (vlax-ename->vla-object (ssname SS N)))
25.     (if (/= (vla-get-objectname CURVE) "AcDbRegion")
26.       (setq TLEN (vlax-curve-getdistatparam
27.      CURVE
28.      (vlax-curve-getendparam CURVE)
29.    )
30.       )
31.       (setq TLEN (vla-get-perimeter CURVE))
32.     )
33.     (if (<= TLEN 5)
34.       (setq SUM (1+ SUM))  ;SUMLEN (+ SUMLEN TLEN)
35.       (setq SUMLEN1 (+ SUMLEN1 TLEN))
36.     )
37.     (setq N (1+ N))
38.   )
39.   (print (strcat (rtos SUM 2 0) "个物件<=5长度"))
40.   (print (strcat ">5总长度=" (rtos SUMLEN1 2 5)))
41.   (princ)
42. )

;| 选择图元：1 找出线长小於5MM 　　　　　2 把线长大於5MM的元素线长相加           3 文字输出：小於5.0的多少个 　　　　　　　　　　　大於5的线长是？ |; ;;;----------------------------------------------------- ;;;计算线加总长度 ;;;BY LUCAS(龙龙仔) (defun C:LENOF (/ CURVE TLEN SS N SUMLEN1 SUM) ;SUMLEN)   (vl-load-com)   (setq SUMLEN1 1   ;SUMLEN 0 SUM 0   )   (setq     SS (ssget   '((0 . "REGION,CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC"))        )   )   (setq N 0)   (repeat (sslength SS)     (setq CURVE (vlax-ename->vla-object (ssname SS N)))     (if (/= (vla-get-objectname CURVE) "AcDbRegion")       (setq TLEN (vlax-curve-getdistatparam      CURVE      (vlax-curve-getendparam CURVE)    )       )       (setq TLEN (vla-get-perimeter CURVE))     )     (if (<= TLEN 5)       (setq SUM (1+ SUM))  ;SUMLEN (+ SUMLEN TLEN)       (setq SUMLEN1 (+ SUMLEN1 TLEN))     )     (setq N (1+ N))   )   (print (strcat (rtos SUM 2 0) "个物件<=5长度"))   (print (strcat ">5总长度=" (rtos SUMLEN1 2 5)))   (princ) )

zenghong

谢谢了