孔光底面宏程序

孔光底面宏程序

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

完整程序内容：

%

O8043

G90 G17 G40 G49 G80 G69

G91 G28 Z0.

#1=50

#2=5

#3=10

#20=1

#19=6500

#9=3500

#17=0.5

#108=0.3

#109=0

#26=0

#6=[#3*0.75]

#119=[#2-#109]  

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

#14=FIX[#118/#6]

#15=FIX[#14/2]

T#20 M6

G90 G54

G0 X0. Y0. S#19 M3

G43 Z10. H#20

/M8

#126=[-#119+0.3]

G1 Z#126 F2500.

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

X#24

G3 I-#24 Z-#119 F#9

WHILE[#15GE#105]DO1

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

G1 X#24

G3 I-#24

#15=[#15-1]

END1

G3 X[[#118/2]-#6] I-[#6/2]

G1 Z10.

M5

M9

G91 G28 Z0.

G28 Y0.

M30

%