不知道怎么回事，无法回复，发个帖试试

nzl1116

1. (defun CreateDclNeedStrings (DlgName  KeyName  AssoLst        StIndex
   
2.                              TileWid  /               RetuLst        SpTile0
   
3.                              l              m               n        r0
   
4.                              SomItem  r1
   
5.                             )
   
6.   (setq        RetuLst        (list
   
7.                   (strcat DlgName ":dialog{label = \"秋寒工具\";")
   
8.                   "//---------------------------------------------------------------------------------//"
   
9.                   (strcat
   
10.                     "my_image_button:button{fixed_width = true;fixed_height = true;width = "
    
11.                     (itoa TileWid)
    
12.                     ";}"
    
13.                   )
    
14.                 )
    
15.         SpTile0        (strcat ":spacer{width = " (itoa TileWid) ";}")
    
16.         SpTile1        (strcat ":spacer{width = " (itoa (* TileWid 5)) ";}")
    
17.         l        StIndex
    
18.         m        0
    
19.         n        0
    
20.   )
    
21.   (repeat (length AssoLst)
    
22.     (if        (= (setq r0 (rem m 3)) 0)
    
23.       (setq RetuLst (cons ":row{" RetuLst))
    
24.     )
    
25.     (setq SomItem (nth m AssoLst))
    
26.     (setq RetuLst (cons        (strcat        ":boxed_column{label = "
    
27.                                 (vl-prin1-to-string (car SomItem))
    
28.                                 ";"
    
29.                         )
    
30.                         RetuLst
    
31.                   )
    
32.     )
    
33.     (repeat (cdr SomItem)
    
34.       (if (= (setq r1 (rem n 4)) 0)
    
35.         (setq RetuLst (cons ":row{" RetuLst))
    
36.       )
    
37.       (setq RetuLst (cons
    
38.                       (strcat ":my_image_button{key = "
    
39.                               (vl-prin1-to-string (strcat KeyName (itoa l)))
    
40.                               ";"
    
41.                       )
    
42.                       RetuLst
    
43.                     )
    
44.             RetuLst (cons
    
45.                       (strcat "label = "
    
46.                               (vl-prin1-to-string (strcat KeyName (itoa l)))
    
47.                               ";}"
    
48.                       )
    
49.                       RetuLst
    
50.                     )
    
51.       )
    
52.       (if (= r1 3)
    
53.         (setq RetuLst (cons "}" RetuLst))
    
54.       )
    
55.       (setq n (1+ n)
    
56.             l (1+ l)
    
57.       )
    
58.     )
    
59.     (cond ((= r1 1)
    
60.            (setq RetuLst (cons SpTile0 (cons SpTile0 RetuLst)))
    
61.           )
    
62.           ((= r1 2) (setq RetuLst (cons SpTile0 RetuLst)))
    
63.           (t nil)
    
64.     )
    
65.     (if        (/= r1 3)
    
66.       (setq RetuLst (cons "}" RetuLst))
    
67.     )
    
68.     ;;对应:boxed_column{...}
    
69.     (setq RetuLst (cons "}" RetuLst))
    
70.     (if        (= r0 2)
    
71.       (setq RetuLst (cons "}" RetuLst))
    
72.     )
    
73.     (setq m (1+ m)
    
74.           n 0
    
75.     )
    
76.   )
    
77.   (cond        ((= r0 1) (setq RetuLst (cons SpTile1 RetuLst)))
    
78.         ((= r0 0)
    
79.          (setq RetuLst (cons SpTile1 (cons SpTile1 RetuLst)))
    
80.         )
    
81.         (t nil)
    
82.   )
    
83.   (if (/= r0 2)
    
84.     (setq RetuLst (cons "}" RetuLst))
    
85.   )
    
86.   ;;图像按钮方框组定义结束
    
87.   ;;添加ok_cancel预定义方框组
    
88.   (setq RetuLst (cons "ok_cancel;" RetuLst))
    
89.   ;;对应:dialog{...}
    
90.   (setq RetuLst (cons "}" RetuLst))
    
91.   (cons        "//-----制作：秋  寒-----//"
    
92.         (mapcar        (function (lambda (x) (strcat "\n" x)))
    
93.                 (reverse RetuLst)
    
94.         )
    
95.   )
    
96. )

(defun CreateDclNeedStrings (DlgName  KeyName  AssoLst        StIndex<br />                              TileWid  /               RetuLst        SpTile0<br />                              l              m               n        r0<br />                              SomItem  r1<br />                             )<br />   (setq        RetuLst        (list<br />                   (strcat DlgName ":dialog{label = \"秋寒<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">工具</a>\";")<br />                   "//---------------------------------------------------------------------------------//"<br />                   (strcat<br />                     "my_image_button:button{fixed_width = true;fixed_height = true;width = "<br />                     (itoa TileWid)<br />                     ";}"<br />                   )<br />                 )<br />         SpTile0        (strcat ":spacer{width = " (itoa TileWid) ";}")<br />         SpTile1        (strcat ":spacer{width = " (itoa (* TileWid 5)) ";}")<br />         l        StIndex<br />         m        0<br />         n        0<br />   )<br />   (repeat (length AssoLst)<br />     (if        (= (setq r0 (rem m 3)) 0)<br />       (setq RetuLst (cons ":row{" RetuLst))<br />     )<br />     (setq SomItem (nth m AssoLst))<br />     (setq RetuLst (cons        (strcat        ":boxed_column{label = "<br />                                 (vl-prin1-to-string (car SomItem))<br />                                 ";"<br />                         )<br />                         RetuLst<br />                   )<br />     )<br />     (repeat (cdr SomItem)<br />       (if (= (setq r1 (rem n 4)) 0)<br />         (setq RetuLst (cons ":row{" RetuLst))<br />       )<br />       (setq RetuLst (cons<br />                       (strcat ":my_image_button{key = "<br />                               (vl-prin1-to-string (strcat KeyName (itoa l)))<br />                               ";"<br />                       )<br />                       RetuLst<br />                     )<br />             RetuLst (cons<br />                       (strcat "label = "<br />                               (vl-prin1-to-string (strcat KeyName (itoa l)))<br />                               ";}"<br />                       )<br />                       RetuLst<br />                     )<br />       )<br />       (if (= r1 3)<br />         (setq RetuLst (cons "}" RetuLst))<br />       )<br />       (setq n (1+ n)<br />             l (1+ l)<br />       )<br />     )<br />     (cond ((= r1 1)<br />            (setq RetuLst (cons SpTile0 (cons SpTile0 RetuLst)))<br />           )<br />           ((= r1 2) (setq RetuLst (cons SpTile0 RetuLst)))<br />           (t nil)<br />     )<br />     (if        (/= r1 3)<br />       (setq RetuLst (cons "}" RetuLst))<br />     )<br />     ;;对应:boxed_column{...}<br />     (setq RetuLst (cons "}" RetuLst))<br />     (if        (= r0 2)<br />       (setq RetuLst (cons "}" RetuLst))<br />     )<br />     (setq m (1+ m)<br />           n 0<br />     )<br />   )<br />   (cond        ((= r0 1) (setq RetuLst (cons SpTile1 RetuLst)))<br />         ((= r0 0)<br />          (setq RetuLst (cons SpTile1 (cons SpTile1 RetuLst)))<br />         )<br />         (t nil)<br />   )<br />   (if (/= r0 2)<br />     (setq RetuLst (cons "}" RetuLst))<br />   )<br />   ;;图像按钮方框组定义结束<br />   ;;添加ok_cancel预定义方框组<br />   (setq RetuLst (cons "ok_cancel;" RetuLst))<br />   ;;对应:dialog{...}<br />   (setq RetuLst (cons "}" RetuLst))<br />   (cons        "//-----制作：秋  寒-----//"<br />         (mapcar        (function (lambda (x) (strcat "\n" x)))<br />                 (reverse RetuLst)<br />         )<br />   )<br /> )

sicky111

可以回复啊。