麻烦帮忙看下这个对话框的控制参数怎么执行不了？

kele99kele

1. 
   

复制代码

子程序单独运行都没问题，但是一调用对话框就死机了，cad重启N次还是不行

2. (defun c:nice_frame ()
   
3.   (setq dcl_id (load_dialog "nice_frame.dcl"))
   
4.   (new_dialog "nice_frame" dcl_id)
   
5.   ;动作参数
   
6.   (action_tile "nice_dcl_insertframe" "(nice_insertframe) (done_dialog)")
   
7.   (action_tile "nice_dcl_insertdirectory" "(nice_insertdirectory) (done_dialog)")
   
8.   (action_tile "nice_dcl_insertfram_modify" "(nice_insertfram_modify) (done_dialog)")
   
9.   (action_tile "nice_dcl_makediractory" "(nice_makediractory) (done_dialog)")
   
10.   (action_tile "cancel" "(done_dialog)")
    
11.   (start_dialog)
    
12.   (unload_dialog dcl_id)
    
13. )

(defun c:nice_frame ()<br />   (setq dcl_id (load_dialog "nice_frame.dcl"))<br />   (new_dialog "nice_frame" dcl_id)<br />   ;动作参数<br />   (action_tile "nice_dcl_insertframe" "(nice_insertframe) (done_dialog)")<br />   (action_tile "nice_dcl_insertdirectory" "(nice_insertdirectory) (done_dialog)")<br />   (action_tile "nice_dcl_insertfram_modify" "(nice_insertfram_modify) (done_dialog)")<br />   (action_tile "nice_dcl_makediractory" "(nice_makediractory) (done_dialog)")<br />   (action_tile "cancel" "(done_dialog)")<br />   (start_dialog)<br />   (unload_dialog dcl_id)<br /> )

这个是函数主程序的对话框相关的东东

2. nice_frame:dialog {
   
3.     label = "图框目录 v1.0 2015.8.1 by【九群】";
   
4.     :boxed_row {
   
5.         :boxed_column {
   
6.             width = 8;
   
7.             fixed_width = true;
   
8.             label = "图框";
   
9.             :button {
   
10.                 key = "nice_dcl_insertframe";
    
11.                 label = "插入图框";
    
12.                 width = 8;
    
13.                 }
    
14.             :button {
    
15.                 key = "nice_dcl_insertfram_modify";
    
16.                 label = "插入改图框";
    
17.                 width = 8;
    
18.                 }
    
19.             }
    
20.         :boxed_column {
    
21.             label = "目录";
    
22.             :button {
    
23.                 key = "nice_dcl_insertdirectory";
    
24.                 label = "空白目录";
    
25.                 width = 8;
    
26.                 }
    
27.             :button {
    
28.                 key = "nice_dcl_makediractory";
    
29.                 label = "填写目录";
    
30.                 width = 8;
    
31.                 }
    
32.             }
    
33.         }
    
34.     cancel_button ;
    
35.     }
    

nice_frame:dialog { <br />     label = "图框目录 v1.0 2015.8.1 by【九群】";<br />     :boxed_row { <br />         :boxed_column { <br />             width = 8;<br />             fixed_width = true;<br />             label = "图框";<br />             :button { <br />                 key = "nice_dcl_insertframe";<br />                 label = "插入图框";<br />                 width = 8;<br />                 }<br />             :button { <br />                 key = "nice_dcl_insertfram_modify";<br />                 label = "插入改图框";<br />                 width = 8;<br />                 }<br />             }<br />         :boxed_column { <br />             label = "目录";<br />             :button { <br />                 key = "nice_dcl_insertdirectory";<br />                 label = "空白目录";<br />                 width = 8;<br />                 }<br />             :button { <br />                 key = "nice_dcl_makediractory";<br />                 label = "填写目录";<br />                 width = 8;<br />                 }<br />             }<br />         }<br />     cancel_button ; <br />     }<br />

这个是对话框的定义文件，奇了怪了

zkq1212

没有问题啊

kele99kele

zkq1212 发表于 2015-8-1 08:44:31
没有问题啊

我也是看不出问题来，奇怪了来自: Android客户端

spp_wall

调用了没问题啊

cn0yahoo

所有 label = "空白目录";    要改成  label = \"空白目录\";

香远益清

(defun c:nice_frame()
  (setq dcl_id (load_dialog (nicek)))
  (new_dialog "nice_frame" dcl_id)
  ;动作参数
  (action_tile "nice_dcl_insertframe" "(nice_insertframe) (done_dialog)")
  (action_tile "nice_dcl_insertdirectory" "(nice_insertdirectory) (done_dialog)")
  (action_tile "nice_dcl_insertfram_modify" "(nice_insertfram_modify) (done_dialog)")
  (action_tile "nice_dcl_makediractory" "(nice_makediractory) (done_dialog)")
  (action_tile "cancel" "(done_dialog)")
  (start_dialog)
  (unload_dialog dcl_id)
)

(defun nicek(/ lst_str str file f)
                (setq lst_str '(
"nice_frame:dialog { "
"    label = \"图框目录\";"
"    :boxed_row { "
"        :boxed_column { "
"            width = 8;"
"            fixed_width = true;"
"            label = \"图框\";"
"            :button { "
"                key = \"nice_dcl_insertframe\";"
"                label = \"插入图框\";"
"                width = 8;"
"                }"
"            :button { "
"                key = \"nice_dcl_insertfram_modify\";"
"                label = \"插入改图框\";"
"                width = 8;"
"                }"
"            }"
"        :boxed_column { "
"            label = \"目录\";"
"            :button { "
"                key = \"nice_dcl_insertdirectory\";"
"                label = \"空白目录\";"
"                width = 8;"
"                }"
"            :button { "
"                key = \"nice_dcl_makediractory\";"
"                label = \"填写目录\";"
"                width = 8;"
"                }"
"            }"
"        }"
"    cancel_button ; "
"    }"
                    )
    )
    (setq file (vl-filename-mktemp "DclTemp.dcl"))
    (setq f (open file "w"))
    (foreach str lst_str
        (princ "\n" f)
        (princ str f)
    )
    (close f)
    ;;返回
    file
)
;;;=================================================================*
(princ)