[求助]关于在CAD上材料统计

非凡如意

已经有人编出程序了，很方便，请大家试试：

(DEFUN C:TT (/ SS SS_L N LEN)
  (SETVAR "CMDECHO" 0)
  (SETQ SS (SSGET '((0 . "ARC,CIRCLE,*LINE,ELLIPSE"))))
  (SETQ N 0 LEN 0)
  (REPEAT (SSLENGTH SS)
   (command "lengthen" (ssname ss n) "")
   (setq LEN (+ (getvar "perimeter") LEN) N (1+ N))
  )
  (PRINC "\n你所选到的像素的总长是")
  (PRINC lenn)
  (PRINC "(mm)....")
  (PRINC)
)
(PRINC "\n输入TT执行求选集的总长.....")