对话框调用---命令使用（已经解决）
本帖最后由 wgg212 于 2011-8-13 09:10 编辑(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 于 2011-7-9 15:39 编辑
(UNLOAD_DIALOGDCL_ID) 不好意思，看了Gu_xl的帖子才知道自己错在哪里了：
(UNLOAD_DIALOG)
==>
(UNLOAD_DIALOGDCL)
更正后程序就可以顺利运行了。
经过这回折腾，我有点感受：对于不懂，不会的问题，我们不能着急发帖，应该学会在论坛里找经验，找答案，在此，感谢论坛里的大侠们，对于我们的简单问题都能有详细的回答，谢谢啊 回复 zhynt 的帖子
谢谢啊
页:
[1]