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

我武维扬

程序如下：
! K. d+ A* E3 L6 K) b3 O5 U

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);
3 Z" n* l& J8 F. L(DATE 080197);
(G65 P9010 T、B、S、Q、-ACR);
8 t) H/ d7 q) ?0 y& ~3 c(A=ANGLE,C=CORNER-RADIVS);
G90G10L2P0Z0;
#27=4003(G90-G91);
IF[#13EQ#0]GOTO30000 (M98-M198);
3 M/ s: V* Y+ ?" {  u) F( @# sIF[#20EQ#0]GOTO30000 (T=TOP);
. X5 u. Q5 c% P6 ~( T3 BIF[#2EQ#0]GOTO30000 (B=BOTTOM);
0 U( ~4 j& ?! b# e1 @* `) W) XIF[#2032LT#3]GOTO30000 (D＜C);
9 h7 Y* J! F( s% m6 I0 |IF[#20LT#2]GOTO30000 (T＜B);
IF[#17EQ#0]GOTO30000 (Q);
IF[#19EQ#0]GOTO30000 (S=SUB PRO);
* E$ ^7 i$ E- L! ^: v( yIF[#19NE#0]GOTO1001 (R POINT);
#18=100;
N1001;
2 C: g( P& O9 u6 s( Q. ?2 q6 V#30=[#2032－#3]＋[TAN[[90－#1]／2]×#3];
. F$ I2 b0 t) i  |#17=ABS[#17];
#33=#20[SET Z];
6 u4 H% Y5 z3 ]8 o9 O#31=#2032 (RESTORE);
#14=0 (SET W);
! p  Y) t1 Z0 o5 n+ D7 K% HN10;
#14=#14＋#17;
* B& N1 b0 X% @' s! y* y+ v4 w4 ?#33=#33－#17;
+ ^; x. j; T+ y' X1 G: AIF[#33GT#2]GOTO11;
#33=#2;
#14=ABS[#2－#20];
N11;
/ x5 ]  M# ]" [& R) WIF[#1EQ#0]GOTO113;
4 K7 A$ a4 B9 }3 s% ?4 ?: b- m#32=[TAN[#1]×[ABS[#2－#20]]]－[TAN[#1]×#14];
! {' A) R2 J0 I4 {: ^$ m+ Q/ o- |#2032=#30－#32;
. c) l; {# C9 O6 A' O0 T0 gN113;
' R3 |: O! d0 RG90G10L2P0Z#33;
9 Z. G& ~$ A7 [8 ^/ l1 U& }% s) }5 KD32;
2 i/ U& {3 U9 kM#13 P#19 (SUB PRO);
IF[#33EQ#2]GOTO99;
  y* J* m# \" S0 M1 t" }* b9 |' FGOTO10;
N3000#3000=140 (DATA  ERROR);
N3001#3000=141 (#T LT #B);
N99#2032=#31 (RESET);
7 q/ m( j! x4 V, p8 y6 h9 q( q  {: U#502=#33 (RESTORE Z);
G90G10L2P0Z0;
% P7 c5 \. c* M0 t! N! E/ ~G90G00Z[ABS[#18]];
9 f! S/ d2 M8 W7 r' O) G# UG#27;
8 d6 j- s! j( \6 |! y5 V- ?3 ^M99;

我武维扬

是不是要沉了？

风随意

怎么有点像对刀用的？

我武维扬

不是对刀的，对刀的在这里：
O799 (TOOL LENGTH SETTING);
#101=#4120 (TOOL NUMBER);
2 a. i4 l2 n% {$ Q4 e6 X#100=59 (WORK OFFSET);
#102=20.0 (SET BLOCK HEIGHT);
% t7 n' G) T( a( Q8 \# r" S+ l; a;
IF[#4120 NE 0]GOTO 1000;
* F( {) K; r. A#3000=140 (USE MDI KEY TOOL NO.);
N1000 #4=5223 (WK/OFF Z 2701-5223);
  S$ m6 {* q4 ~/ h, r  `#8=20.0 (COEFFI,16M=20,0M=1);
#10=ROUND[[#100－54]×1000]/1000 (WK OFF);
#103=#4+#8×#10;
8 r# ~7 `  h+ i# V#11=2000 (OFFSET A2000,B、C2200);
#[#11+#101]=ABS[#[#103]－#5023+#102] (TOOL LENGTH);
G90 ;
M30;

我武维扬

调用程序：
+ N% r* Q, b/ d/ yO1682;
* d/ X1 ^" d  X2 W, O! oN10 T1M6;
- f2 y3 T+ L2 O- _G54;
& `8 ^: M& u4 b+ h- W" kG17G40G49G80G90G69;
3 F$ g; N, m' x5 [3 U4 d' qG90G0X0Y0;
Z50.;
9 U+ f0 a, Q; B# ]. h  TM01;
9 H7 b( u/ A# ?9 XS8000M3;
F1000;
- G$ X+ I3 u" K/ W- a. ^, `#2032=3.0 (刀径补偿值，此例用Φ6mm);
G65P9010M98S1T1.5B-10.0Q0.1R50.0;
/M198P1;
6 v! W5 n! A; J" ^9 @G90G0G40G69G80Z50.0;
X0Y0;
G69;
  i4 C" S; Q: Q+ P3 ?4 PM201;
M30;

虚缈

IF[#2032LT#3]GOTO30000 在FUNUC16I以前的长补是2000-2200，但在格式上是不能这样写的，只能是用一变量先读取它再用它去运算
4 E) c# u' S' X2 L4 X

lukexc

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

cralosfan

看不懂 晕了 。。。。。