[LISP程序]：small icons in DCL

garcigj

所有申   
捐款   
神信息DCL

Hispacad Admin

2. 
   
3. ;;*****************************************************************************
   
4. ;; José Luís García Galán (r) 11 Abril, 06 para Hipacad.com                    
   
5. ;; Test de Mini Iconos en DLC                                                  
   
6. ;;*****************************************************************************
   
7. 
   
8. ;;-------------------------- C:TstDCLIco ------------------------------------------
   
9. ;; Cuadro de dialogo de Ejemplo de Mini Iconos                                    
   
10. ;;---------------------------------------------------------------------------------
    
11. (defun C:TstDCLIco ( / RutaDLG Accion idx $PlzNormaDib$ KeyToogle
    
12.                        ;|Funciones|; WriteDialogIconosDlg TestOK)
    
13.         ;-------------------------------------- WriteDialogPlzNorma ------------------------------------------------------
    
14.         ;  Escribe el cuadro de dialogo de seleccion de Test Iconos en el directorio temporal de Autocad                  
    
15.         ;-----------------------------------------------------------------------------------------------------------------
    
16.         (DEFUN WriteDialogIconosDlg ( / Path cs-var3 cs-var)
    
17.          (cond
    
18.           ((vl-file-directory-p (setq Path (getvar "TEMPPREFIX"))))
    
19.           (T (setq Path nil)(Alert "\nNo se pudo encontrar ruta para Cuadro de Dialogo.\n")(exit))
    
20.          );c.cond
    
21.          ;-------------------------------------------------------------
    
22.          (setq Path  (strcat Path "TestIconosDCL.dcl"))
    
23.          (setq cs-var  (open Path "w"))
    
24.                 (write-line "// ---------------------------------------------------------" cs-var)
    
25.                 (write-line "// CUADRO DE DIALOGO DE Pruebas de Iconos en DCL            " cs-var)
    
26.                 (write-line "// ---------------------------------------------------------" cs-var)
    
27.                 (write-line "//Controles Personales" cs-var)
    
28.                 (write-line "norbutton : button {" cs-var)
    
29.                 (write-line "            horizontal_margin = none;" cs-var)
    
30.                 (write-line "            vertical_margin = none;}" cs-var)
    
31.                 (write-line "nortoogle : toggle {" cs-var)
    
32.                 (write-line "            vertical_margin = none;}" cs-var)
    
33.                 (write-line "norlabel  : text_part {" cs-var)
    
34.                 (write-line "            fixed_width = true;" cs-var)
    
35.                 (write-line "            width = 10;}" cs-var)
    
36.                 (write-line "norimgInf : image {" cs-var)
    
37.                 (write-line "            horizontal_margin = none;" cs-var)
    
38.                 (write-line "            vertical_margin = none;" cs-var)
    
39.                 (write-line "            width = 3.26; " cs-var)
    
40.                 (write-line "            height = 1.51;" cs-var)
    
41.                 (write-line "            fixed_width = true;" cs-var)
    
42.                 (write-line "            fixed_height = true;" cs-var)
    
43.                 (write-line "            aspect_ratio = 1;" cs-var)
    
44.                 (write-line "            color = -15;}" cs-var)
    
45.                 (write-line "            " cs-var)
    
46.                 (write-line "IconosDCL : dialog {" cs-var)
    
47.                 (write-line " label = "Mini Iconos para DCL";" cs-var)
    
48.                 (write-line " : row {" cs-var)
    
49.                 (write-line "   children_fixed_height = true;" cs-var)
    
50.                 (write-line "   fixed_width = true;" cs-var)
    
51.                 (write-line "   children_alignment = top;" cs-var)
    
52.                 (write-line "   : column {" cs-var)
    
53.                 (write-line "     : spacer {width = 0.5;}" cs-var)
    
54.                 (write-line "     : image {" cs-var)
    
55.                 (write-line "      key = "imgInfo";" cs-var)
    
56.                 (write-line "      width = 5.42;" cs-var)
    
57.                 (write-line "      height = 2.51;" cs-var)
    
58.                 (write-line "      fixed_width = true;" cs-var)
    
59.                 (write-line "      fixed_height = true;" cs-var)
    
60.                 (write-line "      aspect_ratio = 1;" cs-var)
    
61.                 (write-line "      color = -15;" cs-var)
    
62.                 (write-line "      alignment = top;" cs-var)
    
63.                 (write-line "    }" cs-var)
    
64.                 (write-line "   }" cs-var)
    
65.                 (write-line "   : boxed_column {" cs-var)
    
66.                 (write-line "     : paragraph {" cs-var)
    
67.                 (write-line "       : text_part {key = "text1";}" cs-var)
    
68.                 (write-line "       : text_part {key = "text2";}" cs-var)
    
69.                 (write-line "     }" cs-var)
    
70.                 (write-line "     : spacer {width = 0.5;}" cs-var)
    
71.                 (write-line "     : row {" cs-var)
    
72.                 (write-line "       : row {" cs-var)
    
73.                 (write-line "         fixed_width = true;" cs-var)
    
74.                 (write-line "         children_alignment = bottom;" cs-var)
    
75.                 (write-line "         : norimgInf  {key = "00imginf";}" cs-var)
    
76.                 (write-line "         : nortoogle  {key = "00toogle";}" cs-var)
    
77.                 (write-line "         : norlabel   {key = "00label"; label = "Test OK";}" cs-var)
    
78.                 (write-line "       } // c.row" cs-var)
    
79.                 (write-line "       spacer_1 ;" cs-var)
    
80.                 (write-line "       : row {" cs-var)
    
81.                 (write-line "         fixed_width = true;" cs-var)
    
82.                 (write-line "         children_alignment = bottom;" cs-var)
    
83.                 (write-line "         : norimgInf  {key = "01imginf";}" cs-var)
    
84.                 (write-line "         : norbutton  {key = "01btninf";label = "1";}" cs-var)
    
85.                 (write-line "         : norbutton  {key = "02btninf";label = "2";}" cs-var)
    
86.                 (write-line "         : norbutton  {key = "03btninf";label = "3";}" cs-var)
    
87.                 (write-line "         : norbutton  {key = "04btninf";label = "4";}" cs-var)
    
88.                 (write-line "       } // c.row" cs-var)
    
89.                 (write-line "     }//;c.row" cs-var)
    
90.                 (write-line "     spacer_1 ;" cs-var)
    
91.                 (write-line "     spacer_1 ;" cs-var)
    
92.                 (write-line "     : row {" cs-var)
    
93.                 (write-line "       : spacer {width = 0.25;}" cs-var)
    
94.                 (write-line "       : column {children_alignment = centered;: norimgInf  {key = "OKIcon";}   : norlabel {label = "OK";}}" cs-var)
    
95.                 (write-line "       : column {children_alignment = centered;: norimgInf  {key = "AlertX";}   : norlabel {label = "Alerta";}}" cs-var)
    
96.                 (write-line "       : column {children_alignment = centered;: norimgInf  {key = "Exclam";}   : norlabel {label = "Exclam.";}}" cs-var)
    
97.                 (write-line "       : column {children_alignment = centered;: norimgInf  {key = "InfoIcon";} : norlabel {label = "Inform.";}}" cs-var)
    
98.                 (write-line "     }//;c.row" cs-var)
    
99.                 (write-line "   }//c.boxed_column" cs-var)
    
100.                 (write-line " }//c.row" cs-var)
     
101.                 (write-line " : spacer {width = 2;}" cs-var)
     
102.                 (write-line "  ok_only;" cs-var)
     
103.                 (write-line "}" cs-var)
     
104.          (close cs-var)
     
105.          Path
     
106.         );c.defun
     
107.         ;;___________________________________________
     
108.         ;;Accion toogle button
     
109.         (defun TestOK (val / )
     
110.          (cond ((= val "1") (OKIcon: "00imginf"))
     
111.                (T (AlertX: "00imginf")))
     
112.         );c.defun
     
113. ;;-------------------------------------- MAIN ----------------------------------------
     
114.   (if (null p_dia_InfNorma) (setq p_dia_InfNorma '(-1 -1)))
     
115.   (setq RutaDLG (WriteDialogIconosDlg))
     
116.   (setq idx (load_dialog RutaDLG))
     
117.   (if (not (new_dialog "IconosDCL" idx "" p_dia_SelPlzNorma)) (exit))
     
118.   ;;Asignaciones
     
119.   (set_tile "text1" "                    (c) José Luis García Gálan")
     
120.   (set_tile "text2" "Ejemplos de Iconos en Cuadros de Dialogo (DCL)")
     
121.   (AlertX: "00imginf")
     
122.   (OKIcon: "OKIcon")
     
123.   (AlertX: "AlertX")
     
124.   (Exclam: "Exclam")
     
125.   (InfoIcon: "InfoIcon")
     
126.   (InformG: "imgInfo")
     
127.   ;;Acciones
     
128.   (action_tile "00toogle" "(TestOK $value)")
     
129.   (action_tile "01btninf" "(OKIcon: "01imginf")")
     
130.   (action_tile "02btninf" "(AlertX: "01imginf")")
     
131.   (action_tile "03btninf" "(Exclam: "01imginf")")
     
132.   (action_tile "04btninf" "(InfoIcon: "01imginf")")
     
133.   (action_tile "accept" "(setq p_dia_SelPlzNorma (done_dialog 1))")
     
134.   ;;Inicializa
     
135.   (setq Accion (start_dialog))
     
136.   (cond
     
137.    ((= Accion 1)
     
138.     (unload_dialog idx)
     
139.    )
     
140.   );c.cond
     
141. );c.defun
     
142. 
     
143. 
     
144. ;;******************************************************************************
     
145. ;;                                                                              
     
146. ;;                               MINI ICONOS                                    
     
147. ;;                                                                              
     
148. ;;******************************************************************************
     
149. ;; (c) José Luis García Galán                                                   
     
150. ;-------------------------------------------------------------------------------
     
151. ; AlertX: - Alert X icon PEQUEÑO                                                
     
152. ;-------------------------------------------------------------------------------
     
153. (defun AlertX:        (keyImg / l a)
     
154. (start_image keyImg)
     
155. (setq l (dimx_tile keyImg)
     
156.        a (dimy_tile keyImg))
     
157. (fill_image 0 0 l a -2)
     
158. (vector_line
     
159.   (list        "C" 1 5        1 9 0 14 1 5 1 15 2 4 2        16 3 3 3 17 4 2        4 18 5 1 5 18 6        1 6 19 7 0 7 19        8 0
     
160.         8 19 9 0 9 19 10 0 10 19 11 0 11 19 12 0 12 18 13 1 13 18 14 1 14 17 15        2 15 16        16 3
     
161.         16 15 17 4 17 14 18 5 18 9 19 14 18))
     
162. (vector_line
     
163.   (list        "C" 255        6 13 13        6 "C" 255 6 6 13 13 "C"        255 12 14 5 7 13 14 5 6        14 13 6        5 14 12        7 5
     
164.         "C" 255        5 12 12        5 5 13 13 5 6 14 14 6 7        14 14 7))
     
165. (vector_line
     
166.   (list        "C" 16 0 10 1 6        3 3 6 1        10 0 13        1 16 3 18 6 19 10 18 13        16 16 13 18 9 19 6 18 3        16 1
     
167.         13 0 10))
     
168. (end_image)
     
169. );defun AlertX:
     
170. ;-------------------------------------------------------------------------------
     
171. ; Exclam: - Exclamation icon PEQUEÑO                                            
     
172. ;-------------------------------------------------------------------------------
     
173. (defun Exclam:        (keyImg / l a)
     
174. (start_image keyImg)
     
175. (setq l (dimx_tile keyImg)
     
176.        a (dimy_tile keyImg))
     
177. (fill_image 0 0 l a -2)
     
178. (vector_line
     
179.   (list        "C" 2 17 18 2 18 17 17 1 17 16 16 2 16 16 15 2 15 16 14        3 14 15        13 3 13        15 12 3        12
     
180.         14 11 4        11 14 10 5 10 13 9 5 9 13 8 5 8        12 7 6 7 12 6 6        6 11 5 7 5 11 4        7 4 10 3 8 3
     
181.         10 2 8 2 9 1))
     
182. (vector_line
     
183.   (list        "C" 250        9 14 10        12 11 8        10 7 8 7 7 8 8 12 9 14 "C" 250 10 7 8 8        10 8 8 9 10 9 8        10
     
184.         10 10 9        11 9 13        "C" 250        9 15 8 15 8 16 8 17 9 17 10 17 10 16 10        15 9 15        10 17 8        15 8
     
185.         17 10 15))
     
186. (vector_line
     
187.   (list        "C" 8 17 19 19 18 12 3 10 2 11 3 12 4 12 5 12 6        13 6 13        7 13 8 14 8 14 9 14 10 15 10
     
188.         15 11 15 12 16 12 16 14        17 14 17 16 18 16 18 17        18 18))
     
189. (vector_line (list "C" 54 2 19 1 18 8 2 9 1 10 2))
     
190. (vector_line (list "C" 250 10 2 17 18 17 19 1 19))
     
191. (end_image)
     
192. );defun Exclam:
     
193. ;-------------------------------------------------------------------------------
     
194. ; OKIcon - OK icon PEQUEÑO                                                      
     
195. ;-------------------------------------------------------------------------------
     
196. (defun OKIcon:        (keyImg / l a)
     
197. (start_image keyImg)
     
198. (setq l (dimx_tile keyImg)
     
199.        a (dimy_tile keyImg))
     
200. (fill_image 0 0 l a -2)
     
201. (vector_line
     
202.   (list        "C" 8 15 3 17 5        18 8 18        10 18 11 17 13 16 15 14        17 11 18 9 18 6        17 4 16        3 15 7 17 8
     
203.         17 10 18 10 17 12 17 13        16 13 17 14 16 14 15 15        16 15 14 16 15 16 13 17        13 16 12 17
     
204.         12 16 11 18 11 16 10 18        10 17 9        18 9 17        8 18 8 17 7 17 6 17 5 16 5 16 4))
     
205. (vector_line
     
206.   (list        "C" 255        8 0 9 0        5 1 12 1 3 2 14        2 2 3 15 3 2 4 15 4 1 5        16 5 1 6 16 6 1        7 16 7 0 8
     
207.         17 8 0 9 17 9 0        10 16 10 1 11 16 11 1 12 16 12 1 13 15 13 2 14 15 14 3 15 14 15        5 16
     
208.         12 16 6        17 10 17))
     
209. (vector_line
     
210.   (list        "C" 96 8 17 6 17 4 16 3        15 2 14        1 13 0 10 0 8 1        6 1 5 2        3 3 2 4        1 6 0 8        0 9 0 11 0
     
211.         13 1 14        2 15 3 16 4 17 7 17 9 17 11 16 12 15 14        14 15 13 16 10 17 8 17))
     
212. (vector_line (list "C" 8 8 11 8 10 7 10 8 9 6 9 6 8 8 9 8 10))
     
213. (vector_line (list "C" 8 8 14 10 15 19 0 9 14 10 14 16 5 10 13 10 14))
     
214. (vector_line
     
215.   (list        "C" 62 2 8 6 9 3 9 7 10        4 10 8 11 5 11 8 12 6 12 8 13 7        13 8 14        19 0 8 13 8 12 19 0))
     
216. (vector_line (list "C" 96 2 8 6 8 8 11 19 0 8 15 2 8))
     
217. (end_image)
     
218. );defun OKIcon:
     
219. 
     
220. ;-------------------------------------------------------------------------------
     
221. ; InfoIcon: - Information icon PEQUEÑO                                          
     
222. ;-------------------------------------------------------------------------------
     
223. (defun InfoIcon: (keyImg / l a)
     
224. (start_image keyImg)
     
225. (setq l (dimx_tile keyImg)
     
226.        a (dimy_tile keyImg))
     
227. (fill_image 0 0 l a -2)
     
228. (vector_line
     
229.   (list        "C" 255        9 0 13 1 5 1 15        2 3 2 16 3 2 3 17 4 2 4        17 5 1 5 18 6 1        6 18 7 0 7 18 8        0 8
     
230.                 18 9 0 9 18 10 0 10 18 11 0 11 17 12 1 12 17 13        1 13 16        14 2 14        15 15 3        15 14 16 4
     
231.                 16 12 17 8 17 9        17 10 19))
     
232. (vector_line
     
233.   (list        "C" 8 10 17 11 17 12 17        13 17 14 16 15 16 16 15        17 14 18 13 18 12 19 11        19 10 19 9
     
234.               19 8 19 7 19 6 18 5 18 4 17 3 16 2 15 1 14 1 13 1 12 0 11 0 10 0 11 0 12 0 13 1 14 1
     
235.               15 2 16 3 17 4 18 5 18 6 18 7 18 8 18 9 18 10 18 11 18 12 17 13 16 14 16 15 15 15 15
     
236.               16 14 16 13 17 12 17 10 17))
     
237. (vector_line
     
238.   (list        "C" 250 10 19 8 17 7 17 6 17 5 16 4 16 3 15 2 14 1 13 1 12 0 10 0 8 0 7 1 6 1 5 2 3 3 2
     
239.                 4 1 6 1 8 0 9 0 10 0 12 0 13 1 14 2 15 2 16 3 17 4 17 6 18 7 18 8 18 9 18 11 17
     
240.                 12 17 13 16 14 15 15 14 16 13 16 12 17 11 17 10 17 10 19))
     
241. (vector_line
     
242.   (list        "C" 5 5 14 13 14 11 14 11 7 6 7 8 7 8 14 5 14
     
243.         "C" 5 8 5 11 5 11 3 8 3 8 5))
     
244. (vector_line
     
245.   (list "C" 5 8 7 11 8 8 8 11 9 8 9 11 10 8 10 11 11 8 11 11 12 8 12 11 13 8 13 11 14
     
246.         "C" 5 8 3 11 4 8 4 11 5))
     
247. (end_image)
     
248. );defun OKIcon:
     
249. 
     
250. 
     
251. ;;este icono es del programa: GetIcon.lsp de Terry Miller
     
252. ;-------------------------------------------------------------------------------
     
253. ; Inform: - Informacion icon GRANDE                                             
     
254. ;-------------------------------------------------------------------------------
     
255. (defun InformG: ( keyImg / l a)
     
256. (start_image keyImg)
     
257. (setq l (dimx_tile keyImg)
     
258.        a (dimy_tile keyImg))
     
259. (fill_image 0 0 l a -2)
     
260.   (vector_line (list "C" 9 19 2 22 3 24 4 28 8 29 10 29 16 28 18 24 22 22 23
     
261.     19 24 15 25 12 24 9 23 7 22 3 18 2 16 2 10 3 8 7 4 9 3 12 2)
     
262.   );vector_line
     
263.   (vector_line (list "C" 255 2 15 2 11 "C" 255 3 17 3 9 "C" 255 4 19 4 7 5 6
     
264.     5 20 6 21 6 5 7 5 7 21 8 22 8 4 9 4 9 22 10 23 10 3 11 3 11 23 12 23 12 3
     
265.     13 2 13 24 14 24 14 2 15 2 15 24 "C" 255 16 27 16 2 17 2 17 28 18 29 18 2
     
266.     19 3 19 23 20 23 20 3 21 3 21 23 22 22 22 4 23 4 23 22 24 21 24 5 25 5 25
     
267.     21 26 20 26 6 27 7 27 19 "C" 255 28 17 28 9 "C" 255 29 15 29 11)
     
268.   );vector_line
     
269.   (vector_line (list "C" 5 13 7 13 6 14 5 14 8 15 8 15 5 16 5 16 8 17 8 17 5
     
270.     18 6 18 7 "C" 5 12 11 14 11 14 19 15 19 15 11 16 11 16 19 17 19 17 11 18
     
271.     11 18 19 20 19 "C" 5 12 19 13 19)
     
272.   );vector_line
     
273.   (vector_line (list "C" 250 4 20 7 23 8 23 9 24 11 24 12 25 14 25 15 26 15
     
274.     27 18 30 19 30 19 25 20 24 22 24 23 23 24 23 29 18 29 17 30 16 30 10 29 9
     
275.     29 8 26 5)
     
276.   );vector_line
     
277.   (vector_line (list "C" 9 13 5 13 5 "C" 9 13 8 13 8 "C" 9 18 8 18 8 "C" 9 18
     
278.     5 18 5)
     
279.   );vector_line
     
280.   (vector_line (list "C" 8 3 19 2 18 2 17 1 16 1 10 2 9 2 8 7 3 8 3 9 2 11 2
     
281.     12 1 19 1 20 2 22 2 23 3 24 3 25 4 "C" 8 8 24 9 25 11 25 11 26 14 26 14
     
282.     27 "C" 8 19 31 20 32 20 25 21 25 21 32 "C" 8 22 26 22 25 23 24 23 26 24
     
283.     26 24 24 25 23 25 25 26 25 26 22 27 21 27 24 28 23 28 20 29 19 29 22 30
     
284.     21 30 17 "C" 8 31 20 31 10 30 9 "C" 8 32 18 32 12)
     
285.   );vector_line
     
286.   (end_image)
     
287. );defun Inform:
     
288. 
     
289. ;------------------------------ vector_line-------------------------------------
     
290. ; vector_line - Dibuja vector en un control de image                           
     
291. ;-------------------------------------------------------------------------------
     
292. (defun vector_line  (VectorList / Rep# X# Y# X1# Y1# X2# Y2# Color#)
     
293. (if (= (type VectorList) 'LIST)
     
294.   (progn
     
295.    (setq Rep# 0)
     
296.    (repeat (/ (length VectorList) 2)
     
297.     (setq X# (nth Rep# VectorList)
     
298.           Y# (nth (+ Rep# 1) VectorList))
     
299.     (if        (and (= (type X#) 'STR) (= (type Y#) 'INT))
     
300.      (if (= (strcase X# "C"))
     
301.       (setq Color# Y#
     
302.             X1#        nil
     
303.             Y1#        nil
     
304.             X2#        nil
     
305.             Y2#        nil)
     
306.      );c.if
     
307.      (if (and (= (type X#) 'INT) (= (type Y#) 'INT))
     
308.       (if (and (= X1# nil) (= Y1# nil))
     
309.        (setq X1# X#
     
310.              Y1# Y#)
     
311.        (progn
     
312.         (setq X2# X#
     
313.               Y2# Y#)
     
314.         (vector_image X1# Y1# X2# Y2# Color#)
     
315.         (setq X1# X2#
     
316.               Y1# Y2#
     
317.               X#  nil
     
318.               Y#  nil)
     
319.        );c.prg
     
320.       );c.if
     
321.      );c.if
     
322.     );c.if
     
323.     (setq Rep# (+ Rep# 2))
     
324.    );c.repeat
     
325.   );c.prg
     
326. );c.if
     
327. );c.defun
     
328. (princ)

<br /> ;;*****************************************************************************<br /> ;; José Luís García Galán (r) 11 Abril, 06 para Hipacad.com                    <br /> ;; Test de Mini Iconos en DLC                                                  <br /> ;;*****************************************************************************<br /> <br /> ;;-------------------------- C:TstDCLIco ------------------------------------------<br /> ;; Cuadro de dialogo de Ejemplo de Mini Iconos                                     <br /> ;;---------------------------------------------------------------------------------<br /> (defun C:TstDCLIco ( / RutaDLG Accion idx $PlzNormaDib$ KeyToogle<br />                        ;|Funciones|; WriteDialogIconosDlg TestOK)<br />         ;-------------------------------------- WriteDialogPlzNorma ------------------------------------------------------<br />         ;  Escribe el cuadro de dialogo de seleccion de Test Iconos en el directorio temporal de Autocad                  <br />         ;-----------------------------------------------------------------------------------------------------------------<br />         (DEFUN WriteDialogIconosDlg ( / Path cs-var3 cs-var)<br />          (cond<br />           ((vl-file-directory-p (setq Path (getvar "TEMPPREFIX"))))<br />           (T (setq Path nil)(Alert "\nNo se pudo encontrar ruta para Cuadro de Dialogo.\n")(exit))<br />          );c.cond<br />          ;-------------------------------------------------------------<br />          (setq Path  (strcat Path "TestIconosDCL.dcl"))<br />          (setq cs-var  (open Path "w"))<br />                 (write-line "// ---------------------------------------------------------" cs-var)<br />                 (write-line "// CUADRO DE DIALOGO DE Pruebas de Iconos en DCL            " cs-var)<br />                 (write-line "// ---------------------------------------------------------" cs-var)<br />                 (write-line "//Controles Personales" cs-var)<br />                 (write-line "norbutton : button {" cs-var)<br />                 (write-line "            horizontal_margin = none;" cs-var)<br />                 (write-line "            vertical_margin = none;}" cs-var)<br />                 (write-line "nortoogle : toggle {" cs-var)<br />                 (write-line "            vertical_margin = none;}" cs-var)<br />                 (write-line "norlabel  : text_part {" cs-var)<br />                 (write-line "            fixed_width = true;" cs-var)<br />                 (write-line "            width = 10;}" cs-var)<br />                 (write-line "norimgInf : image {" cs-var)<br />                 (write-line "            horizontal_margin = none;" cs-var)<br />                 (write-line "            vertical_margin = none;" cs-var)<br />                 (write-line "            width = 3.26; " cs-var)<br />                 (write-line "            height = 1.51;" cs-var)<br />                 (write-line "            fixed_width = true;" cs-var)<br />                 (write-line "            fixed_height = true;" cs-var)<br />                 (write-line "            aspect_ratio = 1;" cs-var)<br />                 (write-line "            color = -15;}" cs-var)<br />                 (write-line "            " cs-var)<br />                 (write-line "IconosDCL : dialog {" cs-var)<br />                 (write-line " label = "Mini Iconos para DCL";" cs-var)<br />                 (write-line " : row {" cs-var)<br />                 (write-line "   children_fixed_height = true;" cs-var)<br />                 (write-line "   fixed_width = true;" cs-var)<br />                 (write-line "   children_alignment = top;" cs-var)<br />                 (write-line "   : column {" cs-var)<br />                 (write-line "     : spacer {width = 0.5;}" cs-var)<br />                 (write-line "     : image {" cs-var)<br />                 (write-line "      key = "imgInfo";" cs-var)<br />                 (write-line "      width = 5.42;" cs-var)<br />                 (write-line "      height = 2.51;" cs-var)<br />                 (write-line "      fixed_width = true;" cs-var)<br />                 (write-line "      fixed_height = true;" cs-var)<br />                 (write-line "      aspect_ratio = 1;" cs-var)<br />                 (write-line "      color = -15;" cs-var)<br />                 (write-line "      alignment = top;" cs-var)<br />                 (write-line "    }" cs-var)<br />                 (write-line "   }" cs-var)<br />                 (write-line "   : boxed_column {" cs-var)<br />                 (write-line "     : paragraph {" cs-var)<br />                 (write-line "       : text_part {key = "text1";}" cs-var)<br />                 (write-line "       : text_part {key = "text2";}" cs-var)<br />                 (write-line "     }" cs-var)<br />                 (write-line "     : spacer {width = 0.5;}" cs-var)<br />                 (write-line "     : row {" cs-var)<br />                 (write-line "       : row {" cs-var)<br />                 (write-line "         fixed_width = true;" cs-var)<br />                 (write-line "         children_alignment = bottom;" cs-var)<br />                 (write-line "         : norimgInf  {key = "00imginf";}" cs-var)<br />                 (write-line "         : nortoogle  {key = "00toogle";}" cs-var)<br />                 (write-line "         : norlabel   {key = "00label"; label = "Test OK";}" cs-var)<br />                 (write-line "       } // c.row" cs-var)<br />                 (write-line "       spacer_1 ;" cs-var)<br />                 (write-line "       : row {" cs-var)<br />                 (write-line "         fixed_width = true;" cs-var)<br />                 (write-line "         children_alignment = bottom;" cs-var)<br />                 (write-line "         : norimgInf  {key = "01imginf";}" cs-var)<br />                 (write-line "         : norbutton  {key = "01btninf";label = "1";}" cs-var)<br />                 (write-line "         : norbutton  {key = "02btninf";label = "2";}" cs-var)<br />                 (write-line "         : norbutton  {key = "03btninf";label = "3";}" cs-var)<br />                 (write-line "         : norbutton  {key = "04btninf";label = "4";}" cs-var)<br />                 (write-line "       } // c.row" cs-var)<br />                 (write-line "     }//;c.row" cs-var)<br />                 (write-line "     spacer_1 ;" cs-var)<br />                 (write-line "     spacer_1 ;" cs-var)<br />                 (write-line "     : row {" cs-var)<br />                 (write-line "       : spacer {width = 0.25;}" cs-var)<br />                 (write-line "       : column {children_alignment = centered;: norimgInf  {key = "OKIcon";}   : norlabel {label = "OK";}}" cs-var)<br />                 (write-line "       : column {children_alignment = centered;: norimgInf  {key = "AlertX";}   : norlabel {label = "Alerta";}}" cs-var)<br />                 (write-line "       : column {children_alignment = centered;: norimgInf  {key = "Exclam";}   : norlabel {label = "Exclam.";}}" cs-var)<br />                 (write-line "       : column {children_alignment = centered;: norimgInf  {key = "InfoIcon";} : norlabel {label = "Inform.";}}" cs-var)<br />                 (write-line "     }//;c.row" cs-var)<br />                 (write-line "   }//c.boxed_column" cs-var)<br />                 (write-line " }//c.row" cs-var)<br />                 (write-line " : spacer {width = 2;}" cs-var)<br />                 (write-line "  ok_only;" cs-var)<br />                 (write-line "}" cs-var)<br />          (close cs-var)<br />          Path<br />         );c.defun<br />         ;;___________________________________________<br />         ;;Accion toogle button<br />         (defun TestOK (val / )<br />          (cond ((= val "1") (OKIcon: "00imginf"))<br />                (T (AlertX: "00imginf")))<br />         );c.defun<br /> ;;-------------------------------------- MAIN ----------------------------------------<br />   (if (null p_dia_InfNorma) (setq p_dia_InfNorma '(-1 -1)))<br />   (setq RutaDLG (WriteDialogIconosDlg))<br />   (setq idx (load_dialog RutaDLG)) <br />   (if (not (new_dialog "IconosDCL" idx "" p_dia_SelPlzNorma)) (exit))<br />   ;;Asignaciones<br />   (set_tile "text1" "                    (c) José Luis García Gálan")<br />   (set_tile "text2" "Ejemplos de Iconos en Cuadros de Dialogo (DCL)")<br />   (AlertX: "00imginf")<br />   (OKIcon: "OKIcon")<br />   (AlertX: "AlertX")<br />   (Exclam: "Exclam")<br />   (InfoIcon: "InfoIcon")<br />   (InformG: "imgInfo")<br />   ;;Acciones<br />   (action_tile "00toogle" "(TestOK $value)")<br />   (action_tile "01btninf" "(OKIcon: "01imginf")")<br />   (action_tile "02btninf" "(AlertX: "01imginf")")<br />   (action_tile "03btninf" "(Exclam: "01imginf")")<br />   (action_tile "04btninf" "(InfoIcon: "01imginf")")<br />   (action_tile "accept" "(setq p_dia_SelPlzNorma (done_dialog 1))")<br />   ;;Inicializa<br />   (setq Accion (start_dialog))<br />   (cond<br />    ((= Accion 1)<br />     (unload_dialog idx)<br />    )<br />   );c.cond<br /> );c.defun<br /> <br /> <br /> ;;******************************************************************************<br /> ;;                                                                              <br /> ;;                               MINI ICONOS                                    <br /> ;;                                                                              <br /> ;;******************************************************************************<br /> ;; (c) José Luis García Galán                                                   <br /> ;-------------------------------------------------------------------------------<br /> ; AlertX: - Alert X icon PEQUE&#209;O                                                <br /> ;-------------------------------------------------------------------------------<br /> (defun AlertX:        (keyImg / l a)<br /> (start_image keyImg)<br /> (setq l (dimx_tile keyImg)<br />        a (dimy_tile keyImg))<br /> (fill_image 0 0 l a -2)<br /> (vector_line<br />   (list        "C" 1 5        1 9 0 14 1 5 1 15 2 4 2        16 3 3 3 17 4 2        4 18 5 1 5 18 6        1 6 19 7 0 7 19        8 0<br />         8 19 9 0 9 19 10 0 10 19 11 0 11 19 12 0 12 18 13 1 13 18 14 1 14 17 15        2 15 16        16 3<br />         16 15 17 4 17 14 18 5 18 9 19 14 18))<br /> (vector_line<br />   (list        "C" 255        6 13 13        6 "C" 255 6 6 13 13 "C"        255 12 14 5 7 13 14 5 6        14 13 6        5 14 12        7 5<br />         "C" 255        5 12 12        5 5 13 13 5 6 14 14 6 7        14 14 7))<br /> (vector_line<br />   (list        "C" 16 0 10 1 6        3 3 6 1        10 0 13        1 16 3 18 6 19 10 18 13        16 16 13 18 9 19 6 18 3        16 1<br />         13 0 10))<br /> (end_image)<br /> );defun AlertX:<br /> ;-------------------------------------------------------------------------------<br /> ; Exclam: - Exclamation icon PEQUE&#209;O                                            <br /> ;-------------------------------------------------------------------------------<br /> (defun Exclam:        (keyImg / l a)<br /> (start_image keyImg)<br /> (setq l (dimx_tile keyImg)<br />        a (dimy_tile keyImg))<br /> (fill_image 0 0 l a -2)<br /> (vector_line<br />   (list        "C" 2 17 18 2 18 17 17 1 17 16 16 2 16 16 15 2 15 16 14        3 14 15        13 3 13        15 12 3        12<br />         14 11 4        11 14 10 5 10 13 9 5 9 13 8 5 8        12 7 6 7 12 6 6        6 11 5 7 5 11 4        7 4 10 3 8 3<br />         10 2 8 2 9 1))<br /> (vector_line<br />   (list        "C" 250        9 14 10        12 11 8        10 7 8 7 7 8 8 12 9 14 "C" 250 10 7 8 8        10 8 8 9 10 9 8        10<br />         10 10 9        11 9 13        "C" 250        9 15 8 15 8 16 8 17 9 17 10 17 10 16 10        15 9 15        10 17 8        15 8<br />         17 10 15))<br /> (vector_line<br />   (list        "C" 8 17 19 19 18 12 3 10 2 11 3 12 4 12 5 12 6        13 6 13        7 13 8 14 8 14 9 14 10 15 10<br />         15 11 15 12 16 12 16 14        17 14 17 16 18 16 18 17        18 18))<br /> (vector_line (list "C" 54 2 19 1 18 8 2 9 1 10 2))<br /> (vector_line (list "C" 250 10 2 17 18 17 19 1 19))<br /> (end_image)<br /> );defun Exclam:<br /> ;-------------------------------------------------------------------------------<br /> ; OKIcon - OK icon PEQUE&#209;O                                                      <br /> ;-------------------------------------------------------------------------------<br /> (defun OKIcon:        (keyImg / l a)<br /> (start_image keyImg)<br /> (setq l (dimx_tile keyImg)<br />        a (dimy_tile keyImg))<br /> (fill_image 0 0 l a -2)<br /> (vector_line<br />   (list        "C" 8 15 3 17 5        18 8 18        10 18 11 17 13 16 15 14        17 11 18 9 18 6        17 4 16        3 15 7 17 8<br />         17 10 18 10 17 12 17 13        16 13 17 14 16 14 15 15        16 15 14 16 15 16 13 17        13 16 12 17<br />         12 16 11 18 11 16 10 18        10 17 9        18 9 17        8 18 8 17 7 17 6 17 5 16 5 16 4))<br /> (vector_line<br />   (list        "C" 255        8 0 9 0        5 1 12 1 3 2 14        2 2 3 15 3 2 4 15 4 1 5        16 5 1 6 16 6 1        7 16 7 0 8<br />         17 8 0 9 17 9 0        10 16 10 1 11 16 11 1 12 16 12 1 13 15 13 2 14 15 14 3 15 14 15        5 16<br />         12 16 6        17 10 17))<br /> (vector_line<br />   (list        "C" 96 8 17 6 17 4 16 3        15 2 14        1 13 0 10 0 8 1        6 1 5 2        3 3 2 4        1 6 0 8        0 9 0 11 0<br />         13 1 14        2 15 3 16 4 17 7 17 9 17 11 16 12 15 14        14 15 13 16 10 17 8 17))<br /> (vector_line (list "C" 8 8 11 8 10 7 10 8 9 6 9 6 8 8 9 8 10))<br /> (vector_line (list "C" 8 8 14 10 15 19 0 9 14 10 14 16 5 10 13 10 14))<br /> (vector_line<br />   (list        "C" 62 2 8 6 9 3 9 7 10        4 10 8 11 5 11 8 12 6 12 8 13 7        13 8 14        19 0 8 13 8 12 19 0))<br /> (vector_line (list "C" 96 2 8 6 8 8 11 19 0 8 15 2 8))<br /> (end_image)<br /> );defun OKIcon:<br /> <br /> ;-------------------------------------------------------------------------------<br /> ; InfoIcon: - Information icon PEQUE&#209;O                                          <br /> ;-------------------------------------------------------------------------------<br /> (defun InfoIcon: (keyImg / l a)<br /> (start_image keyImg)<br /> (setq l (dimx_tile keyImg)<br />        a (dimy_tile keyImg))<br /> (fill_image 0 0 l a -2)<br /> (vector_line<br />   (list        "C" 255        9 0 13 1 5 1 15        2 3 2 16 3 2 3 17 4 2 4        17 5 1 5 18 6 1        6 18 7 0 7 18 8        0 8<br />                 18 9 0 9 18 10 0 10 18 11 0 11 17 12 1 12 17 13        1 13 16        14 2 14        15 15 3        15 14 16 4<br />                 16 12 17 8 17 9        17 10 19))<br /> (vector_line<br />   (list        "C" 8 10 17 11 17 12 17        13 17 14 16 15 16 16 15        17 14 18 13 18 12 19 11        19 10 19 9<br />               19 8 19 7 19 6 18 5 18 4 17 3 16 2 15 1 14 1 13 1 12 0 11 0 10 0 11 0 12 0 13 1 14 1<br />               15 2 16 3 17 4 18 5 18 6 18 7 18 8 18 9 18 10 18 11 18 12 17 13 16 14 16 15 15 15 15<br />               16 14 16 13 17 12 17 10 17))<br /> (vector_line<br />   (list        "C" 250 10 19 8 17 7 17 6 17 5 16 4 16 3 15 2 14 1 13 1 12 0 10 0 8 0 7 1 6 1 5 2 3 3 2 <br />                 4 1 6 1 8 0 9 0 10 0 12 0 13 1 14 2 15 2 16 3 17 4 17 6 18 7 18 8 18 9 18 11 17 <br />                 12 17 13 16 14 15 15 14 16 13 16 12 17 11 17 10 17 10 19))<br /> (vector_line<br />   (list        "C" 5 5 14 13 14 11 14 11 7 6 7 8 7 8 14 5 14<br />         "C" 5 8 5 11 5 11 3 8 3 8 5))<br /> (vector_line<br />   (list "C" 5 8 7 11 8 8 8 11 9 8 9 11 10 8 10 11 11 8 11 11 12 8 12 11 13 8 13 11 14<br />         "C" 5 8 3 11 4 8 4 11 5))<br /> (end_image)<br /> );defun OKIcon:<br /> <br /> <br /> ;;este icono es del programa: GetIcon.lsp de Terry Miller<br /> ;-------------------------------------------------------------------------------<br /> ; Inform: - Informacion icon GRANDE                                             <br /> ;-------------------------------------------------------------------------------<br /> (defun InformG: ( keyImg / l a)<br /> (start_image keyImg)<br /> (setq l (dimx_tile keyImg)<br />        a (dimy_tile keyImg))<br /> (fill_image 0 0 l a -2)<br />   (vector_line (list "C" 9 19 2 22 3 24 4 28 8 29 10 29 16 28 18 24 22 22 23<br />     19 24 15 25 12 24 9 23 7 22 3 18 2 16 2 10 3 8 7 4 9 3 12 2)<br />   );vector_line<br />   (vector_line (list "C" 255 2 15 2 11 "C" 255 3 17 3 9 "C" 255 4 19 4 7 5 6<br />     5 20 6 21 6 5 7 5 7 21 8 22 8 4 9 4 9 22 10 23 10 3 11 3 11 23 12 23 12 3<br />     13 2 13 24 14 24 14 2 15 2 15 24 "C" 255 16 27 16 2 17 2 17 28 18 29 18 2<br />     19 3 19 23 20 23 20 3 21 3 21 23 22 22 22 4 23 4 23 22 24 21 24 5 25 5 25<br />     21 26 20 26 6 27 7 27 19 "C" 255 28 17 28 9 "C" 255 29 15 29 11)<br />   );vector_line<br />   (vector_line (list "C" 5 13 7 13 6 14 5 14 8 15 8 15 5 16 5 16 8 17 8 17 5<br />     18 6 18 7 "C" 5 12 11 14 11 14 19 15 19 15 11 16 11 16 19 17 19 17 11 18<br />     11 18 19 20 19 "C" 5 12 19 13 19)<br />   );vector_line<br />   (vector_line (list "C" 250 4 20 7 23 8 23 9 24 11 24 12 25 14 25 15 26 15<br />     27 18 30 19 30 19 25 20 24 22 24 23 23 24 23 29 18 29 17 30 16 30 10 29 9<br />     29 8 26 5)<br />   );vector_line<br />   (vector_line (list "C" 9 13 5 13 5 "C" 9 13 8 13 8 "C" 9 18 8 18 8 "C" 9 18<br />     5 18 5)<br />   );vector_line<br />   (vector_line (list "C" 8 3 19 2 18 2 17 1 16 1 10 2 9 2 8 7 3 8 3 9 2 11 2<br />     12 1 19 1 20 2 22 2 23 3 24 3 25 4 "C" 8 8 24 9 25 11 25 11 26 14 26 14<br />     27 "C" 8 19 31 20 32 20 25 21 25 21 32 "C" 8 22 26 22 25 23 24 23 26 24<br />     26 24 24 25 23 25 25 26 25 26 22 27 21 27 24 28 23 28 20 29 19 29 22 30<br />     21 30 17 "C" 8 31 20 31 10 30 9 "C" 8 32 18 32 12)<br />   );vector_line<br />   (end_image)<br /> );defun Inform:<br /> <br /> ;------------------------------ vector_line-------------------------------------<br /> ; vector_line - Dibuja vector en un control de image                            <br /> ;-------------------------------------------------------------------------------<br /> (defun vector_line  (VectorList / Rep# X# Y# X1# Y1# X2# Y2# Color#)<br /> (if (= (type VectorList) 'LIST)<br />   (progn<br />    (setq Rep# 0)<br />    (repeat (/ (length VectorList) 2)<br />     (setq X# (nth Rep# VectorList)<br />           Y# (nth (+ Rep# 1) VectorList))<br />     (if        (and (= (type X#) 'STR) (= (type Y#) 'INT))<br />      (if (= (strcase X# "C"))<br />       (setq Color# Y#<br />             X1#        nil<br />             Y1#        nil<br />             X2#        nil<br />             Y2#        nil)<br />      );c.if<br />      (if (and (= (type X#) 'INT) (= (type Y#) 'INT))<br />       (if (and (= X1# nil) (= Y1# nil))<br />        (setq X1# X#<br />              Y1# Y#)<br />        (progn<br />         (setq X2# X#<br />               Y2# Y#)<br />         (vector_image X1# Y1# X2# Y2# Color#)<br />         (setq X1# X2#<br />               Y1# Y2#<br />               X#  nil<br />               Y#  nil)<br />        );c.prg<br />       );c.if<br />      );c.if<br />     );c.if<br />     (setq Rep# (+ Rep# 2))<br />    );c.repeat<br />   );c.prg<br /> );c.if<br /> );c.defun<br /> (princ)

jinsong-liao

不知具体有何作用？

xshrimp

对话框做法可以参考一下.就是文中的中文显示都是乱码。

TWINPEN

還是用VB來實現簡單一點,但怎樣和VLISP搭配,是個麻煩的事情

zml84

学习下。

hbllw

学习一下 ，不错

happyboy75

不错不怕没人做就怕没人想