请教BDYCAD大哥！！！

merak · 发表于 2003-11-5 16:11:00

;;;  program make china
;;  by  BDYCAD
;; DATA:  2003-11-01
(DEFUN C:TEST (/ SS SS_L N LENN LEN)
  (setq ss (ssget))
  (setq ss_l (sslength ss))
  (setq n 0)
  (setq lenn 0)
  (repeat ss_l
(command "lengthen" (ssname ss n) "")
(setq len (getvar "perimeter"))
(setq lenn (+ len lenn))
(setq n (1+ n)))
  (princ "\n你所選到的圖元的總長是")
  (princ lenn)
  (Princ "(mm)....")
  (princ))
(PRIC "\n輸入test執行求選集的總長.....")
　BDYCAD大哥，你的这个程序真的很好用啊！刚开始我也试过用“lengthen”命令,
不过它总在命令行中显示" 当前长度***",后来我就换了种方法了，请问怎么把它屏蔽掉啊。
*******************************************************************