通过阅读，理解，运用优秀的数控宏程序,可以使我们学习到编写者解决问题的思维,技术,技巧,开阔我们的思路,提高解决问题的能力。

宏程序加工椭圆和正圆的混合面

你会了宏程序可以说是，以不变应万变，像下面就是基本上用最简单的三角公式变换而来，让我们一起感受一下宏程序的强大。

宏程序加工相贯曲面

宏有宏可以用的地方，当可以用宏的地方，你去用电脑去做，可能会重复大量工作，并且做得不尽完美。

当你用人脑搞定他们用电脑搞的东西的时候，其实你已经非常的厉害了，这样的你我相信你是属于低调而成功的人，那些会点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

小伙伴们如果还是没有思路或没有明白，建议读者可与柳工联系，想更近一步学习这个宏程序的小伙伴，需要完整的程序，小伙伴们可与柳工联系。

（此处已添加圈子卡片，请到今日头条客户端查看）