使用这程序修改两个地方（R99后面1代表G54,这个根据大家的需求可以用2，3，4，5······· 对应的G55 G56`````` R2就是一个条件跳跃 第一个点等于0 按启动 第二个点用1 按启动就可以了）

R99=1 R2=0
MSG ("QQ269945640")
R98=R99+1
IF R2==1 GOTOF BB
R10=$AA_IM[X]
R11=$AA_IM[Z]
R12=$AA_IM[B]
M2
BB:
R20=$AA_IM[X]
R21=$AA_IM[Z]
R30=ABS(R10-R20) R31=ABS(R11-R21)
R40=ATAN2(R31,R30)
$P_UIFR[R99,B,TR]=R12
IF R10GOTOF N30
N20 IF R11GOTOF N40;
N30 IF R11>R21 GOTOF N50
GOTOF N40
N40
SUPA G0Z=R21+100
G[8]=R98
G0 B=ACP(R40)
$P_UIFR[R99,B,TR]=$AA_IM[B]
M2
N50 SUPA G0Z=R21+100
G[8]=R98
G0B=ACN(360-R40)
$P_UIFR[R99,B,TR]=$AA_IM[B]
M17

?