[LISP程序]：紧急求助!!!SOS!关于TEXTMASK的问题!!!!

petertian

各位大侠及板柱,我用单个(textmask)明令修改text,一切正常,但是,用了以下程序之后,出现了command命令不认textmask,怎么回事?不胜感激!!谢谢!!程序如下:

(defun c:cht()
    (setq ss (ssget "x" (list (cons 0 "text"))))
   (if ss
      (progn
         (princ "\nplease wait...")
         (setq n 0 m (sslength ss))
         (princ m)
         (while (< n m)
            (setq entname (ssname ss n))
            (command "textmask" "off" "0.18" entname "")
            (setq n (+ 1 n))                     
         )
      )
   )
   (princ)
)
/////////////////////////////////
出现错误如下:
command: cht
please wait...536textmask unknown command "textmask".  press f1 for help.
command: off unknown command "off".  press f1 for help.
command: 0.18 unknown command "0.18".  press f1 for help.
command: <entity name: 26d0938>
/////////////////////////////////////////////////////////////
我的程序应该怎样改？？？？谢谢！

e2002

陈老师在mjtd回答了你这个问题

petertian

关键我是菜鸟，我不会修改！怎样修改？谢谢楼上！！

lijiao

TEXTMASK不是内部命令，不能用COMMAND调用。
TEXTMASK的原理是：根据TEXT的参数生成WIPEOUT实体，将TEXT上移，浮于WIPEOUT之上，然后将TEXT和WIPEOUT进行组合。
你可以根据这个思路设计程序，我就是这样做的。