多层焊子程序.doc

&ACCESS RVP&REL 5&PARAM TEMPLATE = C:KRCTPMultiLayerTemplateVORGABE_MultiLayer128&PARAM EDITMASK = *DEF multi(LAYER :IN);FOLD DECLDECL INT LAYER;ENDFOLD (DECL);FOLD INI;FOLD BASISTECH INIGLOBAL INTERRUPT DECL 3 WHEN $STOPMESS=TRUE DO IR_STOPM ( )INTERRUPT ON 3 BAS (#INITMOV,0 );ENDFOLD (BASISTECH INI);FOLD USER INI;%E%V3.2.0,%MKUKATPUSER,%CINIT,%VINIT,%P;Make your modifications here;ENDFOLD (USER INI);ENDFOLD (INI);FOLD TECH_INI.ARCTECH_ANALOG ;%PE%MKUKATPUSERIF A10_OPTION=#ACTIVE THEN INTERRUPT DECL A_Arc_Control_Intr WHEN $CYCFLAGA_CycFlagIndex1=FALSE DO A10 (#APPL_ERROR) INTERRUPT DECL A_Arc_Swi_Intr WHEN A_ARC_SWI=#ACTIVE DO A10 (#ARC_SEAM) INTERRUPT DECL A_Arc_HPU_Intr WHEN A_FLY_ARC=TRUE DO A10 (#HPU_ARC) INTERRUPT ON A_Arc_HPU_Intr A10_INI ( ) ENDIF ;ENDFOLD ;FOLD PTP P10 CONT Vel=5 % PDAT1 Tool1:tool Base0;%PE%R 5.6.13,%MKUKATPBASIS,%CMOVE,%VPTP,%P 1:PTP, 2:P10, 3:C_PTP, 5:5, 7:PDAT1$BWDSTART=FALSEPDAT_ACT=PPDAT1FDAT_ACT=FP10BAS(#PTP_PARAMS,5)PTP XP10 C_PTP;ENDFOLD;FOLD LayerControl.ROOT : 1, =;%PE%MKUKATPUSERML_CT_INI() SWITCH LAYER CASE 1 ML_Reset() pkt_nr = 1 pkt_max = 0 ML_CT_Root() ML_SP_INI();ENDFOLD ;FOLD LIN P1 Vel=0.2 m/s CPDAT1 ARC_ON PS S Seam1 Tool1:tool Base0;%PE%R 1.3.6,%MKUKATPARC,%CARC_ON,%VLIN,%P 1:LIN, 2:P1, 3:C_DIS, 5:0.2, 7:CPDAT1, 9:1, 10:S, 12:Seam1$BWDSTART=FALSELDAT_ACT=LCPDAT1FDAT_ACT=FP1BAS(#CP_PARAMS,0.2)A10(#PRE_ARC_ON,A10BS,A_W_PARA_ACT,A_E_PARA_ACT,1)LIN XP1A10(#ARC_STRT);ENDFOLD;FOLD PathMemo.ON_LIN Sensor: TRACK;%PE%MKUKATPUSERTRIGGER WHEN DISTANCE=0 DELAY=36 DO ML_SP_SAVE(1,1,1) PRIO=-1;ENDFOLD;FOLD PathMemo.SWI_LIN Sensor: TRACK;%PE%MKUKATPUSERTRIGGER WHEN DISTANCE=1 DELAY=0 DO ML_SP_SAVE(1,1,2) PRIO=-1;ENDFOLD;FOLD LIN P3 CONT CPDAT3 ARC PS W2 Tool1:tool Base0;%PE%R 1.3.6,%MKUKATPARC,%CTRACK_SWI,%VLIN,%P 1:LIN, 2:P3, 3:C_DIS, 5:0.2, 7:CPDAT3, 9:1, 11:W2, 12:1, 13:T$BWDSTART=FALSELDAT_ACT=LCPDAT3FDAT_ACT=FP3BAS(#CP_PARAMS,LDEFAULT.VEL)PS_TEMP_SET=SEN_IDLE_PARA10(#PRE_ARC_SWI,A_S_PARA_ACT,A10WW2,A_E_PARA_ACT,1)LIN XP3 C_DIS;ENDFOLD;FOLD PathMemo.SWI_LIN Sensor: TRACK;%PE%MKUKATPUSERTRIGGER WHEN DISTANCE=1 DELAY=0 DO ML_SP_SAVE(1,1,2) PRIO=-1;ENDFOLD;FOLD LIN P4 CONT CPDAT4 ARC PS W3 Tool1:tool Base0;%PE%R 1.3.6,%MKUKATPARC,%CTRACK_SWI,%VLIN,%P 1:LIN, 2:P4, 3:C_DIS, 5:0.2, 7:CPDAT4, 9:1, 11:W3, 12:1, 13:T$BWDSTART=FALSELDAT_ACT=LCPDAT4FDAT_ACT=FP4BAS(#CP_PARAMS,LDEFAULT.VEL)PS_TEMP_SET=SEN_IDLE_PARA10(#PRE_ARC_SWI,A_S_PARA_ACT,A10WW3,A_E_PARA_ACT,1)LIN XP4 C_DIS;ENDFOLD;FOLD PathMemo.OFF_LIN Sensor: TRACK;%PE%MKUKATPUSERTRIGGER WHEN DISTANCE=1 DELAY=-36 DO ML_SP_SAVE(1,1,3) PRIO=-1;ENDFOLD;FOLD LIN P5 CPDAT5 ARC_OFF PS W4 E Seam1 Tool1:tool Base0;%PE%R 1.3.6,%MKUKATPARC,%CTRACK_OFF,%VLIN,%P 1:LIN, 2:P5, 3:C_DIS, 5:0.2, 7:CPDAT5, 9:1, 10:W4, 11:E, 12:1, 13:T, 14:Seam1$BWDSTART=FALSELDAT_ACT=LCPDAT5FDAT_ACT=FP5BAS(#CP_PARAMS,LDEFAULT.VEL)PS_TEMP_SET=SEN_IDLE_PARA10(#PRE_ARC_OFF,A_S_PARA_ACT,A10WW4,A10EE,1)LIN XP5A10(#ARC_OFF);ENDFOLD ;FOLD PTP P11 CONT Vel=5 % PDAT2 Tool1:tool Base0;%PE%R 5.6.13,%MKUKATPBASIS,%CMOVE,%VPTP,%P 1:PTP, 2:P11, 3:C_PTP, 5:5, 7:PDAT2$BWDSTART=FALSEPDAT_ACT=PPDAT2FDAT_ACT=FP11BAS(#PTP_PARAMS,5)PTP XP11 C_PTP;ENDFOLD ;FOLD LayerControl.LAYER : 2, -;%PE%MKUKATPUSERCASE 2ML_CT_Layer() ;ENDFOLD;FOLD LayerControl.OFFSET Layer: 2, X= 0mm, Y= 0mm, Z= 10mm, A= 0? B= 0? C= 0? |-, Start X= 0mm, End X= 0mm;%PE%MKUKATPUSERiML_LayerFlag = 2IF LAYER=iML_LayerFlag THEN fML_PathOffset2=x 0, y 0, z 10, a 0, b 0, c 0 fML_PointOffset21.x = 0.0 fML_PointOffset21.x = fML_PointOffset21.x + (0)fML_PointOffset2pkt_max.x = 0.0 fML_PointOffset2pkt_max.x = fML_PointOffset2pkt_max.x + (0)FOR pkt_nr=1 TO pkt_max ML_Calculation(fML_PathOffset2,fML_PointOffset2pkt_nr, e6ML_SP0_ACTpkt_nr, fML_SP0_TTSpkt_nr, iML_SP0_INFpkt_nr,1, iML_SP0_INFpkt_nr,2, iML_SP0_INFpkt_nr,3, rML_SP0_LBPpkt_nr, rML_SP0_LBYpkt_nr, rML_SP0_LBZpkt_nr, rML_SP0_TV1pkt_nr, rML_SP0_TV2pkt_nr, e6ML_CP0_OST) e6ML_CP0pkt_nr=e6ML_CP0_OST ENDFOR ML_CP_to_XSP() ENDIF ;ENDFOLD;FOLD LIN SP001 Vel=0.2 m/s CPDAT6 ARC_ON PS S Seam1 Tool1:tool Base0;%PE%R 1.3.6,%MKUKATPARC,%CARC_ON,%VLIN,%P 1:LIN, 2:SP001, 3:C_DIS, 5:0.2, 7:CPDAT6, 9:1, 10:S, 12:Seam1$BWDSTART=FALSELDAT_ACT=LCPDAT6FDAT_ACT=FSP001BAS(#CP_PARAMS,0.2)A10(#PRE_ARC_ON,A10BS,A_W_PARA_ACT,A_E_PARA_ACT,1)LIN XSP001A10(#ARC_STRT);ENDFOLD;FOLD LIN SP002 CONT CPDAT7 ARC PS W5 Tool1:tool Base0;%PE%R 1.3.6,%MKUKATPARC,%CTRACK_SWI,%VLIN,%P 1:LIN, 2:SP002, 3:C_DIS, 5:0.2, 7:CPDAT7, 9:1, 11:W5, 12:1, 13:T$BWDSTART=FALSELDAT_ACT=LCPDAT7FDAT_ACT=FSP002BAS(#CP_PARAMS,LDEFAULT.VEL)PS_TEMP_SET=SEN_IDLE_PARA10(#PRE_ARC_SWI,A_S_PARA_ACT,A10WW5,A_E_PARA_ACT,1)LIN XSP002 C_DIS;ENDFOLD;FOLD LIN SP003 CONT CPDAT8 ARC PS W6 Tool1:tool Base0;%PE%R 1.3.6,%MKUKATPARC,%CTRACK_SWI,%VLIN,%P 1:LIN, 2:SP003, 3:C_DIS, 5:0.2, 7:CPDAT8, 9:1, 11:W6, 12:1, 13:T$BWDSTART=FALSELDAT_ACT=LCPDAT8FDAT_ACT=FSP003BAS(#CP_PARAMS,LDEFAULT.VEL)PS_TEMP_SET=SEN_IDLE_PARA10(#PRE_ARC_SWI,A_S_PARA_ACT,A10WW6,A_E_PARA_ACT,1)LIN XSP003 C_DIS;ENDFOLD;FOLD LIN SP004 CPDAT9 ARC_OFF PS W7 E Seam1 Tool1:tool Base0;%PE%R 1.3.6,%MKUKATPARC,%CTRACK_OFF,%VLIN,%P 1:LIN, 2:SP004, 3:C_DIS, 5:0.2, 7:CPDAT9, 9:1, 10:W7, 11:E, 12:1, 13:T, 14:Seam1$BWDSTART=FALSELDAT_ACT=LCPDAT9FDAT_ACT=FSP004BAS(#CP_PARAMS,LDEFAULT.VEL)PS_TEMP_SET=SEN_IDLE_PARA10(#PRE_ARC_OFF,A_S_PARA_ACT,A10WW7,A10EE,1)LIN XSP004A10(#ARC_OFF);ENDFOLD;FOLD LayerControl.OFF =;%PE%MKUKATPUSERML_CT_End() DEFAULT ML_CT_ErrMsg(2,1,Layer) ENDSWITCH ;ENDFOLDEND;FOLD MultiLayer ControlDEF ML_SP_INI()bML_CIRC_H = FALSE GLOBAL INTERRUPT DECL 10 WHEN bML_CIRC_H=TRUE DO ML_SP_SAVE(2,2)GLOBAL INTERRUPT DECL 11 WHEN bML_CIRC_H=TRUE DO ML_SP_SAVE(2,3)ENDDEF ML_SP_SAVE (CP_TYP :IN,SENS_TYP :IN,APP_TYP :IN)DECL INT CP_TYP, SENS_TYP, APP_TYPbML_CIRC_active = FALSEe6ML_SP0_ACTpkt_nr=$POS_ACTfML_SP0_TTSpkt_nr=$TSYSrML_SP0_LBPpkt_nr=$SEN_PREA_C4rML_SP0_LBYpkt_nr=$SEN_PREA_C6rML_SP0_LBZpkt_nr=$SEN_PREA_C7rML_SP0_TV1pkt_nr=$TECHVAL1rML_SP0_TV2pkt_nr=$TECHVAL2IF CP_TYP=2 THEN SENS_TYP = iML_SENS_TYP INTERRUPT OFF 10 INTERRUPT OFF 11ENDIFiML_SP0_INFpkt_nr,1=CP_TYPiML_SP0_INFpkt_nr,2=SENS_TYPiML_SP0_INFpkt_nr,3=APP_TYPpkt_nr = pkt_nr +1pkt_max = pkt_max + 1ENDDEF ML_Reset ()FOR pkt_nr=1 TO 128 iML_SP0_INFpkt_nr,1 = 0 iML_SP0_INFpkt_nr,2 = 0 iML_SP0_INFpkt_nr,3 = 0 e6ML_SP0_ACTpkt_nr = X 9999.9,Y 9999.9,Z 9999.9,A 9999.9,B 9999.9,C 9999.9,S 0,T 0,e1 9999.9,e2 9999.9,e3 9999.9,e4 9999.9,e5 9999.9,e6 9999.9 e6ML_CP0pkt_nr = X 9999.9,Y 9999.9,Z 9999.9,A 9999.9,B 9999.9,C 9999.9,S 0,T 0,e1 9999.9,e2 9999.9,e3 9999.9,e4 9999.9,e5 9999.9,e6 9999.9 fML_SP0_TTSpkt_nr = X 9999.9,Y 9999.9,Z 9999.9,A 9999.9,B 9999.9,C 9999.9 rML_SP0_TV1pkt_nr = 0.0 rML_SP0_TV2pkt_nr = 0.0 rML_SP0_LBPpkt_nr = 0.0 rML_SP0_LBYpkt_nr = 0.0 rML_SP0_LBZpkt_nr = 0.0 fML_PointOffset1pkt_nr = X 0.0,Y 0.0,Z 0.0,A 0.0,B 0.0,C 0.0 fML_PointOffset2pkt_nr = X 0.0,Y 0.0,Z 0.0,A 0.0,B 0.0,C 0.0 fML_PointOffset3pkt_nr = X 0.0,Y 0.0,Z 0.0,A 0.0,B 0.0,C 0.0 fML_PointOffset4pkt_nr = X 0.0,Y 0.0,Z 0.0,A 0.0,B 0.0,C 0.0 fML_PointOffset5pkt_nr = X 0.0,Y 0.0,Z 0.0,A 0.0,B 0.0,C 0.0 fML_PointOffset6pkt_nr = X 0.0,Y 0.0,Z 0.0,A 0.0,B 0.0,C 0.0 fML_PointOffset7pkt_nr = X 0.0,Y 0.0,Z 0.0,A 0.0,B 0.0,C 0.0 fML_PointOffset8pkt_nr = X 0.0,Y 0.0,Z 0.0,A 0.0,B 0.0,C 0.0 fML_PointOffset9pkt_nr = X 0.0,Y 0.0,Z 0.0,A 0.0,B 0.0,C 0.0 fML_PointOffset10pkt_nr = X 0.0,Y 0.0,Z 0.0,A 0.0,B 0.0,C 0.0 fML_PointOffset11pkt_nr = X 0.0,Y 0.0,Z 0.0,A 0.0,B 0.0,C 0.0 fML_PointOffset12pkt_nr = X 0.0,Y 0.0,Z 0.0,A 0.0,B 0.0,C 0.0 fML_PointOffset13pkt_nr = X 0.0,Y 0.0,Z 0.0,A 0.0,B 0.0,C 0.0 fML_PointOffset14pkt_nr = X 0.0,Y 0.0,Z 0.0,A 0.0,B 0.0,C 0.0 fML_PointOffset15pkt_nr = X 0.0,Y 0.0,Z 0.0,A 0.0,B 0.0,C 0.0 fML_PointOffset16pkt_nr = X 0.0,Y 0.0,Z 0.0,A 0.0,B 0.0,C 0.0 fML_PointOffset17pkt_nr = X 0.0,Y 0.0,Z 0.0,A 0.0,B 0.0,C 0.0 fML_PointOffset18pkt_nr = X 0.0,Y 0.0,Z 0.0,A 0.0,B 0.0,C 0.0 fML_PointOffset19pkt_nr = X 0.0,Y 0.0,Z 0.0,A 0.0,B 0.0,C 0.0 fML_PointOffset20pkt_nr = X 0.0,Y 0.0,Z 0.0,A 0.0,B 0.0,C 0.0ENDFORENDDEF ML_CP_to_XSP ()XSP001 = e6ML_CP01XSP002 = e6ML_CP02XSP003 = e6ML_CP03XSP004 = e6ML_CP04XSP005 = e6ML_CP05XSP006 = e6ML_CP06XSP007 = e6ML_CP07XSP008 = e6ML_CP08XSP009 = e6ML_CP09XSP010 = e6ML_CP010XSP011 = e6ML_CP011XSP012 = e6ML_CP012XSP013 = e6ML_CP013XSP014 = e6ML_CP014XSP015 = e6ML_CP015XSP016 = e6ML_CP016XSP017 = e6ML_CP017XSP018 = e6ML_CP018XSP019 = e6ML_CP019XSP020 = e6ML_CP020XSP021 = e6ML_CP021XSP022 = e6ML_CP022XSP023 = e6ML_CP023XSP024 = e6ML_CP024XSP025 = e6ML_CP025XSP026 = e6ML_CP026XSP027 = e6ML_CP027XSP028 = e6ML_CP028XSP029 = e6ML_CP029XSP030 = e6ML_CP030XSP031 = e6ML_CP031XSP032 = e6ML_CP032XSP033 = e6ML_CP033XSP034 = e6ML_CP034XSP035 = e6ML_CP035XSP036 = e6ML_CP036XSP037 = e6ML_CP037XSP038 = e6ML_CP038XSP039 = e6ML_CP039XSP040 = e6ML_CP040XSP041 = e6ML_CP041XSP042 = e6ML_CP042XSP043 = e6ML_CP043XSP044 = e6ML_CP044XSP045 = e6ML_CP045XSP046 = e6ML_CP046XSP047 = e6ML_CP047XSP048 = e6ML_CP048XSP049 = e6ML_CP049XSP050 = e6ML_CP050XSP051 = e6ML_CP051XSP052 = e6ML_CP052XSP053 = e6ML_CP053XSP054 = e6ML_CP054XSP055 = e6ML_CP055XSP056 = e6ML_CP056XSP057 = e6ML_CP057XSP058 = e6ML_CP058XSP059 = e6ML_CP059XSP060 = e6ML_CP060XSP061 = e6ML_CP061XSP062 = e6ML_CP062XSP063 = e6ML_CP063XSP064 = e6ML_CP064XSP065 = e6ML_CP065XSP066 = e6ML_CP066XSP067 = e6ML_CP067XSP068 = e6ML_CP068XSP069 = e6ML_CP069XSP070 = e6ML_CP070XSP071 = e6ML_CP071XSP072 = e6ML_CP072XSP073 = e6ML_CP073XSP074 = e6ML_CP074XSP075 = e6ML_CP075XSP076