popup_list的值如何反馈到lisp中，并下次使用默认选择的值

世人皆醉

我想知道如何将dcl对话框中的popup_list的key值转换到lisp函数中，并且下一次使用该命令是会重复上一次选择的key值，如下列代码所示，在DCL中的d5如何反馈到lisp中的c3d5,并下一次使用该命令时对话框显示上一次使用该命令时显示的值

2. (defun c:c3e(/  p1 p2 p3 p4 p5 p6 p7 p8 e1 p9 d5 d6 d7 d8 d9 o0s pt1 i1 i2 i3 i4 i5 i6 i7 i8 i9 i10 i11 i12 i13 i14 i15 i16 i17 i18 i19) ;直管一键展开绘制
   
3.   (setvar "cmdecho" 0) ;关闭普通命令提示信息
   
4.   (setvar "osmode" 0)  ;关闭对象捕捉状态
   
5.    (command "._undo" "_begin")
   
6.         (defun make-dclCS  (/ lst_str str file f );;面板的界面显示dcl
   
7.                 (setq lst_str
   
8.                         '(
   
9.                                  "矩形直管口字型展开程序:dialog"
   
10.                                  "{ // start dcl"
    
11.                                  "label = "矩形直管口字型展开程序";"
    
12.                                  ":row{"
    
13.                                  ":boxed_column{"
    
14.                                  ":edit_box{label="直管序号为(个)：";key="d1"; edit_width=10;}"
    
15.                                  ":edit_box{label="直管长度为(mm)：";key="d2"; edit_width=10;}"
    
16.                                  ":edit_box{label="直管宽度为(mm)：";key="d3"; edit_width=10;}"
    
17.                                    ":edit_box{label="直管高度为(mm)：";key="d4"; edit_width=10;}"                                
    
18.                                  ":popup_list{label="板材厚度为(mm)：";key="d5";list="1.5t\\n0.8t\\n1.0t\\n1.2t\\n2.0t\\n3.0t"; edit_width=10;}"
    
19.                                  "} "
    
20.                                  ":image{width=30;height=4;key="img1"; color=-16;}} "
    
21.                                  ":row{"":button{label="确定(&Q)";key="accept";
    
22.                                  is_default=true;height=2;}"        ":button{label="取消(&C)";key="cancel";is_cancel=true;height=2;}"":button{label="帮助(&H)";key="help";is_cancel=true;height=2;}" "}"
    
23.                           
    
24.                                  "fixed_width=true;"
    
25.                                  "alignment=left;"
    
26.                                  "} // end dll" ;结尾
    
27.                          )                     
    
28.                 )
    
29.                 (setq file (vl-filename-mktemp "DclTemp.dcl"))
    
30.                 (setq f (open file "w"))
    
31.                 (foreach str lst_str
    
32.                         (princ "\n" f)
    
33.                         (princ str f)
    
34.                 )
    
35.                 (close f)
    
36.                 ;;返回
    
37.                 file
    
38.         )
    
39.         ;;---------开始写面板调用函数
    
40.   (defun getdata2() ;获取当前dcl界面里面控件key的当前值,并保存为全局变量，这里需要保存值的变量名字（JH bhd2 JR）尽量起的复杂一点，否则会引起全局变量冲突
    
41.     (setq c3d1  (atof(get_tile "d1")))
    
42.     (setq c3d2  (atof(get_tile "d2")))
    
43.     (setq c3d3  (atof(get_tile "d3")))
    
44.     (setq c3d4  (atof(get_tile "d4")))
    
45.     (setq c3d5  (atof(get_tile "d5")))
    
46.         )
    
47.     (if (not c3d1)
    
48.    (progn (setq c3d1 1) ;判断变量是否存在并且为字符串，如果不是则进行初始化定义
    
49.           (setq c3d2 500);判断变量是否存在并且为字符串，如果不是则进行初始化定义
    
50.           (setq c3d3 500);判断变量是否存在并且为字符串，如果不是则进行初始化定义
    
51.           (setq c3d4 2697);判断变量是否存在并且为字符串，如果不是则进行初始化定义
    
52.           ));判断变量是否存在并且为字符串，如果不是则进行初始化定义
    
53. 
    
54.   
    
55.   
    
56.   (if (= (setq dcl_id (load_dialog (setq Dcl_File(make-dclCS)))) 0)(progn(alert "\n无法显示对话框！")(exit)))
    
57.         (if Dcl_File(vl-file-delete Dcl_File));加载后删除DCL文件
    
58.   (if(not (new_dialog "矩形直管口字型展开程序" dcl_id))(progn(alert "\n无法显示对话框！")(exit)))
    
59. 
    
60.           (start_image "img1")
    
61.           (setq max_x (dimx_tile "img1"))
    
62.           (setq max_y (dimy_tile "img1"))
    
63.           (slide_image 0 0 max_x max_y "D:/插件/sld/1.sld")
    
64.           (end_image);显示图形对话框
    
65.           (mode_tile "d1" 2);设置d1为焦点
    
66.   
    
67.   (set_tile "d1" (rtos c3d1 2 2)) ;将对应key的全局变量传递给控件，以便显示界面的时候直接显示上次记忆的控件key值
    
68.   (set_tile "d2" (rtos c3d2 2 2));将对应key的全局变量传递给控件
    
69.   (set_tile "d3" (rtos c3d3 2 2));将对应key的全局变量传递给控件
    
70.   (set_tile "d4" (rtos c3d4 2 2));将对应key的全局变量传递给控件
    
71. 
    
72. 
    
73.   
    
74.   (action_tile "accept" "(getdata2)(done_dialog 1)") ;当按下确认按钮的时候保存控件值，然后退出界面,并执行对于功能函数
    
75.   (action_tile "cancel" "(getdata2)(done_dialog 0)") ;当按下取消按钮的时候保存控件值，然后退出界面
    
76.   (action_tile "help" "(getdata2)(done_dialog 2)")
    
77.   (setq re (start_dialog))
    
78.   (unload_dialog dcl_id)
    
79.      (cond ((= re 0)
    
80. (setq dss (get_tile "d5"))             
    
81.               (princ dss)
    
82.           )
    
83.            ((= re 2)
    
84.             
    
85.               (ALERT
    
86.       "\n　1ccccccc"      
    
87.        )
    
88.             
    
89.           )
    
90.           ((= re 1)
    
91.           (princ "\n单击了确定按钮"))))

(defun c:c3e(/  p1 p2 p3 p4 p5 p6 p7 p8 e1 p9 d5 d6 d7 d8 d9 o0s pt1 i1 i2 i3 i4 i5 i6 i7 i8 i9 i10 i11 i12 i13 i14 i15 i16 i17 i18 i19) ;直管一键展开绘制<br />   (setvar "cmdecho" 0) ;关闭普通命令提示信息<br />   (setvar "osmode" 0)  ;关闭对象捕捉状态<br />    (command "._undo" "_begin")<br />         (defun make-dclCS  (/ lst_str str file f );;面板的界面显示dcl<br />                 (setq lst_str<br />                         '(<br />                                  "矩形直管口字型展开程序:dialog"<br />                                  "{ // start dcl"<br />                                  "label = "矩形直管口字型展开程序";"<br />                                  ":row{"<br />                                  ":boxed_column{"<br />                                  ":edit_box{label="直管序号为(个)：";key="d1"; edit_width=10;}"<br />                                  ":edit_box{label="直管长度为(mm)：";key="d2"; edit_width=10;}"<br />                                  ":edit_box{label="直管宽度为(mm)：";key="d3"; edit_width=10;}"<br />                                    ":edit_box{label="直管高度为(mm)：";key="d4"; edit_width=10;}"                                <br />                                  ":popup_list{label="板材厚度为(mm)：";key="d5";list="1.5t\\n0.8t\\n1.0t\\n1.2t\\n2.0t\\n3.0t"; edit_width=10;}"<br />                                  "} "<br />                                  ":image{width=30;height=4;key="img1"; color=-16;}} "<br />                                  ":row{"":button{label="确定(&Q)";key="accept";<br />                                  is_default=true;height=2;}"        ":button{label="取消(&C)";key="cancel";is_cancel=true;height=2;}"":button{label="帮助(&H)";key="help";is_cancel=true;height=2;}" "}"<br />                           <br />                                  "fixed_width=true;"<br />                                  "alignment=left;"<br />                                  "} // end dll" ;结尾<br />                          )                      <br />                 )<br />                 (setq file (vl-filename-mktemp "DclTemp.dcl"))<br />                 (setq f (open file "w"))<br />                 (foreach str lst_str<br />                         (princ "\n" f)<br />                         (princ str f)<br />                 )<br />                 (close f)<br />                 ;;返回<br />                 file<br />         )<br />         ;;---------开始写面板调用函数<br />   (defun getdata2() ;获取当前dcl界面里面控件key的当前值,并保存为全局变量，这里需要保存值的变量名字（JH bhd2 JR）尽量起的复杂一点，否则会引起全局变量冲突<br />     (setq c3d1  (atof(get_tile "d1")))<br />     (setq c3d2  (atof(get_tile "d2")))<br />     (setq c3d3  (atof(get_tile "d3")))<br />     (setq c3d4  (atof(get_tile "d4")))<br />     (setq c3d5  (atof(get_tile "d5")))<br />         )<br />     (if (not c3d1)<br />    (progn (setq c3d1 1) ;判断变量是否存在并且为字符串，如果不是则进行初始化定义<br />           (setq c3d2 500);判断变量是否存在并且为字符串，如果不是则进行初始化定义<br />           (setq c3d3 500);判断变量是否存在并且为字符串，如果不是则进行初始化定义<br />           (setq c3d4 2697);判断变量是否存在并且为字符串，如果不是则进行初始化定义<br />           ));判断变量是否存在并且为字符串，如果不是则进行初始化定义<br /> <br />   <br />   <br />   (if (= (setq dcl_id (load_dialog (setq Dcl_File(make-dclCS)))) 0)(progn(alert "\n无法显示对话框！")(exit)))<br />         (if Dcl_File(vl-file-delete Dcl_File));加载后删除DCL文件<br />   (if(not (new_dialog "矩形直管口字型展开程序" dcl_id))(progn(alert "\n无法显示对话框！")(exit)))<br /> <br />           (start_image "img1")<br />           (setq max_x (dimx_tile "img1"))<br />           (setq max_y (dimy_tile "img1"))<br />           (slide_image 0 0 max_x max_y "D:/<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">插件</a>/sld/1.sld")<br />           (end_image);显示图形对话框<br />           (mode_tile "d1" 2);设置d1为焦点<br />   <br />   (set_tile "d1" (rtos c3d1 2 2)) ;将对应key的全局变量传递给控件，以便显示界面的时候直接显示上次记忆的控件key值<br />   (set_tile "d2" (rtos c3d2 2 2));将对应key的全局变量传递给控件<br />   (set_tile "d3" (rtos c3d3 2 2));将对应key的全局变量传递给控件<br />   (set_tile "d4" (rtos c3d4 2 2));将对应key的全局变量传递给控件<br /> <br /> <br />   <br />   (action_tile "accept" "(getdata2)(done_dialog 1)") ;当按下确认按钮的时候保存控件值，然后退出界面,并执行对于功能函数<br />   (action_tile "cancel" "(getdata2)(done_dialog 0)") ;当按下取消按钮的时候保存控件值，然后退出界面<br />   (action_tile "help" "(getdata2)(done_dialog 2)")<br />   (setq re (start_dialog))<br />   (unload_dialog dcl_id)<br />      (cond ((= re 0)<br /> (setq dss (get_tile "d5"))             <br />               (princ dss)<br />           )<br />            ((= re 2)<br />             <br />               (ALERT<br />       "\n　1ccccccc"      <br />        )<br />             <br />           )<br />           ((= re 1)<br />           (princ "\n单击了确定按钮"))))

lee50310

你的意思是 讓 每個 輸入項及選單 有記憶功能 ?

改好了,請參考看看!

世人皆醉

(set_tile "d5" (rtos c3d5 2 2))

liuhe

(START_LIST "LAY1")
    (MAPCAR 'ADD_LIST LAYL)
    (END_LIST)
    (set_tile "LAY1" (RTOS (vl-position LAY LAYL) 2 0))

这是我对图层popup_list的赋值，key是LAY1，list是图纸的图层列表。如果不对popup_list进行赋值，会自动选择字符串“0”，即图层列表中第一项作为默认值。如果想赋值上次的选择，你取得list中上次值的序号，用vl-position函数，然后把这个int转换成字符串，赋值给popup_list的key。(set_tile "LAY1" (RTOS (vl-position LAY LAYL) 2 0))，取得上次图层设定值在图层列表中序号，然后。。。。