激光切割机程序

%SUB PROGRAM,MX-O,
; DATE : 12-22-2012
; QING DAO CHUANGLING JIDIAN,CO.LTD
; LASER MODE: CLC-L60*15 CP 4000
;
;***** OXYGEN STEEL-CUTTING PREPARE ******
;
(SUB 1000)
(P210=1000)
M55
M21
M12
M10
G04K50
M16
G51E0.1
(RET)
;
;***** OXYGEN STEEL-CUTTING THICKNESS LESS THAN 3MM LASER ON ******
;
(SUB 1001)
(P211=BLKN,PLCR1=P132,ANAO7=P113,ANAO8=P221,PLCR410=P135,P130=PPOSX,P131=PPOSY)
N0010 M23
N0020 S3000M3
N0030 (PCALL 9900,D20,F45)
N0040 M10
N0050 G04K10
N0060 M20
N0070 G04KP132
N0080 SP104M3 M22
N0090 (ANAO7=P112,ANAO8=P222,PLCR410=P134)
N0100 FP108
N0110 (RET)
;
;***** OXYGEN STEEL-CUTTING THICKNESS 4-8MM LASER ON ******
;
(SUB 1002)
(P211=BLKN,PLCR1=P132,ANAO7=P113,ANAO8=P221,PLCR410=P135,P130=PPOSX,P131=PPOSY)
N0010 M23
N0020 S3500M3
N0030 (PCALL 9900,D20,F45)
N0040 M10
N0050 G04K10
N0060 M20
N0070 M15
N0080 SP104M3 M22
N0090 (ANAO7=P112,ANAO8=P222,PLCR410=P134)
N0100 FP108
N0110 (RET)
;
;***** OXYGEN STEEL-CUTTING THICKNESS OVER 10MM LASER ON ******
;
(SUB 1003)
(P211=BLKN,PLCR1=P132,ANAO7=1.5,ANAO8=P221,PLCR410=P135,P130=PPOSX,P131=PPOSY)
N0010 M22
N0020 S4000M3
N0030 M20
N0040 G04K20
N0050 M21
N0060 (ANAO7=P113)
N0070 G04K50
N0080 M23
N0090 (PCALL 9900,D20,F45)
N0100 M10
N0110 M20
N0120 M15
N0130 SP104M3 M22
N0140 (ANAO7=P112,ANAO8=P222,PLCR410=P134)
N0150 FP108
N0160 G04K10
N0170 (PLCR457=P157)
N0180 (PLCMM57=PLCMM10)
N0190 (RET)
;
******* OXYGEN LASER DRAWING LINE*******
;
(SUB 1004)
(P211=BLKN,PLCR1=P132,ANAO7=P113,ANAO8=P221,PLCR410=P135,P130=PPOSX,P131=PPOSY)
N0010 M10
N0020 M22
N0060 SP106M3
N0070 M20
N0080 G04K10
N0100 FP111
N0090 (RET)
;
;***** HOLE MARKING ******
;
(SUB 1005)
(P211=BLKN,PLCR1=P132,ANAO7=P113,ANAO8=P221,PLCR410=P135,P130=PPOSX,P131=PPOSY)
M23
N0010 (PCALL 9900,D18,F60)
N0020 S2000M3
N0030 M10
N0040 M20
N0050 G04KP107
N0060 M21
N0070 (RET )
;
;***** OXYGEN CUTTING SMALL HOLE LASER ON ******
;
(SUB 1006)
(P211=BLKN,PLCR1=P132,ANAO7=P113,ANAO8=P221,PLCR410=P135,P130=PPOSX,P131=PPOSY)
N0010 M23
N0020 S3500M3
N0030 (PCALL 9900,D20,F45)
N0040 M10
N0050 G04K10
N0060 M20
N0070 G04KP132
N0080 SP105M3 M22
N0090 (ANAO7=P112,ANAO8=P222，PLCR410=P134)
N0100 FP109
N0120 (RET)
;
;***** OXYGEN STEEL-CUTTING THICKNESS OVER 10MM LASER ON ******
;
(SUB 1007)
(P211=B

LKN,PLCR1=P132,ANAO7=P113,ANAO8=P221,PLCR410=P135,P130=PPOSX,P131=PPOSY)
N0010 M23
N0020 S4000M3
N0030 (PCALL 9900,D20,F45)
N0040 M20
N0050 G04KP128
N0060 (PLCR410=P135-1000,ANAO8=P221-1)
N0070 (PCALL 9900,D20,F45)
N0080 M15
N0100 M10
N0130 SP104M3 M22
N0140 (ANAO7=P112,ANAO8=P222,PLCR410=P134)
N0160 FP108
N0150 G04K10
N0170 (PLCR457=P157)
N0180 (PLCMM57=PLCMM10)
N0120 (RET)
;***** OXYGEN STEEL-CUTTING LASER Z JUMP OFF ******
;
N0010 (SUB 1009)
N0020 M21
N0030 (ANAO7=P113,ANAO8=0,PLCR410=P135)
N0040 M60
N0050 (RET)
;
;***** OXYGEN STEEL-CUTTING LASER Z JUMP OFF ******
;
N0010 (SUB 1008)
N0020 M21
N0030 (ANAO7=P113,ANAO8=0,PLCR410=P135)
N0040 M11
N0050 (RET)
;
;***** OXYGEN CUTTING PROGRAM END ******
;
N0010 (SUB 1010)
N0020 M12
N0030 M54
N0040 (ANAO7=0,ANAO8=0)
N0050 M16
N0060 (P100=POSZ)
N0070 G90G00ZP100
N0080 G90G0Z0
N0090 (RET)
;
;***** NITROGEN CUTTING PROGRAM START ******
;
(SUB 1100)
(P210=1100)
M21
M12
(P122=P100/3)
G51E0.1
(RET)
;
;***** NITROGEN CUTTING STAINLESS STEEL LASS THAN 2MM LASER OPEN ******
;
(SUB 1101)
(P211=BLKN,PLCR1=P132,ANAO8=P221,PLCR410=P137,P130=PPOSX,P131=PPOSY)
M22M10
N0010 S4000M3
N0020 M56
N0030 G04K20
N0040 M20
N0050 G04KP132
N0060 (ANAO8=P222,PLCR410=P136)
N0070 SP104M3
N0090 (RET)
;
;***** NITROGEN CUTTING STAINLESS STEEL OVER 3MM LASER OPEN ******
;
(SUB 1102)
(P211=BLKN,PLCR1=P132,ANAO8=P221,PLCR410=P137,P130=PPOSX,P131=PPOSY)
M22M10
N0010 M16
N0020 (P100=POSZ)
N0030 G90G00ZP100
N0040 S4000M3
N0050 M56
N0060 G04K20
N0070 M20
N0080 M15
N0090 (ANAO8=P222,PLCR410=P136)
N0100 SP104M3
N0110 (RET)
;***** NITROGEN CUTTING STAINLESS STEEL OVER 3MM LASER OPEN ******
;
(SUB 1103)
(P211=BLKN,PLCR1=P132,ANAO8=P221,PLCR410=P137,P130=PPOSX,P131=PPOSY)
M22M10
N0010 S4000M3
N0020 M56
N0030 G04K20
N0040 M20
N0050 M15
N0060 (ANAO8=P222,PLCR410=P136)
N0070 SP104M3
N0160 (RET)
;
;***** NITROGEN CUTTING STAINLESS STEEL LASS THAN 2MM LASER OPEN ******
(SUB 1107)
(P211=BLKN,PLCR1=P132,ANAO8=P221,PLCR410=P137,P130=PPOSX,P131=PPOSY)
M22M10
N0010 S4000M3
N0020 M56
N0030 G04K20
N0040 M20
N0050 M15
N0060 (ANAO8=P222,PLCR410=P136)
N0070 SP105M3
N0100 (RET)
;
;***** NITROGEN CUTTING LASER Z JUMP CLOSE ******
;
N0010 (SUB 1108)
N0020 M21M54
N0030 (ANAO8=0,PLCR410=P137)
N0040 M11
N0050 (RET)
;
;***** NITROGEN CUTTING LASER CLOSE ******
;
N0010 (SUB 1109)
N0020 M21 M54
N0030 (ANAO8=0,PLCR410=P137)
N0040 M60
N0070 (RET)
;
;******* AIR CUTTING WOOD PREPARE
;
(SUB 1200)
(P210=1200)
M21
M12
M54
G91G0Z-30
(RET)
;
;***** AIR CW CUTTING WOOD LASER ON*****
;
(SUB 1201)
(P211=BLKN,PLCR1=P132,ANAO7=P113,ANAO8=P221,PLCR410=P137,P130=PPOSX,P131=PPOSY)
G91G0Z30
N0010 M22
N0020 SP104M3
N0030 M20
N0040 M15
N0050 (ANAO7=P112,ANAO8=P222)
N0060 FP108
N0110 (RET)
;
;***** AIR CW CUTTING WOOD LASER OFF

******
;
N0010 (SUB 1209)
N0020 M21
N0040 G91G0Z-30
N0050 (RET)
;
;***** AIR PULSE CUTTING WOOD DRAWING LINE LASER ON ******
;
(SUB 1204)
(P211=BLKN,PLCR1=P132,ANAO7=P113,ANAO8=P221,PLCR410=P137,P130=PPOSX,P131=PPOSY)
G91G0Z30
N0010 M22
N0020 SP106M3
N0030 M20
N0040 G04K5
N0050 (ANAO7=P112,ANAO8=P222)
N0060 FP108
N0110 (RET)
;
;******** FIND THE LAST PIERCING POINT ********
;
N0010 (SUB 80)
N0020 M11
N0030 G90 XP130 YP131
N0040 G91
N0050 (RET)
;
;******* ADJUST LASER PATH ********
;
N0010 (SUB 82)
N0020 M21
N0030 M22M12
N0040 SP106M3
N0050 M20
N0060 G04K15
N0070 M21
N0080 M13
N0080 (RET)
;
;******* AUTO JUST NOZZLE CENTER ********
;
N0010 (SUB 83)
N0020 M21
N0030 M22M12
N0040 SP106M3
N0050 M20
N0060 G04K15
N0070 M21
N0080 M13
N0090 (RET)
;
;*******TWICE POINT********
;
N0010 (SUB 1800)
M16
N0020 (P100=POSZ)
N0030 G90G00ZP100
G90G0Z0
M31
G91G00XP138YP139
N0050 (RET )
;