[求助]新学DCL的一些问题

dinosaurhxe

如下面的对话框驱动与对话框代码。
1、现在我需要按一下帮助才能在edit_box中显示出qdmsg，能否去掉这个操作呢？对话框显示出来时，edit_box中就显示了qdmsg，这样我用ok_cancel就可以了。
2、能否让edit_box长一点，是改它的哪个属性？
3、我定义了按取消时(setq sjbd t)，可我测试时按取消再监视里看到sjbd仍为nil，这是哪里的问题？

2. (defun jzpbqd (qdmsg / dcl_id)
3. (if (> (setq dcl_id (load_dialog "dmhdcl.dcl")) 0)
4.   (if (new_dialog "pbqd" dcl_id)
5.    (progn
6.     (action_tile "accept" "(done_dialog 1)")
7.     (action_tile "cancle" "(notpb)")
8.     (action_tile "help" "(pbhelp qdmsg)")
9.     (start_dialog)
10.     (unload_dialog dcl_id)
11.    ) ;_ End progn
12.    (progn
13.     (alert "初始化对话框失败！")
14.     (exit)
15.    ) ;_ End progn
16.   ) ;_ End if
17.   (progn
18.    (alert "加载对话框失败！")
19.    (exit)
20.   ) ;_ End progn
21. ) ;_ End if
22. (princ)
23. ) ;_ End defun
24. (defun notpb ()
25. (setq sjbd t)
26. (done_dialog)
27. )
28. (defun pbhelp (qdmsg /)
29. (set_tile "pbqdmc" qdmsg (get_tile "pbqdmc"))))

(defun jzpbqd (qdmsg / dcl_id) (if (> (setq dcl_id (load_dialog "dmhdcl.dcl")) 0)   (if (new_dialog "pbqd" dcl_id)    (progn     (action_tile "accept" "(done_dialog 1)")     (action_tile "cancle" "(notpb)")     (action_tile "help" "(pbhelp qdmsg)")     (start_dialog)     (unload_dialog dcl_id)    ) ;_ End progn    (progn     (alert "初始化对话框失败！")     (exit)    ) ;_ End progn   ) ;_ End if   (progn    (alert "加载对话框失败！")    (exit)   ) ;_ End progn ) ;_ End if (princ) ) ;_ End defun (defun notpb () (setq sjbd t) (done_dialog) ) (defun pbhelp (qdmsg /) (set_tile "pbqdmc" qdmsg (get_tile "pbqdmc"))))

2. pbqd:dialog {
3.     label = "是否陪绑区段" ;
4.     spacer_1;
5.     :edit_box {
6.         key = "pbqdmc" ;
7.         label = "以下区段在第5段数据中找不到" ;
8.     }
9.     spacer_1;
10.     :text {
11.         label = "按帮助显示错误信息" ;
12.     }
13.     spacer_1;
14.     :text {
15.         label = "按确定表示上述区段均为陪绑区段" ;
16.     }
17.     spacer_1;
18.     :text {
19.         label = "按取消表示上述至少有一个区段不为陪绑区段" ;
20.     }
21.     spacer_1;
22.     ok_cancel_help;
23. }

pbqd:dialog {     label = "是否陪绑区段" ;     spacer_1;     :edit_box {         key = "pbqdmc" ;         label = "以下区段在第5段数据中找不到" ;     }     spacer_1;     :text {         label = "按帮助显示错误信息" ;     }     spacer_1;     :text {         label = "按确定表示上述区段均为陪绑区段" ;     }     spacer_1;     :text {         label = "按取消表示上述至少有一个区段不为陪绑区段" ;     }     spacer_1;     ok_cancel_help; }

carrot1983

1. 去掉帮助

1.1 (action_tile "help" "(pbhelp qdmsg)");_不用帮助的话,这句去掉

1.2 ok_cancel_help; //这个改成ok_cancel;

1.3 (defun pbhelp (qdmsg /)
    (set_tile "pbqdmc" qdmsg (get_tile "pbqdmc"))));_这句错误,也拿掉

2. edit_box长度, 可补上edit_width

:edit_box {
         key = "pbqdmc" ;
         label = "以下区段在第5段数据中找不到" ;

         edit_width = 80 ; //够不够长...呵呵
     }
3.(action_tile "cancle" "(notpb)");_cancel才对

补充一小点defun jzpbqd (qdmsg / dcl_id)  ;_有必要用到全局变量qdmsg吗?

           你还有主程式,调用对话框jzpbqd 这个来当子程式不合适吧?

最近也在重新学习,呵呵,希望dinosaurhxe能多提些问题...

飞诗(fsxm)

1.你在new_dialog 与start_dialog之间的过程，加一句代码set_tile "pbqdmc" qdmsg)

2.edit_box的字长可用edit_width这个属性控制

3.取消的KEY是"cancel"，你拼写错了~！~

dinosaurhxe

感谢楼上二位的指点。特别感谢fsxm，上述DCL的代码，就是用您的ListDCLediter来写的，非常实用。

edit_box的长度原来是edit_width，我说我改了width的值，一直都没反应。另外，既然可以edit_width = 80  我可否像解决第一个问题一样在new_dialog与strat_dialog之间加一句代码，设置edit_width = (+ (strlen qdmsg) 5)呢？应该用什么命令？

没想到还有手误居然没发现，英语实在太烂了！

回二楼carrot1983的问题：我认为加一个全局变量没有什么不对呀？我有多处需要调用这个对话框，每次给出不同的qdmsg就可以了呀？

xyp1964

(defun c:test ()
  (cmdla0)
  (setq qdmsg "按帮助显示错误信息")
  (defun xyp-help ()
    (set_tile "t1" qdmsg)
  )
  (setq Ilst '((nil nil ":column{label=\"是否陪绑区段\";")
        ("t1" "以下区段在第5段数据中找不到" "str" "24")
        ("t2" "按帮助显示错误信息" "text")
        ("t3" "按确定表示上述区段均为陪绑区段" "text")
        ("t4" "按取消表示上述至少有一个区段不为陪绑区段" "text")
        (nil nil "}")
        (nil nil "spacer;")
        (nil nil "ok")
       )
  )
  (if (= (xyp-Dcl-Init Ilst "【对话框驱动与对话框代码】" t) 1)
    (alert "\n上述区段均为陪绑区段")
  )
  (cmdla1)
)

效果：

dinosaurhxe

4楼的

“另外，既然可以edit_width = 80  我可否像解决第一个问题一样在new_dialog与strat_dialog之间加一句代码，设置edit_width = (+ (strlen qdmsg) 5)呢？应该用什么命令？”

不知道能不能解决？

飞诗(fsxm)

呵呵~传统DCL是不能在做好DCL后改变edit_width 属性的呢~

可以试下动态生成的DCL~

ListDCLediter输出的lsp格式,用fsxm-ldcl函数调用动态生成DCL~

dinosaurhxe

原来不能改变，需要动态DCL才行。我目前连DCL都不太会，动态DCL得缓缓再学了，比较笨，一下子多了就接受不过来。感谢FSXM。