对话框调用---命令使用（已经解决）

wgg212

(DEFUN C:WZHSJ( )
(SETQ DCL_ID (LOAD_DIALOG "D:/RECT.DCL")) ;为报警对话框11-6-27，显示正常。
(NEW_DIALOG "RECT" DCL_ID)
(START_DIALOG) (UNLOAD_DIALOG DCL_ID)
(SETQ F (OPEN  "D:ZH" "w"))
(SETQ YB NIL XB NIL YMCBGL NIL MCB NIL YMCBFL NIL YMCBTZ NIL)
(QTXT)
(WHILE (= 1 CHK)(PRINC "BTM")(QTXT))
(PRINT TZHB)(GETSTRING"TZHB")
(CLOSE F)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;以下为选择对话框，用 !BTM 查看变量为真
(DEFUN QTXT()
(SETQ BT NIL BTM NIL DCL_ID NIL CHK NIL DCL NIL PGON_1 NIL PGON_2 NIL PGON_3 NIL)
(SETQ DCL (LOAD_DIALOG "D:/PGON1.DCL") CHK 0)
   (NEW_DIALOG "PGON" DCL)
(ACTION_TILE "accept" "(SETQ CHK 1)(S_PGON)(DONE_DIALOG)")
(START_DIALOG)(UNLOAD_DIALOG)
(IF (= CHK 1)(SETQ BTM (STRCASE (GETSTRING"\n 请输入所读表的表头名 =")))            
)
;*********************************************************************************
;(SETQ BTM (STRCASE (GETSTRING"\n 请输入所读表的表头名 =")))
(SETQ JHB (LIST "1" "2" "3" "4" "5"  "6" "7" "8" "9" "10"))
(setq ss (ssget "X" '((0 .  "TEXT" ))))
(IF (/= NIL SS)(PROGN
(setq n (sslength ss) i 0  )))

)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;子程序
(DEFUN S_PGON()
  (COND
  ((= (GET_TILE "PGON_1") "1") (SETQ BTM "ZH"))
  ((= (GET_TILE "PGON_2") "1") (SETQ BTM "zh1"))
((= (GET_TILE "PGON_3") "1") (SETQ BTM "ZY"))
      )
      (SETQ BT BTM)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

zhynt

(UNLOAD_DIALOG  DCL_ID)

wgg212

不好意思，看了Gu_xl的帖子才知道自己错在哪里了：

(UNLOAD_DIALOG)
==>
(UNLOAD_DIALOG  DCL)

更正后程序就可以顺利运行了。

经过这回折腾，我有点感受：对于不懂，不会的问题，我们不能着急发帖，应该学会在论坛里找经验，找答案，在此，感谢论坛里的大侠们，对于我们的简单问题都能有详细的回答，谢谢啊

wgg212

回复 zhynt 的帖子

谢谢啊