APT自动编程举例源程序（2）

  021    RD=11

022    RTR=3

023    PL1=PL/0,0,1,0

024    P0=P/0,0,0

025    P1=P/0,R2

026    C1=C/CE,P0,R,R1

027    C2=C/CE,P0,R,R2

028    C3=C/CE,P0,R,R3

029    C4=C/CE,P1,R,R4

030    L1=L/P0,ATANGL,(90+360/N), XAXIS

031    L0=L/P0,ATANGL,(90-360/N), XAXIS

032    P6=P/YL,INTOF,L1,C2

033    P7=P/YL,INTOF,L0,C2

034    C44=C/CE,P6,R,R4

035    C88=C/CE,P7,R,R4

036    C11=C/CE,P0,R,(R1＋B)

037    LOOPST

038    IF（N）1Y,1Y,2Y

039    IY）P2=P/XS,INTOF,C3,C4

040    P5=P/XS,INTOF,C44,C3

041    P8=P/XS,INTOF,C88,C3

042    JUMPTO/3Y

043    2Y）P2=P/XL,INTOF,C3,C4

044    P5=P/XL,INTOF,C44,C3