初学者请进，告诉你一些自定义命令的编程范例，样板程序。

fawn_lgc

我发现包括我自己在内，不少朋友都是通过自学掌握Lisp编程的，程序写得往往不规范。
程序怎么写才是完美的呢，到哪里才能得到可供初学者参考规范的样板程序呢。
其实，AutoCAD软件里就有这样的程序。
下面是来自AutoCAD\Support\acad.mnl的一段程序

1. ;;;重生成布局
   
2. (defun c:ai_fms ( / fmsa fmsb)
   
3.   (setq m:err *error* *error* *merr*)
   
4.   (ai_undo_push)
   
5.   (if (getvar "TILEMODE") (setvar "TILEMODE" 0))
   
6.   (setq fmsa (vports) fmsb (nth 0 fmsa))
   
7.   (if (member 1 fmsb)
   
8.     (if (> (length fmsa) 1)
   
9.       (command "_.mspace")
   
10.       (progn
    
11.         (ai_sysvar '("cmdecho" . 1))
    
12.         (command "_.mview")
    
13.         (while (eq 1 (logand 1 (getvar "CMDACTIVE")))
    
14.           (command pause)
    
15.         )
    
16.         (ai_sysvar NIL)
    
17.         (command "_.mspace")
    
18.       )
    
19.     )
    
20.   )
    
21.   (ai_undo_pop)
    
22.   (setq *error* m:err m:err nil)
    
23.   (princ)
    
24. )

;;;重生成布局<br /> (defun c:ai_fms ( / fmsa fmsb)<br />   (setq m:err *error* *error* *merr*)<br />   (ai_undo_push)<br />   (if (getvar "TILEMODE") (setvar "TILEMODE" 0))<br />   (setq fmsa (vports) fmsb (nth 0 fmsa))<br />   (if (member 1 fmsb)<br />     (if (> (length fmsa) 1)<br />       (command "_.mspace")<br />       (progn<br />         (ai_sysvar '("cmdecho" . 1))<br />         (command "_.mview")<br />         (while (eq 1 (logand 1 (getvar "CMDACTIVE")))<br />           (command pause)<br />         )<br />         (ai_sysvar NIL)<br />         (command "_.mspace")<br />       )<br />     )<br />   )<br />   (ai_undo_pop)<br />   (setq *error* m:err m:err nil)<br />   (princ)<br /> )

下面是来自AutoCAD\Support\acad.dcl的一段对话框文件

1. acad_plot : dialog {
   
2.     label = "打印配置";
   
3.     : row {
   
4.         : column {
   
5.             : boxed_column {
   
6.                 label = "设备和默认信息";
   
7.                 : text {
   
8.                     key = "userid";
   
9.                     width = 35;
   
10.                 }
    
11.                 : button {
    
12.                     label = "设备和默认选择(&D)...";
    
13.                     fixed_width = true;
    
14.                     key = "devsel";
    
15.                     alignment = centered;
    
16.                 }
    
17.             }
    
18.             : boxed_row {
    
19.                 label = "画笔参数";
    
20.                 children_fixed_width = true;
    
21.                 : button {
    
22.                     label = "画笔指定(&P)...";
    
23.                     key = "assign";
    
24.                 }
    
25.                 : button {
    
26.                     label = "优化(&O)...";
    
27.                     key = "optimize";
    
28.                 }
    
29.             }
    
30.             : boxed_column {
    
31.                 label = "其他参数";
    
32.                 : row {
    
33.                     : radio_column {
    
34.                         fixed_width = true;
    
35.                         : radio_button {
    
36.                             label = "显示(&Y)";
    
37.                             key = "D";
    
38.                         }
    
39.                         : radio_button {
    
40.                             label = "图形范围(&X)";
    
41.                             key = "E";
    
42.                         }
    
43.                         : radio_button {
    
44.                             label = "图形界限(&L)";
    
45.                             key = "L";
    
46.                         }
    
47.                         : radio_button {
    
48.                             label = "视图(&V)";
    
49.                             key = "V";
    
50.                         }
    
51.                         : radio_button {
    
52.                             label = "窗口(&W)";
    
53.                             key = "W";
    
54.                         }
    
55.                     }
    
56.                     : column {
    
57.                         : edit12_box {
    
58.                             label = "文字分辨率";
    
59.                             key = "textreso";
    
60.                             errmsg = "Text Resolution";
    
61.                         }
    
62.                         : toggle {
    
63.                             label = "文字填充";
    
64.                             key = "textfill";
    
65.                         }
    
66.                         : toggle {
    
67.                             label = "隐藏线(&H)";
    
68.                             key = "hide";
    
69.                         }
    
70.                         : toggle {
    
71.                             label = "调整区域填充(&J)";
    
72.                             key = "plfill";
    
73.                         }
    
74.                         : toggle {
    
75.                             label = "打印到文件(&F)";
    
76.                             key = "file";
    
77.                         }
    
78.                         : toggle {
    
79.                             label = "Auto&spool";
    
80.                             key = "aspool";
    
81.                         }
    
82.                     }
    
83.                 }
    
84.                 : row {
    
85.                     alignment = centered;
    
86.                     : button {
    
87.                         label = "视图(&E)...";
    
88.                         key = "view";
    
89.                         fixed_width = true;
    
90.                     }
    
91.                     : button {
    
92.                         label = "窗口(&N)...";
    
93.                         key = "selwind";
    
94.                         fixed_width = true;
    
95.                     }
    
96.                     : button {
    
97.                         label = "文件名(&A)...";
    
98.                         key = "sfile";
    
99.                         fixed_width = true;
    
100.                     }
     
101.                 }
     
102.             }
     
103.         }
     
104.         : column {
     
105.                 : boxed_column {
     
106.                     label = "图纸尺寸和方向";
     
107.                     : row {
     
108.                         : radio_column {
     
109.                             fixed_width = true;
     
110.                             : radio_button {
     
111.                                 label = "英寸(&C)";
     
112.                                 key = "I";
     
113.                             }
     
114.                             : radio_button {
     
115.                                 label = "毫米(&M)";
     
116.                                 key = "M";
     
117.                             }
     
118.                         }
     
119.                         : row {
     
120.                             fixed_width = true;
     
121.                             : button {
     
122.                                 label = "尺寸(&Z)...";
     
123.                                 key = "sizbuttn";
     
124.                                 fixed_width = true;
     
125.                             }
     
126.                             : text {
     
127.                                 key = "size";
     
128.                                 width = 6;
     
129.                             }
     
130.                             : column {
     
131.                                 spacer;
     
132.                                 : image {
     
133.                                     key = "vec_image";
     
134.                                     width = 4.0;
     
135.                                     fixed_width = true;
     
136.                                     aspect_ratio = 1.0;
     
137.                                     color = dialog_background;
     
138.                                 }
     
139.                                 spacer;
     
140.                             }
     
141.                         }
     
142.                     }
     
143.                     : text {
     
144.                         key = "area";
     
145.                         width = 25;
     
146.                     }
     
147.                 }
     
148.                 : boxed_column {
     
149.                     label = "比例、旋转和原点";
     
150.                     : button {
     
151.                         label = "旋转和原点(&G)...";
     
152.                         key = "rot&or";
     
153.                         alignment = centered;
     
154.                         fixed_width = true;
     
155.                     }
     
156.                     : row {
     
157.                         : column {
     
158.                             children_fixed_width = true;
     
159.                             : text {
     
160.                                 key = "pu";
     
161.                                 width = 14;
     
162.                                 alignment = right;
     
163.                             }
     
164.                             : edit_box {
     
165.                                 edit_width = 10;
     
166.                                 key = "punit";
     
167.                                 alignment = centered;
     
168.                             }
     
169.                         }
     
170.                         : column {
     
171.                             children_fixed_width = true;
     
172.                             children_alignment = centered;
     
173.                             : text {
     
174.                                 label = "=";
     
175.                             }
     
176.                             : text {
     
177.                                 label = "=";
     
178.                             }
     
179.                         }
     
180.                         : column {
     
181.                             children_fixed_width = true;
     
182.                             : text {
     
183.                                 label = "图形单位";
     
184.                             }
     
185.                             : edit_box {
     
186.                                 edit_width = 10;
     
187.                                 key = "dunit";
     
188.                                 alignment = centered;
     
189.                             }
     
190.                         }
     
191.                     }
     
192.                     : toggle {
     
193.                         label = "缩放到充满(&T)";
     
194.                         key = "fit";
     
195.                     }
     
196.                 }
     
197.                 : boxed_column {
     
198.                     label = "打印预览";
     
199.                     : row {
     
200.                         children_fixed_width = true;
     
201.                         : button {
     
202.                             label = "预览(&R)...";
     
203.                             key = "prev";
     
204.                         }
     
205.                         : radio_row {
     
206.                             : radio_button {
     
207.                                 label = "部分(&I)";
     
208.                                 key = "earea";
     
209.                             }
     
210.                             : radio_button {
     
211.                                 label = "全部(&U)";
     
212.                                 key = "full";
     
213.                             }
     
214.                         }
     
215.                     }
     
216.                 }
     
217.         }
     
218.     }
     
219.     ok_cancel_help;
     
220.     : row {
     
221.         : errtile { fixed_width = true; }
     
222. 
     
223.         // This spacer_0 between the two fixed-width items serves
     
224.         // to left-justify the first and right-justify the second,
     
225.         // since it's the only flexible-width item in the row.
     
226.         spacer_0;
     
227. 
     
228.         : row {
     
229.             fixed_width = true;
     
230.             : text {
     
231.                 key = "zero";
     
232.                 width = 3;
     
233.             }
     
234.             : image {
     
235.                 key = "pre_image";
     
236.                 color = dialog_background;
     
237.                 height = 1;
     
238.                 width = 18;
     
239.             }
     
240.             : text {
     
241.                 key = "comp";
     
242.                 width = 5;
     
243.             }
     
244.         }
     
245.     }
     
246. }

acad_plot : dialog {<br />     label = "打印配置";<br />     : row {<br />         : column {<br />             : boxed_column {<br />                 label = "设备和默认信息";<br />                 : text {<br />                     key = "userid";<br />                     width = 35;<br />                 }<br />                 : button {<br />                     label = "设备和默认选择(&D)...";<br />                     fixed_width = true;<br />                     key = "devsel";<br />                     alignment = centered;<br />                 }<br />             }<br />             : boxed_row {<br />                 label = "画笔参数";<br />                 children_fixed_width = true;<br />                 : button {<br />                     label = "画笔指定(&P)...";<br />                     key = "assign";<br />                 }<br />                 : button {<br />                     label = "优化(&O)...";<br />                     key = "optimize";<br />                 }<br />             }<br />             : boxed_column {<br />                 label = "其他参数";<br />                 : row {<br />                     : radio_column {<br />                         fixed_width = true;<br />                         : radio_button {<br />                             label = "显示(&Y)";<br />                             key = "D";<br />                         }<br />                         : radio_button {<br />                             label = "图形范围(&X)";<br />                             key = "E";<br />                         }<br />                         : radio_button {<br />                             label = "图形界限(&L)";<br />                             key = "L";<br />                         }<br />                         : radio_button {<br />                             label = "视图(&V)";<br />                             key = "V";<br />                         }<br />                         : radio_button {<br />                             label = "窗口(&W)";<br />                             key = "W";<br />                         }<br />                     }<br />                     : column {<br />                         : edit12_box {<br />                             label = "文字分辨率";<br />                             key = "textreso";<br />                             errmsg = "Text Resolution";<br />                         }<br />                         : toggle {<br />                             label = "文字填充";<br />                             key = "textfill";<br />                         }<br />                         : toggle {<br />                             label = "隐藏线(&H)";<br />                             key = "hide";<br />                         }<br />                         : toggle {<br />                             label = "调整区域填充(&J)";<br />                             key = "plfill";<br />                         }<br />                         : toggle {<br />                             label = "打印到文件(&F)";<br />                             key = "file";<br />                         }<br />                         : toggle {<br />                             label = "Auto&spool";<br />                             key = "aspool";<br />                         }<br />                     }<br />                 }<br />                 : row {<br />                     alignment = centered;<br />                     : button {<br />                         label = "视图(&E)...";<br />                         key = "view";<br />                         fixed_width = true;<br />                     }<br />                     : button {<br />                         label = "窗口(&N)...";<br />                         key = "selwind";<br />                         fixed_width = true;<br />                     }<br />                     : button {<br />                         label = "文件名(&A)...";<br />                         key = "sfile";<br />                         fixed_width = true;<br />                     }<br />                 }<br />             }<br />         }<br />         : column {<br />                 : boxed_column {<br />                     label = "图纸尺寸和方向";<br />                     : row {<br />                         : radio_column {<br />                             fixed_width = true;<br />                             : radio_button {<br />                                 label = "英寸(&C)";<br />                                 key = "I";<br />                             }<br />                             : radio_button {<br />                                 label = "毫米(&M)";<br />                                 key = "M";<br />                             }<br />                         }<br />                         : row {<br />                             fixed_width = true;<br />                             : button {<br />                                 label = "尺寸(&Z)...";<br />                                 key = "sizbuttn";<br />                                 fixed_width = true;<br />                             }<br />                             : text {<br />                                 key = "size";<br />                                 width = 6;<br />                             }<br />                             : column {<br />                                 spacer;<br />                                 : image {<br />                                     key = "vec_image";<br />                                     width = 4.0;<br />                                     fixed_width = true;<br />                                     aspect_ratio = 1.0;<br />                                     color = dialog_background;<br />                                 }<br />                                 spacer;<br />                             }<br />                         }<br />                     }<br />                     : text {<br />                         key = "area";<br />                         width = 25;<br />                     }<br />                 }<br />                 : boxed_column {<br />                     label = "比例、旋转和原点";<br />                     : button {<br />                         label = "旋转和原点(&G)...";<br />                         key = "rot&or";<br />                         alignment = centered;<br />                         fixed_width = true;<br />                     }<br />                     : row {<br />                         : column {<br />                             children_fixed_width = true;<br />                             : text {<br />                                 key = "pu";<br />                                 width = 14;<br />                                 alignment = right;<br />                             }<br />                             : edit_box {<br />                                 edit_width = 10;<br />                                 key = "punit";<br />                                 alignment = centered;<br />                             }<br />                         }<br />                         : column {<br />                             children_fixed_width = true;<br />                             children_alignment = centered;<br />                             : text {<br />                                 label = "=";<br />                             }<br />                             : text {<br />                                 label = "=";<br />                             }<br />                         }<br />                         : column {<br />                             children_fixed_width = true;<br />                             : text {<br />                                 label = "图形单位";<br />                             }<br />                             : edit_box {<br />                                 edit_width = 10;<br />                                 key = "dunit";<br />                                 alignment = centered;<br />                             }<br />                         }<br />                     }<br />                     : toggle {<br />                         label = "缩放到充满(&T)";<br />                         key = "fit";<br />                     }<br />                 }<br />                 : boxed_column {<br />                     label = "打印预览";<br />                     : row {<br />                         children_fixed_width = true;<br />                         : button {<br />                             label = "预览(&R)...";<br />                             key = "prev";<br />                         }<br />                         : radio_row {<br />                             : radio_button {<br />                                 label = "部分(&I)";<br />                                 key = "earea";<br />                             }<br />                             : radio_button {<br />                                 label = "全部(&U)";<br />                                 key = "full";<br />                             }<br />                         }<br />                     }<br />                 }<br />         }<br />     }<br />     ok_cancel_help;<br />     : row {<br />         : errtile { fixed_width = true; }<br /> <br />         // This spacer_0 between the two fixed-width items serves<br />         // to left-justify the first and right-justify the second,<br />         // since it's the only flexible-width item in the row.<br />         spacer_0;<br /> <br />         : row {<br />             fixed_width = true;<br />             : text {<br />                 key = "zero";<br />                 width = 3;<br />             }<br />             : image {<br />                 key = "pre_image";<br />                 color = dialog_background;<br />                 height = 1;<br />                 width = 18;<br />             }<br />             : text {<br />                 key = "comp";<br />                 width = 5;<br />             }<br />         }<br />     }<br /> }

谢谢大家的回复!
补充一句，不少网友希望加些文字说明。
我开始也有这个想法，但是官方的东西太权威，我也是菜鸟一个，胡乱注释，反倒误导大家。
建议大家通过逐行运行，理解它的真谛。
如果还有什么不明白的，建议大家另行发帖提问。

xinhaichun

学习。谢谢分享
学习。谢谢分享

swamii

谢谢楼主分享

yoyoho

谢谢楼主分享！！！！！

wowan1314

学习。谢谢分享

duotu007

规范的程序代码，可读性很高，程序层次感清晰。

soly2006

楼主太省了，不光看例子，应该说些心得吧？
这话题不错！

flytoday

顶上顶上~~~~~~~~~~~~~~

cuyongping

学习学习！正需要了！

xiaxiang

ai开头的函数全是自带的吗，系统里找到ai_utils.lsp，确实是很好的例子

脚印

不错，学习看看

hao3ren

呵呵，自己用的随便改改都很乱

smartstar

向前辈学习。