通过阅读，理解，运用优秀的数控宏程序,可以使我们学习到编写者解决问题的思维,技术,技巧,开阔我们的思路,提高解决问题的能力。
宏程序加工椭圆和正圆的混合面
你会了宏程序可以说是，以不变应万变，像下面就是基本上用最简单的三角公式变换而来，让我们一起感受一下宏程序的强大。
宏程序加工相贯曲面
宏有宏可以用的地方，当可以用宏的地方，你去用电脑去做，可能会重复大量工作，并且做得不尽完美。
当你用人脑搞定他们用电脑搞的东西的时候，其实你已经非常的厉害了，这样的你我相信你是属于低调而成功的人，那些会点CAM软件的人经常肤浅地随意地嗤之以鼻别人的人，我相信他们终究是浮云，当你的大脑转速快过他们的时候，你学CAM软件会比他们慢吗，结果是显而易见的。
言归正传。
之前有说过雕刻时间的宏程序，这次是雕刻英文字母的宏程序，当你会用宏程序雕刻数字也会雕刻英文字母的时候，你已经能解决很多问题了，起码刻个序列号之类的小Case不在话下了。
程序设计与思路
将26个字母按顺序用宏编好，然后需要哪个字母就直接调用。
主程序
%
O8888
( PROGRAM FOR LETTER ENGRAVING)
G90G54J1
N10
M3S8000
G90G0X-.2Y0. M8
G43H20Z3.
上面的程序用现有的指令移动到刻字的起始点
#503=1.000
#500=[#503/1.782]
#501=.100
#502=1.000
这里说明 一下，这里的#503 （雕刻字母字高系数）#500, #501, #502 （雕
刻字母字宽度，纵横比系数）
在程序调用时，我们用 G65 P7001 A1.0 B-0.02 C15.0 D40.0 E1.0
变量说明
A=Code number for letter ，是所要雕刻字母所对应数字代号，比如按26个字母排序列，A就是1，B就是2，C就是3
(SPACE-0. A-1. B-2. C-3. D-4. E-5. F-6. G-7. H-8. I-9. J-10. K-11. L-12. M-13. N-14. O-15. P-16. Q-17. R-18. S-19. T-20. U-21. V-22. W-23. X-24. Y-25. Z-26.)
B=Z depth from program zero (刻字深度）
C=Plunging feedrate for the Z axis （下刀速度）
D=XY feedrate （XY进给速度）
E=Step over for next letter? (1.=YES,0.=NO)
（是否继续下一字母的雕刻，是写1，不继续写0）
如果我们要刻 A B C D E ,调用的程序就可以写成如下：
G65P7001A1.0 B-0.02 C15.0 D40.0 E1.0 (A)
G65P7001A2.0 B-.02 C15.0 D40.0 E1.0 (B)
G65P7001A3.0 B-.02 C15.0 D40.0 E1.0 (C)
G65P7001A4.0 B-.02 C15.0 D40.0 E01.0 (D)
G65P7001A5.0 B-.0 2C15.0 D40.0 E0.0 (E)
宏程序雕刻 ABCDE
如果我们要刻 H E L L O ,调用的程序就可以写成如下：
G65P7001A8.0B-0.02C15.0D40.0E1.0 (H)
G65P7001A5.0B-.02C15.0D40.0E1.0 (E)
G65P7001A12.0B-.02C15.0D40.0E1.0 (L)
G65P7001A12.0B-.02C15.0D40.E01.0 (L)
G65P7001A15.0B-.02C15.0D40.0E0.0 (O)
宏程序雕刻 HELLO
N20
M98P8998 M30
%
调用完后，我们就可以让主程序结束了，所以N20后面指定M30,这样程序看起来更有条理，便于阅读。
字母程序
%
O7001(LETTER PROGRAMS)
IF[#1EQ0.]GOTO100
IF[#1EQ1.]GOTO1
IF[#1EQ2.]GOTO2
IF[#1EQ3.]GOTO3
IF[#1EQ4.]GOTO4
IF[#1EQ5.]GOTO5
IF[#1EQ6.]GOTO6
IF[#1EQ7.]GOTO7
IF[#1EQ8.]GOTO8
IF[#1EQ9.]GOTO9
IF[#1EQ10.]GOTO10
IF[#1EQ11.]GOTO11
IF[#1EQ12.]GOTO12
IF[#1EQ13.]GOTO13
IF[#1EQ14.]GOTO14
IF[#1EQ15.]GOTO15
IF[#1EQ16.]GOTO16
IF[#1EQ17.]GOTO17
IF[#1EQ18.]GOTO18
IF[#1EQ19.]GOTO19
IF[#1EQ20.]GOTO20
IF[#1EQ21.]GOTO21
IF[#1EQ22.]GOTO22
IF[#1EQ23.]GOTO23
IF[#1EQ24.]GOTO24
IF[#1EQ25.]GOTO25
IF[#1EQ26.]GOTO26
A
(A LETTER PROGRAM)
N1G91G0X[#500*.2203]Y[#500*.118]
G90G0Z#501
G90G1Z#2F#3
G91G1X[#500*.7796]Y[#500*1.782]F#7
X[#500*.7796]Y-[#500*1.782]
G90G0Z#502
G91G0X-[#500*.4018]Y[#500*.9186]
G90G0Z#501
G90G1Z#2F#3
G91G1X-[#500*.7554]F#7
G90G0Z#502
G91G0X-[#500*.6222]Y-[#500*1.0366]
IF[#8EQ1.]GOTO100
IF[#8EQ0.]GOTO200
B
(B LETTER PROGRAM)
N2G91G0X[#500*.1923]Y[#500*.118]
G90G0Z#501
G90G1Z#2F#3
G91G1Y[#500*1.782]F#7
X[#500*1.041]
G2R[#500*.4179]J-[#500*.4179]Y-[#500*.8358]
G1X-[#500*1.041]
G90G0Z#502
G91G0Y-[#500*.9462]
G90G0Z#501
G90G1Z#2F#3
G91G1X[#500*1.1422]F#7
G3R[#500*.4731]J[#500*.4731]Y[#500*.9462]
G90G0Z#502
G91G0X-[#500*1.3345]Y-[#500*1.0642]
IF[#8EQ1.]GOTO100
IF[#8EQ0.]GOTO200
C
(C LETTER PROGRAM)
N3G91G0X[#500*1.3288]Y[#500*.1719]
G90G0Z#501
G90G1Z#2F#3
G91G1
G2R[#500*.891]I-[#500*.3288] J[#500*.828]
Y[#500*.828]
X-[#500*1.2198]F#7
G2R[#500*.891]I[#500*.891]X[#500*1.2198]Y[#500*.828]
G90G0Z#502
G91G0X-[#500*1.3288]Y-[#500*1.828]
IF[#8EQ1.]GOTO100
IF[#8EQ0.]GOTO200
................................
................................
................................
................................
................................
X
(X LETTER PROGRAM)
N24G91G0X[#500*1.8909]Y[#500*.118]
G90G0Z#501
G90G1Z#2F#3
G91G1X-[#500*1.782]Y[#500*1.782]F#7
G90G0Z#502
G91G0X[#500*1.782]
G90G0Z#501
G90G1Z#2F#3
G91G1X-[#500*1.782]Y-[#500*1.782]F#7
G90G0Z#502
G91G0X-[#500*.109]Y-[#500*.118]
IF[#8EQ1.]GOTO100
IF[#8EQ0.]GOTO200
Y
(Y LETTER PROGRAM)
N25G91G0X[#500*1.6615]Y[#500*1.9]
G90G0Z#501
G90G1Z#2F#3
G91G1X-[#500*.6615]Y-[#500*.882]F#7
Y-[#500*.8909]
G90G0Z#502
G91G0Y[#500*.8909]
G90G0Z#501
G90G1Z#2F#3
G91G1X-[#500*.6615]Y[#500*.882]F#7
G90G0Z#502
G91G0X-[#500*.3385]Y-[#500*1.9]
IF[#8EQ1.]GOTO100
IF[#8EQ0.]GOTO200
Z
(Z LETTER PROGRAM)
N26G91G0X[#500*1.891]Y[#500*.118]
G90G0Z#501
G90G1Z#2F#3
G91G1X-[#500*1.782]F#7
X[#500*1.782]Y[#500*1.782]
X-[#500*1.782]
G90G0Z#502
G91G0X-[#500*.109]Y-[#500*1.9]
IF[#8EQ1.]GOTO100
IF[#8EQ0.]GOTO200
STEP(步距)
(STEP OVER PROGRAM)
N100G90G0Z#502
G91G0X[#500*2.0000]
N200
M99
小伙伴们如果还是没有思路或没有明白，建议读者可与柳工联系，想更近一步学习这个宏程序的小伙伴，需要完整的程序，小伙伴们可与柳工联系。
