APT自动编程举例源程序（6）
1 114
P23=P/P3,DELTA,(-RD-B), TIMES, UNIT,V1
115
D1=DISTF(P0, P23)
116 D2=R1
117
P9=P/P77,DELTA,(-(2*B+2*RD)), TIMES, $
118
OBTAIN, P/P9,X9,Y9,Z9
119
PJ=P/X9,Y9,0
120
SP=P/X9,Y9,100
121
N1=ABSF(N)
122
CUTTER/(2*RD), RTR
123 $ $
MCHTOL/. 0005
124 OUTTOL/. 0005
125 ME=MATRIX/XYROT,(-90)
126 TRACUT/ME
127 S/34,CLW
128 FRCM/0,0,100
129 F/1000
130 GOTO/SP
131 INDEX/1
132 GD/0,0,-50
133 GD/0,0,-50
134 F/30
135 FROM/PJ