[LISP程序]：求救，我的线段太多了，统计的小程序下不到！

huj81

我的图形线段太多，需要统计多条线段的程序，爱心币没有，下不下来，谁可以帮帮我呀，发到huj81@163.com.不胜感激

yshf

;请试用以下传统Lisp程序(未用ActiveX编程)
(defun c:xdtj()
    (setq xtblm '("cmdecho" "osmode")
          xtblz (mapcar 'getvar xtblm)
    )
    (mapcar 'setvar xtblm '(0 0 ))
    (while (setq p1 (getpoint "\n请指定统计范围左下角点p1:"))
        (setq p2 (getcorner p1 "\n请指定统计范围右上角点p2:")
              sa (ssget "x" '((0 . "LINE,SPLINE,POLYLINE,LWPOLYLINE,ARC,CIRCLE,ELLIPSE")))
        )
        (if sa
            (progn
                (setq n (sslength sa)  i 0   sl 0)
                (repeat n
                    (setq en (ssname sa i))(redraw en 3)
                    (command "_lengthen" en "")
                    (setq sl (+ sl (getvar "perimeter"))  i (1+ i))
                )
                (setq zfc (strcat "\n共选取了" (itoa n) "个图元，累计总长度为：" (rtos sl 2 3)))
                (alert zfc)(princ "\n")(princ zfc)
            )
            (alert "统计范围内没有选到任何可以统计长度的图元!\n请重新指定范围。")
         )
    )
    (mapcar 'setvar xtblm xtblz)(princ)
)