钻孔加工宏程序_==

如上图,

当#110=0加工1、2、3、4孔,

      =1加工1孔,

      =2加工2孔,

      =3加工3孔,

      =4加工4孔,

      =12加工1、2孔,

      =13加工1、3孔,

      =14加工1、4孔, 

      =23加工2、3孔

      =24加工2、4孔,

      =34加工3、4孔,

      =123加工1、2、3孔,

      =234加工2、3、4孔。

要求:只能用四组坐标实现

程序参考:

%

O99

#100=54 (坐标)

#101=1 (刀号)

#1=3 (R点)

#2=2 (Q值)

#3=20 (Z深度)

#4=100 (X坐标) 

#5=100 (Y坐标)

#102=600 (转速)

#21=100 (进给)

#104=81 (G81/G83)

#111=0 (加工模式)

(*************)/

G80 M5

M9

G91 G28 G0 Z0

#100=FI[#100]

#6=15

IF[#111 EQ 0]GO 1

#6=1

IF[#111 EQ 1]GO 1

#6=2 

IF[#111 EQ 2]GO 1

#6=4

IF[#111 EQ 3]GO 1

#6=8

IF[#111 EQ 4]GO 1

#6=3

IF[#111 EQ 12]GO 1

#6=5

IF[#111 EQ 13]GO 1

#6=9

IF[#111 EQ 14]GO 1

#6=6

IF[#111 EQ 23]GO 1

#6=10

IF[#111 EQ 24]GO 1

#6=12

IF[#111 EQ 34]GO 1

#6=7

IF[#111 EQ 123]GO 1

#6=14

IF[#111 EQ 234]GO 1

#3000=1 (#111-MODE-ERROR)

N1

G90 G#100 G0 X0 Y0

G43 H#101 Z100.

G43 H#101 Z100.

M3 S#102

M8

G#104 R#1 Q#2 Z-#3 F#21 K0

IF[[#6 AN 1] EQ 0]GO 2

X-#4 Y-#5

N2

IF[[#6 AN 2] EQ 0]GO 3

X-#4 Y#5* L! {9 ?+ u( T

N3

IF[[#6 AN 4] EQ 0]GO 4

X#4 Y#5

N4

IF[[#6 AN 8] EQ 0]GO 5

X#4 Y-#5

N5

G80 M5

M9

G91 G28 G0 Z0

M30

%