请教BDYCAD大哥！！！

merak

;;;  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”命令,
不过它总在命令行中显示" 当前长度***",后来我就换了种方法了，请问怎么把它屏蔽掉啊。
*******************************************************************

龙龙仔

;;;最简单的方法就是用别的程序

http://www.mjtd.com/a2/list.asp?id=319

merak

谢谢！我刚刚试过了，很好用。在请一下在什么地方可以下AUTOCAD 2002 LISP的中文帮助啊。

BDYCAD

To : merak
我不知樓主這個應用在什麼地方呀?  我只是給大家寫寫. 但我總不用到的.同時也希望大家多多交流啊. 我不明白你現在的問題是什麼?