lisp程序编写图像输出

澷歩澐鍴

有谁懂得image控件的使用方法？？？？


该贴已经同步到 澷歩澐鍴的微博

hhh454

1. (defun c:tt ()
   
2.   (setvar "cmdecho" 0)
   
3.   (dcl_dia8b)
   
4.   (prin1)
   
5. )
   
6. (defun dcl_dia8b ()
   
7.   (setq dcl_id (load_dialog "dia8b"))
   
8.   (new_dialog "dia8b" dcl_id)
   
9.   (def_dia8b)
   
10.   (action_tile "kimage1 " " (setq ddtype 1)")
    
11.   (action_tile "kimage2 " " (setq ddtype 2)")
    
12.   (action_tile "kimage3 " " (setq ddtype 3)")
    
13.   (action_tile "kimage4 " " (setq ddtype 4)")
    
14.   (action_tile "accept" "(ok_dia8b) (done_dialog 1)")
    
15.   (setq dd (start_dialog))
    
16.   (if (= dd 1)
    
17.     (draw_dia8b)
    
18.   )
    
19. )
    
20. (defun def_dia8b ()
    
21.   (set_tile "kww" "100")
    
22.   (set_tile "khh" "100")
    
23.   (setq sldkey_list '("kimage1" "kimage2" "kimage3" "kimage4"))
    
24.   (setq sld_list '("dia8a1" "dia8a2" "dia8a3" "dia8a4"))
    
25.   (mapcar 'show_sld sldkey_list sld_list)
    
26. )
    
27. (defun show_sld (key sld)
    
28.   (setq x (dimx_tile key))
    
29.   (setq y (dimy_tile key))
    
30.   (start_image key)
    
31.   (fill_image 0 0 x y -2)
    
32.   (slide_image 0 0 x y sld)
    
33.   (end_image)
    
34. )
    
35. (defun ok_dia8b ()
    
36.   (setq ww (atof (get_tile "kww")))
    
37.   (setq hh (atof (get_tile "khh")))
    
38. )
    
39. (defun draw_dia8b ()
    
40.   (setq pt1 (getpoint "左下角基准点："))
    
41.   (setq pt2 (polar pt1 0 ww))
    
42.   (setq pt3 (polar pt2 (/ pi 2) hh))
    
43.   (setq pt4 (polar pt3 pi (* ww 0.5)))
    
44.   (setq pt5 (polar pt4 (* pi 1.5) (* hh 0.5)))
    
45.   (setq pt6 (polar pt5 pi (* ww 0.5)))
    
46. )
    
47.   (cond ((= ddtype 1)
    
48.   (command "pline" pt1 pt2 pt3 pt4 pt5 pt6 "c")
    
49. )
    
50. ((= ddtype 2)
    
51.   (command "pline" pt6 pt1 pt2 pt3 pt4 " ")
    
52.   (command "circle" "2p" pt4 pt6)
    
53. )
    
54. ((= ddtype 3)
    
55.   (command "pline" pt1 pt2 pt3 " ")
    
56.   (command "pline" pt4 pt5 pt6 " ")
    
57.   (command "circle" "2p" pt3 pt4)
    
58.   (command "circle" "2p" pt6 pt1)
    
59. 
    
60. ((= ddtype 4)
    
61.   (command "pline" pt1 pt2 pt3 pt4 "a" "a" -180 pt6 "L" "C")
    
62. )
    
63.   )
    
64. )
    
65. 
    
66. 
    
67. 
    
68. dia8b:dialog{
    
69.              label="图像按钮辅助[参数设计]范例";
    
70.              :boxed_column{ label="设计样式";
    
71.                              :row{    :image_button{   //图像按钮1
    
72.                                          key="kimage1";
    
73.                                            color=-2;
    
74.                                              width=30;//设置宽度
    
75.                                                 aspect_ratio=0.66;//设置看高比 宽/高
    
76.                                                     allow_accept=true;
    
77.                                                                 }
    
78.                         
    
79.                            
    
80.                                  :image_button{   //图像按钮2
    
81.                                           key="kimage2";
    
82.                                               color=-2;
    
83.                                                width=30;
    
84.                                                       aspect_ratio=0.66;
    
85.                                                         allow_accept=true;
    
86.                                                                  }
    
87.                                                                  }
    
88.                            
    
89.                               :row{
    
90.                                   :image_button{   //图像按钮3
    
91.                                           key="kimage3";
    
92.                                               color =-2;   //图像对象的背景颜色
    
93.                                                 width=30;
    
94.                                                        aspect_ratio=0.66;
    
95.                                                           allow_accept=true;  //同时激活按钮
    
96.                                                                  }
    
97.                
    
98.                              
    
99.                                    :image_button{   //图像按钮4
    
100.                                            key="kimage4";
     
101.                                               color=-2;
     
102.                                                  width=30;
     
103.                                                        aspect_ratio=0.66;
     
104.                                                            allow_accept=true;
     
105.                                                                   }
     
106.                                                                   }
     
107.                                                                   }
     
108.                         
     
109.                                :row{
     
110.                                :edit_box{label="宽度 ww" ; key="kww";}
     
111.                                :edit_box{label="高度 hh" ; key="khh";}
     
112.                                     }
     
113.                                            spacer_1;
     
114.                                                      ok_cancel;
     
115.                                                                   }

复制代码

pslstar

学习了啊