📄 wks.arc
字号:
%_N_1300_QZ09A_25L_MPF
;$PATH=/_N_WKS_DIR/_N_1300_QZ09A_25L_WPD
;MACHINING PROGRAM
;JIANGLING
;MACHINE NR 834_OP50
;LAST CHANGE 28.04.2006
N10 DEF INT AUSGABE_H4000=1 ;CALL GANTRY WHEN MACHINING STEP "X" IS ENDED
N20 H4003
N30 H50=1
N40 M59
N50 H8166
N60 RUECKZUG1[0,0]=SET(1,50,0) RUECKZUG2[0,0]=SET(1,50,0) R1=0 R2=1 R3=2 ZAEHLER=1
N70 BEARB00
N80 R91=0100000 R92=0000010 R93=0001000 R94=1000000 R95=0000001 R96=0 R97=0 R98=0
N90 STOPRE
N100 H2601
N110 STOPRE
N120 G0 G40 G153 X=GD[R1,1] X2=GD[R1,3] D0 M65 M97 M46
N130 H8010
N140 IF ($A_DBB[518]==0);=====GANTRY OFF=====
N150 H8079
N160 ENDIF
N170 H8024
N180 H8026
N190 INIT(2,"/_N_MPF_DIR/_N_TEMPKOMP_MPF")
N200 START(2)
N210 H2142
N220 H2143
N230 STOPRE
N240 $A_DBB[806]=0
N250 $A_DBB[842]=0
N260 R91=0202020 R92=2000002 R93=0 R94=0 R95=0 R96=0 R97=0 R98=0 R86=1101011
N270 STOPRE
N280 H2611
N290 H2600
N300 H2140
N310 H2141
N320 H2021
N330 STOPRE
N340 IF ($A_DBB[804]==0) AND ($A_DBB[840]==0) AND (RUESTABBR==2) AND ($A_DBW[404]>0) AND (WKSTCKTYP==$A_DBW[404]) GOTOF WEITER
N350 MELD:
N360 MSG("PLEASE START THE STARTUP PROGRAM")
N370 M0
N380 STOPRE
N390 MSG("")
N400 GOTOB MELD
N410 WEITER:
N420 H2101
N430 G54
N440 IF GD[R1,6]==0 GOTOF OM0002
N450 M10 M24 M26
N460 G0 G90 G153 Z=GD[R1,2] Z2=GD[R1,4] C=GD[R1,5] W2=GD[R1,6]
N470 GOTOF OM0003
N480 OM0002: G0 G90 G153 Z=GD[R1,2] Z2=GD[R1,4]
N490 OM0003: R11=998 R12=999 ;machining step No.1
N500 IF GD[0,10]<ZAEHLER GOTOF OM0099
N510 H4711
N520 IF GD[R2,5]==0 GOTOF OM0010
N530 G0 Z=GD[R2,1] Z2=GD[R2,3] W2=GD[R2,5]
N540 GOTOF OM0011
N550 OM0010: G0 Z=GD[R2,1] Z2=GD[R2,3]
N560 OM0011: M10 M79
N570 G0 G153 C=DC(GD[R1,5])
N580 IF GD[R2,6]==0 GOTOF OM0015
N590 H8025
N600 R11=25
N610 OM0015: IF GD[R2,7]==0 GOTOF OM0012
N620 H8027
N630 R12=27
N640 OM0012: G0 X=GD[R2,8] X2=GD[R2,9] C=DC(GD[R2,4]) M4 M2=4 S136 S2=136
N650 G0 X=GD[R2,0] X2=GD[R2,2]
N660 STOPRE
N670 M=R11 M=R12
N680 STOPRE
N690 R11=998 R12=999
N700 TRANS X=KOMPX X2=KOMPX2
N710 STOPRE
N720 CALL BEARBOM
N730 STOPRE
N740 IF AUSGABE_H4000<>R2 GOTOF WEITER
N750 H4000
N760 WEITER:
N770 STOPRE
N780 ZAEHLER=ZAEHLER+1
N790 STOPRE
N800 IF GD[R3,5]==0 GOTOF OM0013
N810 H8024
N820 R11=24
N830 H8026
N840 R12=26
N850 OM0013: IF GD[0,10]<ZAEHLER GOTOF OM0099
N860 R1=R1+1 R2=R2+1 R3=R3+1
N870 STOPRE
N880 IF GD[R2,6]<>0 GOTOF OM0016
N890 H8024
N900 R11=24
N910 OM0016: IF GD[R2,7]<>0 GOTOF OM0014
N920 H8026
N930 R12=26
N940 OM0014: G0 X=GD[R1,8] X2=GD[R1,9]
N950 STOPRE
N960 M=R11 M=R12
N970 STOPRE
N980 R11=998 R12=999; machining step No.2
N990 G54
N1000 IF GD[R2,5]==0 GOTOF OM0020
N1010 G0 Z=GD[R2,1] Z2=GD[R2,3] C=DC(GD[R2,4]) W2=GD[R2,5]
N1020 GOTOF OM0021
N1030 OM0020: G0 Z=GD[R2,1] Z2=GD[R2,3] C=DC(GD[R2,4])
N1040 OM0021: IF GD[R2,6]==0 GOTOF OM0025
N1050 H8025
N1060 R11=25
N1070 OM0025: IF GD[R2,7]==0 GOTOF OM0022
N1080 H8027
N1090 R12=27
N1100 OM0022: G0 X=GD[R2,0] X2=GD[R2,2]
N1110 STOPRE
N1120 M=R11 M=R12
N1130 STOPRE
N1140 R11=998 R12=999
N1150 TRANS X=KOMPX X2=KOMPX2
N1160 STOPRE
N1170 CALL BEARBOM
N1180 STOPRE
N1190 IF AUSGABE_H4000<>R2 GOTOF WEITER
N1200 H4000
N1210 WEITER:
N1220 STOPRE
N1230 ZAEHLER=ZAEHLER+1
N1240 STOPRE
N1250 IF GD[R3,5]==0 GOTOF OM0023
N1260 H8024
N1270 R11=24
N1280 H8026
N1290 R12=26
N1300 OM0023: IF GD[0,10]<ZAEHLER GOTOF OM0099
N1310 GOTOB OM0013
N1320 OM0099: G0 X=GD[R2,8] X2=GD[R2,9]
N1330 H8024
N1340 H8026
N1350 H8032 H1=3
N1360 IF ($A_DBB[518]==0);=====GANTRY OFF=====
N1370 H8078
N1380 ENDIF
N1390 G0 G40 G90 G153 X=GD[0,1] X2=GD[0,3] C=DC(GD[0,5]) D0 M5 M2=5
N1400 H8011
N1410 IF GD[0,6]==0 GOTOF OM9002
N1420 M24 M26 M32
N1430 G0 G153 Z=GD[0,2] Z2=GD[0,4] W2=GD[0,6]
N1440 GOTOF OM9003
N1450 OM9002: G0 G153 Z=GD[0,2] Z2=GD[0,4]
N1460 OM9003: M11 M24 M26 M14
N1470 STOPRE
N1480 IF $A_DBB[602]<>0 GOTOF WEITER3;=====WARMING-UP CYCLE=====
N1490 STOPRE
N1500 IF $A_DBB[601]<>0 GOTOF WEITER2;=====WITHOUT WORKPIECE=====
N1510 STOPRE
N1520 IF $A_DBB[518]==0;=====GANTRY OFF=====
N1530 M78
N1540 ENDIF
N1550 H4004 M60 M47
N1560 IF $A_DBB[518]==1 GOTOF WEITER2;=====GANTRY ON=====
N1570 M58
N1580 MSG("UNLOAD WORKPIECE BY HAND PLEASE")
N1590 M0
N1600 MSG("")
N1610 MSG("AUTOMATIC-CLEANING THE CHUCKS --> YES/NO ?")
N1620 H2010
N1630 STOPRE
N1640 MSG("")
N1650 IF $A_DBB[1]<>1 GOTOF WEITER2
N1660 M59
N1670 CLEANING
N1680 STOPRE
N1690 WEITER2:
N1700 H4004 M58
N1710 WEITER3:
N1720 H3150 H4004
N1730 WAITM(1,1,2)
N1740 RUECKZUG1[0,0]=SET(0,50,0) RUECKZUG2[0,0]=SET(0,50,0)
N1750 M30
N1760 PROGRAMMENDE
%_N_1300_QZ10A_28L_MPF
;$PATH=/_N_WKS_DIR/_N_1300_QZ10A_28L_WPD
;MACHINING PROGRAM
;JIANGLING
;MACHINE NR 834_OP50
;LAST CHANGE 28.04.2006
N10 DEF INT AUSGABE_H4000=1 ;CALL GANTRY WHEN MACHINING STEP "X" IS ENDED
N20 H4003
N30 H50=2
N40 M59
N50 H8166
N60 RUECKZUG1[0,0]=SET(1,50,0) RUECKZUG2[0,0]=SET(1,50,0) R1=0 R2=1 R3=2 ZAEHLER=1
N70 BEARB00
N80 R91=0100000 R92=0000010 R93=0001000 R94=1000000 R95=0000001 R96=0 R97=0 R98=0
N90 STOPRE
N100 H2601
N110 STOPRE
N120 G0 G40 G153 X=GD[R1,1] X2=GD[R1,3] D0 M65 M97 M46
N130 H8010
N140 IF ($A_DBB[518]==0);=====GANTRY OFF=====
N150 H8079
N160 ENDIF
N170 H8024
N180 H8026
N190 INIT(2,"/_N_MPF_DIR/_N_TEMPKOMP_MPF")
N200 START(2)
N210 H2142
N220 H2143
N230 STOPRE
N240 $A_DBB[806]=0
N250 $A_DBB[842]=0
N260 R91=0202020 R92=2000002 R93=0 R94=0 R95=0 R96=0 R97=0 R98=0 R86=1101011
N270 STOPRE
N280 H2611
N290 H2600
N300 H2140
N310 H2141
N320 H2021
N330 STOPRE
N340 IF ($A_DBB[804]==0) AND ($A_DBB[840]==0) AND (RUESTABBR==2) AND ($A_DBW[404]>0) AND (WKSTCKTYP==$A_DBW[404]) GOTOF WEITER
N350 MELD:
N360 MSG("PLEASE START THE STARTUP PROGRAM")
N370 M0
N380 STOPRE
N390 MSG("")
N400 GOTOB MELD
N410 WEITER:
N420 H2101
N430 G54
N440 IF GD[R1,6]==0 GOTOF OM0002
N450 M10 M24 M26
N460 G0 G90 G153 Z=GD[R1,2] Z2=GD[R1,4] C=GD[R1,5] W2=GD[R1,6]
N470 GOTOF OM0003
N480 OM0002: G0 G90 G153 Z=GD[R1,2] Z2=GD[R1,4]
N490 OM0003: R11=998 R12=999 ;machining step No.1
N500 IF GD[0,10]<ZAEHLER GOTOF OM0099
N510 H4711
N520 IF GD[R2,5]==0 GOTOF OM0010
N530 G0 Z=GD[R2,1] Z2=GD[R2,3] W2=GD[R2,5]
N540 GOTOF OM0011
N550 OM0010: G0 Z=GD[R2,1] Z2=GD[R2,3]
N560 OM0011: M10 M79
N570 G0 G153 C=DC(GD[R1,5])
N580 IF GD[R2,6]==0 GOTOF OM0015
N590 H8025
N600 R11=25
N610 OM0015: IF GD[R2,7]==0 GOTOF OM0012
N620 H8027
N630 R12=27
N640 OM0012: G0 X=GD[R2,8] X2=GD[R2,9] C=DC(GD[R2,4]) M4 M2=4 S136 S2=136
N650 G0 X=GD[R2,0] X2=GD[R2,2]
N660 STOPRE
N670 M=R11 M=R12
N680 STOPRE
N690 R11=998 R12=999
N700 TRANS X=KOMPX X2=KOMPX2
N710 STOPRE
N720 CALL BEARBOM
N730 STOPRE
N740 IF AUSGABE_H4000<>R2 GOTOF WEITER
N750 H4000
N760 WEITER:
N770 STOPRE
N780 ZAEHLER=ZAEHLER+1
N790 STOPRE
N800 IF GD[R3,5]==0 GOTOF OM0013
N810 H8024
N820 R11=24
N830 H8026
N840 R12=26
N850 OM0013: IF GD[0,10]<ZAEHLER GOTOF OM0099
N860 R1=R1+1 R2=R2+1 R3=R3+1
N870 STOPRE
N880 IF GD[R2,6]<>0 GOTOF OM0016
N890 H8024
N900 R11=24
N910 OM0016: IF GD[R2,7]<>0 GOTOF OM0014
N920 H8026
N930 R12=26
N940 OM0014: G0 X=GD[R1,8] X2=GD[R1,9]
N950 STOPRE
N960 M=R11 M=R12
N970 STOPRE
N980 R11=998 R12=999; machining step No.2
N990 G54
N1000 IF GD[R2,5]==0 GOTOF OM0020
N1010 G0 Z=GD[R2,1] Z2=GD[R2,3] C=DC(GD[R2,4]) W2=GD[R2,5]
N1020 GOTOF OM0021
N1030 OM0020: G0 Z=GD[R2,1] Z2=GD[R2,3] C=DC(GD[R2,4])
N1040 OM0021: IF GD[R2,6]==0 GOTOF OM0025
N1050 H8025
N1060 R11=25
N1070 OM0025: IF GD[R2,7]==0 GOTOF OM0022
N1080 H8027
N1090 R12=27
N1100 OM0022: G0 X=GD[R2,0] X2=GD[R2,2]
N1110 STOPRE
N1120 M=R11 M=R12
N1130 STOPRE
N1140 R11=998 R12=999
N1150 TRANS X=KOMPX X2=KOMPX2
N1160 STOPRE
N1170 CALL BEARBOM
N1180 STOPRE
N1190 IF AUSGABE_H4000<>R2 GOTOF WEITER
N1200 H4000
N1210 WEITER:
N1220 STOPRE
N1230 ZAEHLER=ZAEHLER+1
N1240 STOPRE
N1250 IF GD[R3,5]==0 GOTOF OM0023
N1260 H8024
N1270 R11=24
N1280 H8026
N1290 R12=26
N1300 OM0023: IF GD[0,10]<ZAEHLER GOTOF OM0099
N1310 GOTOB OM0013
N1320 OM0099: G0 X=GD[R2,8] X2=GD[R2,9]
N1330 H8024
N1340 H8026
N1350 H8032 H1=3
N1360 IF ($A_DBB[518]==0);=====GANTRY OFF=====
N1370 H8078
N1380 ENDIF
N1390 G0 G40 G90 G153 X=GD[0,1] X2=GD[0,3] C=DC(GD[0,5]) D0 M5 M2=5
N1400 H8011
N1410 IF GD[0,6]==0 GOTOF OM9002
N1420 M24 M26 M32
N1430 G0 G153 Z=GD[0,2] Z2=GD[0,4] W2=GD[0,6]
N1440 GOTOF OM9003
N1450 OM9002: G0 G153 Z=GD[0,2] Z2=GD[0,4]
N1460 OM9003: M11 M24 M26 M14
N1470 STOPRE
N1480 IF $A_DBB[602]<>0 GOTOF WEITER3;=====WARMING-UP CYCLE=====
N1490 STOPRE
N1500 IF $A_DBB[601]<>0 GOTOF WEITER2;=====WITHOUT WORKPIECE=====
N1510 STOPRE
N1520 IF $A_DBB[518]==0;=====GANTRY OFF=====
N1530 M78
N1540 ENDIF
N1550 H4004 M60 M47
N1560 IF $A_DBB[518]==1 GOTOF WEITER2;=====GANTRY ON=====
N1570 M58
N1580 MSG("UNLOAD WORKPIECE BY HAND PLEASE")
N1590 M0
N1600 MSG("")
N1610 MSG("AUTOMATIC-CLEANING THE CHUCKS --> YES/NO ?")
N1620 H2010
N1630 STOPRE
N1640 MSG("")
N1650 IF $A_DBB[1]<>1 GOTOF WEITER2
N1660 M59
N1670 CLEANING
N1680 STOPRE
N1690 WEITER2:
N1700 H4004 M58
N1710 WEITER3:
N1720 H3150 H4004
N1730 WAITM(1,1,2)
N1740 RUECKZUG1[0,0]=SET(0,50,0) RUECKZUG2[0,0]=SET(0,50,0)
N1750 M30
N1760 PROGRAMMENDE
%_N_X2_AXIS_MPF
;$PATH=/_N_WKS_DIR/_N_LASER_WPD
;LASERMESS_PRG_SIN840D_DR315-4_KANAL1_X2-ACHSE
;9.3.00 DE
ANFANG: STOPRE
;LASER-MESSUNG X2-ACHSE 39.11 mm
;ANZAHL der MESSUNGEN in R00=eingeben
N5 R00=4 R01=0 R02=1 R03=5 R04=0
ANFANG:
N0010 G91
N0015 G94 F400
N0020 G1 X2=39.11
N0025 G4 F5
N0045 G1 X2=-39.11
N0050 G4 F5
STOPRE
N0070 R4= R4+ R2
STOPRE
IF R04 < R03 GOTOB ANFANG
STOPRE
N0075 R04=0
N0080 G1 X2=39.11
STOPRE
N0085 R1= R1+ R2
STOPRE
IF R01 < R00 GOTOB ANFANG
N0090 M30
%_N_X_AXIS_MPF
;$PATH=/_N_WKS_DIR/_N_LASER_WPD
;LASERMESS_PRG_SIN840D_DR315-4_KANAL1_X-ACHSE
;9.3.00 DE
ANFANG: STOPRE
;LASER-MESSUNG X-ACHSE 39.11 mm
;ANZAHL der MESSUNGEN in R00=eingeben
N5 R00=5 R01=0 R02=1 R03=5 R04=0
ANFANG:
N0010 G91
N0015 G94 F400
N0020 G153 G1 X39.11
N0025 G4 F3
N0045 G1 G153 X-39.11
N0050 G4 F3
STOPRE
N0070 R4= R4+ R2
STOPRE
IF R04 < R03 GOTOB ANFANG
STOPRE
N0075 R04=0
N0080 G153 G1 X39.11
STOPRE
N0085 R1= R1+ R2
STOPRE
IF R01 < R00 GOTOB ANFANG
N0090 M30
%_N_Z2_AXIS_MPF
;$PATH=/_N_WKS_DIR/_N_LASER_WPD
;LASERMESS_PRG_SIN840D_DR315-4_KANAL1_Z2-ACHSE
;9.3.00 DE
ANFANG: STOPRE
;LASER-MESSUNG Z2-ACHSE 78.22 mm
;ANZAHL der MESSUNGEN in R00=eingeben
N5 R00=12 R01=0 R02=1 R03=5 R04=0
ANFANG:
N0010 G91
N0015 G94 F600
N0020 G1 Z2=78.22
N0025 G4 F5
N0045 G1 Z2=-78.22
N0050 G4 F5
N0070 R4= R4+ R2
STOPRE
STOPRE
IF R04 < R03 GOTOB ANFANG
STOPRE
N0075 R04=0
STOPRE
N0080 G1 Z2=78.22
N0085 R1= R1+ R2
STOPRE
IF R01 < R00 GOTOB ANFANG
N0090 M30
%_N_Z_AXIS_MPF
;$PATH=/_N_WKS_DIR/_N_LASER_WPD
;LASERMESS_PRG_SIN840D_DR315-4_KANAL1_Z-ACHSE
;9.3.00 DE
ANFANG: STOPRE
;LASER-MESSUNG Z-ACHSE 78.22 mm
;ANZAHL der MESSUNGEN in R00=eingeben
N5 R00=10 R01=0 R02=1 R03=5 R04=0
ANFANG:
N0010 G91
N0015 G94 F600
N0020 G1 Z78.22
N0025 G4 F5
N0045 G1 Z-78.22
N0050 G4 F5
N0070 R4= R4+ R2
STOPRE
STOPRE
IF R04 < R03 GOTOB ANFANG
STOPRE
N0075 R04=0
STOPRE
N0080 G1 Z78.22
N0085 R1= R1+ R2
STOPRE
IF R01 < R00 GOTOB ANFANG
N0090 M30
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -