1、FOLD INI;FOLD BASISTECH INIGLOBAL INTERRUPT DECL 3 WHEN $STOPMESS=TRUE DO IR_STOPM ( )INTERRUPT ON 3 BAS (#INITMOV,0 );ENDFOLD (BASISTECH INI);FOLD ARCTECH_ANALOG INIIF A10_OPTION=#ACTIVE THENINTERRUPT DECL A_Arc_Control_Intr WHEN $CYCFLAGA_CycFlagIndex1=FALSE DO A10 (#APPL_ERROR)INTERRUPT DECL A_Ar
2、c_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_IntrA10_INI ( )ENDIF;ENDFOLD (ARCTECH_ANALOG INI);FOLD USER INI;%E%V3.2.0,%MKUKATPUSER,%CINIT,%VINIT,%P;Make your modifications here;ENDFOLD (USER INI);ENDFOLD (INI);FOLD PTP P1 Vel=2 % PDAT1 Tool1:tool Base0;%PE%R 5.6.13,%MKUKATPBASIS,%CMOVE,%VPTP,%P 1:PTP, 2:P1, 3:, 5:2, 7:PDAT1$BWDSTART=FALSEPDAT_ACT=PPDAT1FDAT_ACT=FP1BAS(#PTP_PARAMS,2)PTP XP1 ;ENDFOLDEND
