字符串问题，哪里出错了，请教！！

hhdhxe

(defun c:viewdcl()
      (if (null dcl_pt)
      (setq dcl_pt '(-1 -1))
    )
  (setq dcl_file (getfiled "打开DCL文件" "" "DCL" 2))
  (princ "DCL文件名：")(princ dcl_file)
  (setq dia_name (getstring "\nDialog 对话框名："))
  (if (= dia_name "")(exit))
  (setq dcl_id (load_dialog dcl_file))
  (new_dialog dia_name dcl_id)
  (action_tile "accept" "(setq dcl_pt (done_dialog 1))")
  (action_tile "cancel" "(done_dialog 0)")
  (setq dd(start_dialog))
  (cond ((= dd 1)  (princ "\n确定<OK>!!!"))
 ((= dd 0)  (princ "\n取消<cancel>!!!))
 )
 (prin1)
 )
 

liu22737

((= dd 0)  (princ "\n取消<cancel>!!!))

((= dd 0)  (princ "\n取消<cancel>!!!"))

hhdhxe

加载后，说输入的列表有缺陷，怎么回事啊

王咣生

这一句

(princ "\n取消<cancel>!!!")

后面少引号

hhdhxe

加引号后是一样的错误啊！！

liu22737

替换此句(setq dia_name (getstring "\nDialog 对话框名:"))

（注意：变量未负值调用对话框，死机）