[求助]：简单的两句话程序，大家来帮改一下

温柔女神

(defun c:zx()
(setq aa (STRCAT "CAD二次开发摸索中心" ""))
(command "text" "j" "mc" pt "0.75" "" aa)
)

运行总是不对，我的目的是输入 ZX 命令则写出 CAD二次开发摸索中心
怎么改呢 谢谢 （CAD2006）

小菜

(defun c:zx()
(setq aa (STRCAT "CAD二次开发摸索中心"))
(command "text" "j" "mc" (getpoint) "0.75" "" aa)
)

fsxm

再来个复杂点的转贴~先生成文字再指定点:
[php]
(defun c:ZX (/ yh_gettext yh_mouse yh_textname yh_textpoint)
  (command "text" (cadr (grread t 1 0)) "300" "0" "CAD二次开发摸索中心")
  (setq yh_textname (entlast))
  (while (= (car (setq yh_mouse (grread t 1 0))) 5)
    (setq yh_gettext (entget yh_textname))
    (setq yh_textpoint (cadr yh_mouse))
    (setq yh_gettext
           (subst (cons 10 yh_textpoint)
                  (assoc 10 yh_gettext)
                  yh_gettext
           )
    )
    (entmod yh_gettext)
  )
  (princ)
)
[/php]