请教 dcl list_boxl列表关联sld

434939575

1. ;;里面s_t变量有变化.sld没有跟着变化
   
2. (defun c:tt
   
3.        (/ )
   
4.           ; 初始化变量、标准大径表和标准长度表
   
5.   (setq  sdt 2
   
6.   s_t "0"
   
7.   )
   
8.             ;;定义初始化主对话框函数
   
9.   (if (< (setq id (load_dialog "c:\\12-19.dcl")) 0)
   
10.     (exit)
    
11.   )          ;装入对话框文件
    
12.   (initdlg1)        ;初始化主对话框
    
13.            ;while循环结束
    
14.   (unload_dialog id)      ;卸载对话框文件
    
15.   
    
16.   (princ)
    
17. )
    
18. 
    
19. ;定义绘制螺钉的函数
    
20.   (defun initdlg1 ()
    
21.    
    
22.     (if  (not (new_dialog "main_dlg" id))
    
23.       (exit)
    
24.     )
    
25. 
    
26.    ; (setq ss (get_tile "s_type"))
    
27.    
    
28.     ;(action_tile "s_type" "(f_stype )")  ;; 定义螺钉种类列表的动作
    
29.    
    
30.     (cond( (eq s_t '"0")
    
31.     (f_img "screw_0" "d:\\example\\sld\\12-19-scr0") ;;sld      初始化图像按钮上  (defun f_img (key sld)  ;定义初始化图像函数
    
32.       )
    
33.     ( (eq s_t '"1") (f_img "screw_0" "66"));;sld        (defun f_img (key sld)  ;定义初始化图像函数
    
34.      ( (eq s_t '"2")(f_img "screw_0" "77"));;sld
    
35.      ( (eq s_t '"3")(alert"ii"));;sld
    
36.    )
    
37.     ;;-------------------------------------------------------------------------------------------------------------------
    
38.       ;;;定义图像按钮的动作是确定螺钉的种类并且选中螺钉种类表的相应行
    
39.     (action_tile
    
40.       "screw_0"
    
41.       "(setq s_t \"0\")(set_tile \"s_type\" \"0\")"
    
42.     )
    
43.    
    
44.     ;;;============================================
    
45.     (action_tile "s_type" "(f_stype )")  ;; 定义螺钉种类列表的动作
    
46.     (action_tile "accept" "(done_dialog 2)") ;; 定义继续按钮的动作
    
47.     (action_tile "cancel" "(done_dialog 0)") ;; 定义退出按钮的动作
    
48.     (mode_tile "screw_0" 2)    ;;聚焦在图像按钮"screw_0"上
    
49.     (set_tile "s_type" "0")    ;;设置螺钉种类表的第一行为被选中状态
    
50.     (setq sdt (start_dialog))
    
51.   )
    
52. (defun f_stype ();定义螺钉种类列表的动作函数
    
53.     (setq s_t (get_tile "s_type"))  ;将获取的螺钉种类赋给s_t
    
54.     (setq img_key (strcat "screw_" "0";-----------------------------"0"  锁定第一个sld----------------------
    
55.         ;s_t
    
56.         )) ;拼接图像按钮的关键字
    
57.     (mode_tile img_key 2)    ;设置相应的图像按钮为聚焦状态
    
58.   )         
    
59.         
    
60.   (defun f_img (key sld)  ;定义初始化图像函数
    
61.     (start_image key)
    
62.    
    
63.     (slide_image 0 0 (dimx_tile key) (dimy_tile key) sld)
    
64.     (end_image)
    
65.   )          ;定义获取AutoCAD标准颜色函数
    
66.             ;定义初始化颜色图像按钮数
    
67.             
    
68.   
    
69.             ;定义获取所有控件当前数据的函数
    
70.          
    
71. ;;===================================================
    
72. ;
    
73. 
    
74. //主对话框的名字是main_dlg
    
75. main_dlg:dialog{
    
76. label="确定螺钉种类:";
    
77. :row{ //第1行开始，该行有1个加框列和1个列表
    
78. :boxed_column{ //加框列开始，该列有2行，每行有2个图像按钮
    
79. label="选择螺钉种类:";
    
80. :row{ //加框列内第1行开始，该行有2个图像按钮
    
81. :image_button{ //图像按钮1
    
82. color=-2;
    
83. width=15;
    
84. aspect_ratio=0.66;
    
85. key="screw_0";}
    
86. 
    
87. }//加框列内第1行结束
    
88. }//加框列内第2行和加框列结束
    
89. :list_box{label = "螺钉种类"; //列表开始
    
90. list="GB/T 65-2000\nGB/T 68-2000\nGB/T 5780-2000\nGB/T 70.1-2000";//初值
    
91. key = "s_type";
    
92. width=15;
    
93. fixed_width=true;}//列表结束
    
94. } //第1行结束
    
95. :row{ //第2行开始，该行有2个按钮和2个间隔
    
96. spacer_1; //第1个间隔
    
97. :button{label="继续";
    
98. key="accept";
    
99. is_default=true;
    
100. fixed_width=true;} //"继续"按钮
     
101. :button{label="退出";
     
102. key="cancel";
     
103. fixed_width=true;} //"退出"按钮
     
104. spacer_1; //第2个间隔
     
105. }//第2行结束，以上2个按钮的关键字只能是"accept"和"cancel"。
     
106. } //"main_dlg"主对话框定义结束
     

;;里面s_t变量有变化.sld没有跟着变化<br /> (defun c:tt<br />        (/ )<br />           ; 初始化变量、标准大径表和标准长度表<br />   (setq  sdt 2<br />   s_t "0"<br />   )<br />             ;;定义初始化主对话框函数<br />   (if (< (setq id (load_dialog "c:\\12-19.dcl")) 0)<br />     (exit)<br />   )          ;装入对话框文件<br />   (initdlg1)        ;初始化主对话框<br />            ;while循环结束<br />   (unload_dialog id)      ;卸载对话框文件<br />   <br />   (princ)<br /> )<br /> <br /> ;定义绘制螺钉的函数<br />   (defun initdlg1 ()<br />     <br />     (if  (not (new_dialog "main_dlg" id))<br />       (exit)<br />     )<br /> <br />    ; (setq ss (get_tile "s_type"))<br />     <br />     ;(action_tile "s_type" "(f_stype )")  ;; 定义螺钉种类列表的动作<br />     <br />     (cond( (eq s_t '"0")<br />     (f_img "screw_0" "d:\\example\\sld\\12-19-scr0") ;;sld      初始化图像按钮上  (defun f_img (key sld)  ;定义初始化图像函数<br />       )<br />     ( (eq s_t '"1") (f_img "screw_0" "66"));;sld        (defun f_img (key sld)  ;定义初始化图像函数<br />      ( (eq s_t '"2")(f_img "screw_0" "77"));;sld<br />      ( (eq s_t '"3")(alert"ii"));;sld<br />    )<br />     ;;-------------------------------------------------------------------------------------------------------------------<br />       ;;;定义图像按钮的动作是确定螺钉的种类并且选中螺钉种类表的相应行<br />     (action_tile<br />       "screw_0"<br />       "(setq s_t \"0\")(set_tile \"s_type\" \"0\")"<br />     )<br />    <br />     ;;;============================================<br />     (action_tile "s_type" "(f_stype )")  ;; 定义螺钉种类列表的动作<br />     (action_tile "accept" "(done_dialog 2)") ;; 定义继续按钮的动作<br />     (action_tile "cancel" "(done_dialog 0)") ;; 定义退出按钮的动作<br />     (mode_tile "screw_0" 2)    ;;聚焦在图像按钮"screw_0"上<br />     (set_tile "s_type" "0")    ;;设置螺钉种类表的第一行为被选中状态<br />     (setq sdt (start_dialog))<br />   )<br /> (defun f_stype ();定义螺钉种类列表的动作函数<br />     (setq s_t (get_tile "s_type"))  ;将获取的螺钉种类赋给s_t<br />     (setq img_key (strcat "screw_" "0";-----------------------------"0"  锁定第一个sld----------------------<br />         ;s_t<br />         )) ;拼接图像按钮的关键字<br />     (mode_tile img_key 2)    ;设置相应的图像按钮为聚焦状态<br />   )          <br />         <br />   (defun f_img (key sld)  ;定义初始化图像函数<br />     (start_image key)<br />     <br />     (slide_image 0 0 (dimx_tile key) (dimy_tile key) sld)<br />     (end_image)<br />   )          ;定义获取<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>标准颜色函数<br />             ;定义初始化颜色图像按钮数<br />             <br />   <br />             ;定义获取所有控件当前数据的函数<br />           <br /> ;;=================================================== <br /> ;<br /> <br /> //主对话框的名字是main_dlg<br /> main_dlg:dialog{<br /> label="确定螺钉种类:";<br /> :row{ //第1行开始，该行有1个加框列和1个列表<br /> :boxed_column{ //加框列开始，该列有2行，每行有2个图像按钮<br /> label="选择螺钉种类:";<br /> :row{ //加框列内第1行开始，该行有2个图像按钮<br /> :image_button{ //图像按钮1<br /> color=-2; <br /> width=15; <br /> aspect_ratio=0.66;<br /> key="screw_0";}<br /> <br /> }//加框列内第1行结束<br /> }//加框列内第2行和加框列结束<br /> :list_box{label = "螺钉种类"; //列表开始<br /> list="GB/T 65-2000\nGB/T 68-2000\nGB/T 5780-2000\nGB/T 70.1-2000";//初值<br /> key = "s_type"; <br /> width=15; <br /> fixed_width=true;}//列表结束<br /> } //第1行结束<br /> :row{ //第2行开始，该行有2个按钮和2个间隔<br /> spacer_1; //第1个间隔<br /> :button{label="继续";<br /> key="accept"; <br /> is_default=true;<br /> fixed_width=true;} //"继续"按钮<br /> :button{label="退出";<br /> key="cancel";<br /> fixed_width=true;} //"退出"按钮<br /> spacer_1; //第2个间隔<br /> }//第2行结束，以上2个按钮的关键字只能是"accept"和"cancel"。<br /> } //"main_dlg"主对话框定义结束<br />

wzg356

完整的 ，自己补功能

(defun c:tt5 ( / kk)
        (setq kk(getsld))
        (cond
                ((= kk "0")(alert "功能0"))
                ((= kk "1")(alert "功能1"))
                ((= kk "2")(alert "功能2"))
                ((= kk "3")(alert "功能3"))(t nil)
        )
)
(defun getsld (/  lst_str str file f f_stype dcl_id dd kk)
        (setq lst_str '(
                "test:dialog {"
                ":row {"
                "   :list_box {key = \"key1\" ;label = \"种类\"; width=15; list=\"GB/T 65-2000\\\nGB/T 68-2000\\\nGB/T 5780-2000\\\nGB/T 70.1-2000\";fixed_width=true;}"
                "   :image {key = \"key2\" ;width=20;fixed_width=true;fixed_height=true;aspect_ratio =0.6;}"
                "}"
                "ok_cancel;"
                "}"
                )
        )
        (defun f_stype (num / sldlst)
                (setq sldlst(list "GB/T 65-2000" "GB/T 68-2000" "GB/T 5780-2000" "GB/T 70.1-2000"))
                ;表元素-幻灯片名，格式须符合函数(slide_image ........)中sldname要求
                (start_image "key2");控件image的key
                (fill_image 0 0 (dimx_tile "key2")  (dimy_tile "key2") 255);底色
                ;(slide_image 0 0 (dimx_tile "key2") (dimy_tile "key2") (nth num sldlst));有幻灯片把注释取消
                (end_image)
                (set_tile "key2" (nth num sldlst));有幻灯片注释这一句
            )            
        (setq file (vl-filename-mktemp "DclTemp.dcl"))
        (setq f (open file "w"))
        (foreach str lst_str        (princ "\n" f)(princ str f))
        (close f)   
        (new_dialog "test" (setq dcl_id (load_dialog  file)))
        (set_tile "key1" "0");初始化控件list_box
        (f_stype 0)
        (action_tile "key1" "(f_stype (atoi $value))")
        (action_tile "accept" "(setq kk(get_tile \"key1\"))(done_dialog 1)")
        (setq dd (start_dialog))
        (unload_dialog dcl_id)
        (vl-file-delete file);删除临时dcl文件      
        kk
)

ynhh

感觉这应是LISP中控制

wzg356

参考以下修改看看

(set_tile "s_type" "0");初始化控件list_box
(f_stype 0);初始化控件image
(action_tile "s_type" "(f_stype (atoi $value))")
;list_box点击动作，切换image的幻灯片
;f_stype修改为
(defun f_stype (num / sldlst)
        (setq sldlst(list "GB/T 65-2000" "GB/T 68-2000" "GB/T 5780-2000" "GB/T 70.1-2000"))
        ;表元素-幻灯片名，格式须符合函数(slide_image ........)中sldname要求
        (start_image "screw_0");控件image的key
        (fill_image 0 0 (dimx_tile "screw_0")  (dimy_tile "screw_0") 255);底色，可以换        ;之前的幻灯片清掉
        (slide_image 0 0 (dimx_tile "screw_0") (dimy_tile "screw_0") (nth num sldlst))
       ;载入新的幻灯片
        (end_image)        
)

434939575

ynhh 发表于 2022-2-11 14:32
感觉这应是LISP中控制

嗯，对他们连接不会，

434939575

wzg356 发表于 2022-2-11 15:02
参考以下修改看看

(set_tile "s_type" "0");初始化控件list_box

谢谢，我的点选右边列表，s_t这个变量有变化，"0" "1""2""3"   eq这里感觉没起作用

434939575

wzg356 发表于 2022-2-11 16:23
完整的 ，自己补功能

(defun c:tt5 ( / kk)

十分感谢。

wzg356

如果种类不多，直接用多个image_button好些，点击图片直接执行动作，减少点击确定

434939575

wzg356 发表于 2022-2-11 16:52
如果种类不多，直接用多个image_button好些，点击图片直接执行动作，减少点击确定

这个图片数也没确定，我希望点击列表，对应显示这种方式