矩形型腔宏程序

为了让更多学习宏程序的自学者，拥用系统的、完整的宏程序参考资料，本公众号将会，对所有发表的资料进行分类归纳整理，并对以往知识点进行删加补充，并再次发表，目的只有一个，就是让网友们更方便的查找资料，让知识更加的全面与精僻。

矩形型腔开粗宏程序

坐标系建立：四面分中，顶面为零

在此说明：#13表示拐角处R(10)值

完整程序内容：

O8090

G90 G17 G40 G49 G80 G69

G91 G28 Z0.

#1=100

#12=80

#2=1.5

#13=10

#3=10

#20=3

#19=6500

#9=3500

#26=0

#17=0.5

#108=0.3

#109=0.3

#6=[#3*0.75]

#117=#1-#3-[#108*2]

#118=#12-#3-[#108*2]

#119=#2-#109

#16=[#3*0.6]

T#20 M6

G90 G54

G0 X0. Y#16 S#19 M3

G43 Z10. H#20

/M8

#126=#26+0.3

G1 Z#126 F2500.

Y#16

#26=#26+#17

WHILE[#26LT#119]DO1

G3 J-#16 Z-#26 F1600.

#14=FIX[#118/#6]

#15=FIX[#14/2]

WHILE[#15GE#105]DO2

#24=[#117/2]-[#15*#6]

#25=[#118/2]-[#15*#6]

G1 Y#25 F#9

X-#24

Y-#25

X#24

Y#25

X0.

#15=#15-1

#105=FIX[[[#13-#108-[#3/2]]/#6]+1]

END2

#18=#13-#108-[#3/2]-#6

IF[#18LE0]GOTO100

IF[#18GT0]GOTO200

N100

#18=#13-#108-[#3/2]

N200

WHILE[#15GE0]DO3

#24=[#117/2]-[#15*#6]

#25=[#118/2]-[#15*#6]

G1 Y#25 F#9

X-[#24-#18]

G3 X-#24 Y[#25-#18] J-#18

G1 Y-[#25-#18]

G3 X-[#24-#18] Y-#25 I#18

G1 X[#24-#18]

G3 X#24 Y-[#25-#18] J#18

G1 Y[#25-#18]

G3 X[#24-#18] Y#25 I-#18

G1 X0.

#15=#15-1

#18=#18+#6

END3

#126=[-#26]+1

G1 Z#126

Y#16

#126=[-#26]+0.3

Z#126

#26=#26+#17

END01

#126=-[#2-#17-0.3]

G1 Z#126 F2500.

Y#16

G3 J-#16 Z-#119 F1600.

#14=FIX[#118/#6]

#15=FIX[#14/2]

WHILE[#15GE#105]DO1

#24=[#117/2]-[#15*#6]

#25=[#118/2]-[#15*#6]

G1 Y#25 F#9

X-#24

Y-#25

X#24

Y#25

X0.

#15=#15-1

#105=FIX[[[#13-#108-[#3/2]]/#6]+1]

END01

#18=#13-#108-[#3/2]-#6

IF[#18LE0]GOTO300

IF[#18GT0]GOTO400

N300

#18=#13-#108-[#3/2]

N400

WHILE[#15GE0]DO2

#24=[#117/2]-[#15*#6]

#25=[#118/2]-[#15*#6]

G1 Y#25 F#9

X-[#24-#18]

G3 X-#24 Y[#25-#18] J-#18

G1 Y-[#25-#18]

G3 X-[#24-#18] Y-#25 I#18

G1 X[#24-#18]

G3 X#24 Y-[#25-#18] J#18

G1 Y[#25-#18]

G3 X[#24-#18] Y#25 I-#18

G1 X0.

#15=#15-1

#18=#18+#6

END02

G1 Z10.

M9

M5

G91 G28 Z0.

G28 Y0.

M30

%