多層焊子程序

1、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,%MKUKATPUSE

2、R,%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 $CYCFLAG[A_CycFlagIndex1]

3、==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 ;

4、ENDFOLDA10(#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 D

5、ISTANCE=1 DELAY=0 DO ML_SP_SAVE(1,1,2) PRIO=-1;ENDFOLD;FOLD LIN P3 CONT CPDAT3 ARC PS W2 Tool[1]:tool Base[0];%{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

6、: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}%MKUKATP

7、USERTRIGGER WHEN DISTANCE=1 DELAY=0 DO ML_SP_SAVE(1,1,2) PRIO=-1;ENDFOLD;FOLD LIN P4 CONT CPDAT4 ARC PS W3 Tool[1]:tool Base[0];%{PE}%R 1.3.6,%MKUKATPARC,%CTRACK_SWI,%VLIN,%P 1:LIN, 2:P4, 3:C_DIS, 5:0.2, 7:CPDAT4, 9: