这个宏程序有没有什么问题？请教

我武维扬

程序如下：

O9010(P0 WORK DEPH & ANGLE CYCLE G112-6050);(DATE 080197);(G65 P9010 T、B、S、Q、-ACR);(A=ANGLE,C=CORNER-RADIVS);G90G10L2P0Z0;#27=4003(G90-G91);IF[#13EQ#0]GOTO30000 (M98-M198);IF[#20EQ#0]GOTO30000 (T=TOP);IF[#2EQ#0]GOTO30000 (B=BOTTOM);IF[#2032LT#3]GOTO30000 (D＜C);IF[#20LT#2]GOTO30000 (T＜B);IF[#17EQ#0]GOTO30000 (Q);IF[#19EQ#0]GOTO30000 (S=SUB PRO);IF[#19NE#0]GOTO1001 (R POINT);#18=100;N1001;#30=[#2032－＋[TAN[[90－／2]×#3];#17=ABS[#17];#33=#20[SET Z];#31=#2032 (RESTORE);#14=0 (SET W);N10;#14=#14＋#17;#33=#33－#17;IF[#33GT#2]GOTO11;#33=#2;#14=ABS[#2－#20];N11;IF[#1EQ#0]GOTO113;#32=[TAN[#1]×[ABS[#2－－[TAN[#1]×#14];#2032=#30－#32;N113;G90G10L2P0Z#33;D32;M#13 P#19 (SUB PRO);IF[#33EQ#2]GOTO99;GOTO10;N3000#3000=140 (DATA  ERROR);N3001#3000=141 (#T LT #B);N99#2032=#31 (RESET);#502=#33 (RESTORE Z);G90G10L2P0Z0;G90G00Z[ABS[#18]];G#27;M99;

我不懂宏程序，就是抄下来的，请帮我看看有没有什么错误，谢谢了

我武维扬

怎么变这样了？

我武维扬

O9010
(P0 WORK DEPH & ANGLE CYCLE G112-6050);
(DATE 080197);
( E7 t# g4 Y" o& f8 z& ]& x(G65 P9010 T、B、S、Q、-ACR);
(A=ANGLE,C=CORNER-RADIVS);
G90G10L2P0Z0;
#27=4003(G90-G91);
IF[#13EQ#0]GOTO30000 (M98-M198);
IF[#20EQ#0]GOTO30000 (T=TOP);
' e- U" @" H: g) S+ x7 sIF[#2EQ#0]GOTO30000 (B=BOTTOM);
IF[#2032LT#3]GOTO30000 (D＜C);
IF[#20LT#2]GOTO30000 (T＜B);
IF[#17EQ#0]GOTO30000 (Q);
7 m0 e) V" @+ qIF[#19EQ#0]GOTO30000 (S=SUB PRO);
IF[#19NE#0]GOTO1001 (R POINT);
% q( k" N  a- s+ w) D% ~#18=100;
N1001;
; G0 u' [$ H' _9 n( j#30=[#2032－#3]＋[TAN[[90－#1]／2]×#3];
#17=ABS[#17];
#33=#20[SET Z];
( t! E+ |' B# i0 m( P#31=#2032 (RESTORE);
2 r8 e7 _+ ^) s. z#14=0 (SET W);
N10;
1 ?/ e/ u) w* z. b& L#14=#14＋#17;
! X$ {$ J7 J  C  j6 d#33=#33－#17;
# O1 W# ]% o9 U/ N# M. @' MIF[#33GT#2]GOTO11;
" N: t( }  i" \- ?#33=#2;
# U' t' l4 [, V, ?' m. O#14=ABS[#2－#20];
& I( ~" M& Y( R& S2 kN11;
' q  n6 X; x! X/ y5 i. dIF[#1EQ#0]GOTO113;
#32=[TAN[#1]×[ABS[#2－#20]]]－[TAN[#1]×#14];
#2032=#30－#32;
3 e5 S7 y& M; z" @1 ~% xN113;
G90G10L2P0Z#33;
D32;
M#13 P#19 (SUB PRO);
; w) c* d2 b  L; r) c; U6 NIF[#33EQ#2]GOTO99;
GOTO10;
# p  {! X% _9 `$ h9 K5 wN3000#3000=140 (DATA  ERROR);
! ?; u) x0 w/ l  y8 _5 e, NN3001#3000=141 (#T LT #B);
N99#2032=#31 (RESET);
3 K. P9 G" ]( ]6 H3 h* o#502=#33 (RESTORE Z);
  W4 d$ ~  |3 }G90G10L2P0Z0;
6 D/ w' \  }* c, ]) CG90G00Z[ABS[#18]];
G#27;
, h* Q0 C" N. P) e2 M/ BM99;

我武维扬

是不是要沉了？

风随意

怎么有点像对刀用的？

我武维扬

不是对刀的，对刀的在这里：
; e. H5 ?8 C; I) c  \% nO799 (TOOL LENGTH SETTING);
" q8 P; j( a* X7 C#101=#4120 (TOOL NUMBER);
0 ]) i7 x; }1 T9 D% \4 M#100=59 (WORK OFFSET);
#102=20.0 (SET BLOCK HEIGHT);
7 H- a5 A5 t0 k  C( a  Z: {;
IF[#4120 NE 0]GOTO 1000;
) @! O1 H! a. }8 J* M' Y#3000=140 (USE MDI KEY TOOL NO.);
: t  _0 l  d6 \9 H, nN1000 #4=5223 (WK/OFF Z 2701-5223);
#8=20.0 (COEFFI,16M=20,0M=1);
#10=ROUND[[#100－54]×1000]/1000 (WK OFF);
2 z! A: v  R% ]2 X#103=#4+#8×#10;
#11=2000 (OFFSET A2000,B、C2200);
+ R9 a& Y2 W4 ^! }6 i' y9 M- a#[#11+#101]=ABS[#[#103]－#5023+#102] (TOOL LENGTH);
G90 ;
% P9 g( W$ M% ?, ~% J( eM30;

我武维扬

调用程序：
O1682;
N10 T1M6;
: Z1 u/ a7 K% U" F/ T4 {G54;
+ s" o3 X1 g: |' {; Q# B# [G17G40G49G80G90G69;
% \' F8 ?$ J% f4 ~* eG90G0X0Y0;
Z50.;
M01;
/ q7 N" z& w6 cS8000M3;
6 d, v3 c5 b  ]8 p% fF1000;
+ k# W8 Y5 o/ Q0 ^0 b9 D0 z#2032=3.0 (刀径补偿值，此例用Φ6mm);
G65P9010M98S1T1.5B-10.0Q0.1R50.0;
/M198P1;
* d  q7 L3 c4 H! D! D( ZG90G0G40G69G80Z50.0;
X0Y0;
G69;
M201;
M30;

虚缈

IF[#2032LT#3]GOTO30000 在FUNUC16I以前的长补是2000-2200，但在格式上是不能这样写的，只能是用一变量先读取它再用它去运算
# x2 |( V) x! T8 x

lukexc

看到脑壳痛，咋办，大师们！

cralosfan

看不懂 晕了 。。。。。