[求助]：是不是变量问题（dcl）

cuihongwei

;temp.lsp内容
(defun haha()
(setq xuhao (get_tile "ttt"))
)

(defun C:ll ( xuhao);  
         (SETQ DCL_ID (LOAD_DIALOG "c:/mylisp/mmx.DCL"))  
         (NEW_DIALOG "mx" DCL_ID)
         (ACTION_TILE "ok" "(haha)(DONE_DIALOG)")
         (START_DIALOG)
         (UNLOAD_DIALOG DCL_ID)
         (setq pp (getpoint "\n 点取一点:"))     
         (command "text" "j" "tl" pp  0 xuhao )

)
(princ "\n   装入完毕,命令名为 LL .")
(princ)

;;mmx.dcl 文件内容
dcl_settings : default_dcl_settings {audit_level = 3;}
mx:dialog{
label="输入字符串";

  : edit_box {
            key = "ttt";
            mnemonic = "ttt";
            fixed_width=true;
            edit_width = 40;
            label = "输入: ";
            value = "AutoCAD2006";

    }

  spacer_1;
  ok_cancel;
}

我在用的2006，怎么总是提示不对,好像是类型不匹配什么的
我昨天刚开始学lisp
希望大家帮我改一下

谢谢

Underway

(defun C:ll (/ xuhao)                        ;
  (SETQ DCL_ID (LOAD_DIALOG "mmx.DCL"))
  (NEW_DIALOG "mx" DCL_ID)
  (ACTION_TILE "accept" "(haha)(DONE_DIALOG)")
  (START_DIALOG)
  (UNLOAD_DIALOG DCL_ID)
  (setq pp (getpoint "\n 点取一点:"))
  (if (zerop (cdr (assoc 40 (tblsearch "style" (getvar "textstyle")))))
    ;; (command "text" "j" "tl" pp pause 0 xuhao)
    (command "text" "j" "tl" pp "" 0 xuhao)
    (command "text" "j" "tl" pp 0 xuhao)
  )
)

cuihongwei

谢谢楼上，我先回去研究一下！

楼上，我试过了，text命令提示字符串为nil

是不是变量问题啊？