这个DCL如何做到单击执行命令?

ymcui

这个DCL如何做到单击执行命令?

2. (defun c:zz()
   
3.    (setvar "cmdecho" 0)
   
4.    (setq dcl_id (load_dialog "kimage"))
   
5.    (new_dialog "kimage" dcl_id)  
   
6.    (setq sldkeYI_list'("kimage1" "kimage2" "kimage3" "kimage8" "kimage9" "kimage10" "kimage11" "kimage12"))
   
7.    (setq sld_list'("kimage(kimage1)" "kimage(kimage2)" "kimage(kimage3)" "kimage(kimage4)" "kimage(kimage5)" "kimage(kimage6)" "kimage(kimage7)" "kimage(kimage8)"))
   
8.    (mapcar 'show_sld sldkeYI_list sld_list)
   
9.    (setq ddtype 1)
   
10.    (mode_tile "kimage1" 2)
    
11.    (action_tile "kimage1" "(setq ddtype 1)")
    
12.    (action_tile "kimage2" "(setq ddtype 2)")
    
13.    (action_tile "kimage3" "(setq ddtype 3)")
    
14.    (action_tile "kimage4" "(setq ddtype 4)")
    
15.    (action_tile "kimage5" "(setq ddtype 5)")
    
16.    (action_tile "kimage6" "(setq ddtype 6)")
    
17.    (action_tile "kimage7" "(setq ddtype 7)")
    
18.    (action_tile "kimage8" "(setq ddtype 8)")
    
19.    (action_tile "accept" "(done_dialog 1)")
    
20.    (setq dd(start_dialog))
    
21.    (if (= dd 1)
    
22.    (cond
    
23.      ((= ddtype 1)(C:11))
    
24.      ((= ddtype 2)(C:22))
    
25.      ((= ddtype 3)(C:33))
    
26.      ((= ddtype 8)(C:44))
    
27.      ((= ddtype 9)(C:55))
    
28.      ((= ddtype 10)(c:66))
    
29.      ((= ddtype 11)(C:77))
    
30.      ((= ddtype 12)(C:88))
    
31.    )
    
32.    )
    
33. )
    
34. (defun show_sld(key sld)
    
35.    (setq x (DIMx_tile key))
    
36.    (setq y (DIMY_tile key))
    
37.    (start_image key)
    
38.    (fill_image 0 0 x y -2)
    
39.    (slide_image 0 0 x y sld)
    
40.    (end_image)
    
41. )

(defun c:zz()<br />    (setvar "cmdecho" 0)<br />    (setq dcl_id (load_dialog "kimage"))<br />    (new_dialog "kimage" dcl_id)  <br />    (setq sldkeYI_list'("kimage1" "kimage2" "kimage3" "kimage8" "kimage9" "kimage10" "kimage11" "kimage12"))<br />    (setq sld_list'("kimage(kimage1)" "kimage(kimage2)" "kimage(kimage3)" "kimage(kimage4)" "kimage(kimage5)" "kimage(kimage6)" "kimage(kimage7)" "kimage(kimage8)"))<br />    (mapcar 'show_sld sldkeYI_list sld_list)<br />    (setq ddtype 1)<br />    (mode_tile "kimage1" 2)<br />    (action_tile "kimage1" "(setq ddtype 1)")<br />    (action_tile "kimage2" "(setq ddtype 2)")<br />    (action_tile "kimage3" "(setq ddtype 3)")<br />    (action_tile "kimage4" "(setq ddtype 4)")<br />    (action_tile "kimage5" "(setq ddtype 5)")<br />    (action_tile "kimage6" "(setq ddtype 6)")<br />    (action_tile "kimage7" "(setq ddtype 7)")<br />    (action_tile "kimage8" "(setq ddtype 8)")<br />    (action_tile "accept" "(done_dialog 1)")<br />    (setq dd(start_dialog))<br />    (if (= dd 1)<br />    (cond<br />      ((= ddtype 1)(C:11))<br />      ((= ddtype 2)(C:22))<br />      ((= ddtype 3)(C:33))<br />      ((= ddtype 8)(C:44))<br />      ((= ddtype 9)(C:55))<br />      ((= ddtype 10)(c:66))<br />      ((= ddtype 11)(C:77))<br />      ((= ddtype 12)(C:88))<br />    )<br />    )<br /> )<br /> (defun show_sld(key sld)<br />    (setq x (DIMx_tile key))<br />    (setq y (DIMY_tile key))<br />    (start_image key)<br />    (fill_image 0 0 x y -2)<br />    (slide_image 0 0 x y sld)<br />    (end_image)<br /> )

ymcui

2. 
   
3. kimage:dialog{
   
4.         label="工具1";
   
5.                 :column{
   
6. :row{
   
7.                 :column{
   
8.                 :text{label="11";alignment=centered;}
   
9.                 :image_button {
   
10.                         key = "kimage1";
    
11.                         color = -2;
    
12.                         width = 16;
    
13.                         aspect_ratio = 1;
    
14.                         allow_accept = true;
    
15.                         }}
    
16.                 :column{
    
17.                 :text{label="22";alignment=centered;}
    
18.                         :image_button {
    
19.                         key = "kimage2";
    
20.                         color = -2;
    
21.                         width = 16;
    
22.                         aspect_ratio = 1;
    
23.                         allow_accept = true;
    
24.                         }}
    
25.                 :column{
    
26.                 :text{label="33";alignment=centered;}
    
27.                 :image_button {
    
28.                         key = "kimage3";
    
29.                         color = -2;
    
30.                         width = 16;
    
31.                         aspect_ratio = 1;
    
32.                         allow_accept = true;
    
33.                         }}
    
34.                 :column{
    
35.                 :text{label="44";alignment=centered;}
    
36.                 :image_button {
    
37.                         key = "kimage4";
    
38.                         color = -2;
    
39.                         width = 16;
    
40.                         aspect_ratio = 1;
    
41.                         allow_accept = true;
    
42.                         }}
    
43.                         }
    
44. :row{
    
45.                 :column{
    
46.                 :text{label="55";alignment=centered;}
    
47.                 :image_button {
    
48.                         key = "kimage5";
    
49.                         color = -2;
    
50.                         width = 16;
    
51.                         aspect_ratio = 1;
    
52.                         allow_accept = true;
    
53.                         }}
    
54.                 :column{
    
55.                 :text{label="66";alignment=centered;}
    
56.                 :image_button {
    
57.                         key = "kimage6";
    
58.                         color = -2;
    
59.                         width = 16;
    
60.                         aspect_ratio = 1;
    
61.                         allow_accept = true;
    
62.                         }}
    
63.                 :column{
    
64.                 :text{label="77";alignment=centered;}
    
65.                 :image_button {
    
66.                         key = "kimage7";
    
67.                         color = -2;
    
68.                         width = 16;
    
69.                         aspect_ratio = 1;
    
70.                         allow_accept = true;
    
71.                         }}
    
72.                 :column{
    
73.                 :text{label="88";alignment=centered;}
    
74.                 :image_button {
    
75.                         key = "kimage8";
    
76.                         color = -2;
    
77.                         width = 16;
    
78.                         aspect_ratio = 1;
    
79.                         allow_accept = true;
    
80.                         }}
    
81.                         }
    
82. }
    
83.         ok_cancel;
    
84. }
    

<br /> kimage:dialog{<br />         label="工具1";<br />                 :column{<br /> :row{<br />                 :column{<br />                 :text{label="11";alignment=centered;}<br />                 :image_button {<br />                         key = "kimage1"; <br />                         color = -2;<br />                         width = 16;<br />                         aspect_ratio = 1;<br />                         allow_accept = true;<br />                         }}<br />                 :column{<br />                 :text{label="22";alignment=centered;}<br />                         :image_button {<br />                         key = "kimage2";<br />                         color = -2;<br />                         width = 16;<br />                         aspect_ratio = 1;<br />                         allow_accept = true;<br />                         }}<br />                 :column{<br />                 :text{label="33";alignment=centered;}<br />                 :image_button {<br />                         key = "kimage3";<br />                         color = -2;<br />                         width = 16;<br />                         aspect_ratio = 1;<br />                         allow_accept = true;<br />                         }}<br />                 :column{<br />                 :text{label="44";alignment=centered;}<br />                 :image_button {<br />                         key = "kimage4";<br />                         color = -2;<br />                         width = 16;<br />                         aspect_ratio = 1;<br />                         allow_accept = true;<br />                         }}<br />                         }<br /> :row{<br />                 :column{<br />                 :text{label="55";alignment=centered;}<br />                 :image_button {<br />                         key = "kimage5";<br />                         color = -2;<br />                         width = 16;<br />                         aspect_ratio = 1;<br />                         allow_accept = true;<br />                         }}<br />                 :column{<br />                 :text{label="66";alignment=centered;}<br />                 :image_button {<br />                         key = "kimage6";<br />                         color = -2;<br />                         width = 16;<br />                         aspect_ratio = 1;<br />                         allow_accept = true;<br />                         }}<br />                 :column{<br />                 :text{label="77";alignment=centered;}<br />                 :image_button {<br />                         key = "kimage7";<br />                         color = -2;<br />                         width = 16;<br />                         aspect_ratio = 1;<br />                         allow_accept = true;<br />                         }}<br />                 :column{<br />                 :text{label="88";alignment=centered;}<br />                 :image_button {<br />                         key = "kimage8";<br />                         color = -2;<br />                         width = 16;<br />                         aspect_ratio = 1;<br />                         allow_accept = true;<br />                         }}<br />                         }<br /> }<br />         ok_cancel;<br /> }<br />

zzyong00

(action_tile "kimage1" "(setq ddtype 1)");用户在对话框中选中这个控件时，就会执行(setq ddtype 1)
(setq dd(start_dialog))
   (if (= dd 1)
   (cond
     ((= ddtype 1)(C:11)) ;根据ddtype 决定执行哪个函数

Gu_xl

我的这个帖子里的示例代码有相关单击和双击的演示!
【Gu_xl】DWG图形到DCL IMAGE图像描点程序应用源码示例

ymcui

谢谢已解决