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

我武维扬

程序如下：

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;

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

8 A1 h# b- f: q, g( i

我武维扬

怎么变这样了？

我武维扬

O9010
2 X% D  J( `0 E! z+ [(P0 WORK DEPH & ANGLE CYCLE G112-6050);
(DATE 080197);
  o# f- H: d9 q: N0 h3 E" H(G65 P9010 T、B、S、Q、-ACR);
(A=ANGLE,C=CORNER-RADIVS);
G90G10L2P0Z0;
#27=4003(G90-G91);
0 ~( s) Z9 x7 |7 V4 f: TIF[#13EQ#0]GOTO30000 (M98-M198);
- M6 G: I0 v4 p% j/ nIF[#20EQ#0]GOTO30000 (T=TOP);
IF[#2EQ#0]GOTO30000 (B=BOTTOM);
IF[#2032LT#3]GOTO30000 (D＜C);
IF[#20LT#2]GOTO30000 (T＜B);
' T1 w. m, Q" Q9 G* WIF[#17EQ#0]GOTO30000 (Q);
IF[#19EQ#0]GOTO30000 (S=SUB PRO);
! L) w) ?; ]3 F  y8 T! p$ kIF[#19NE#0]GOTO1001 (R POINT);
3 Y/ j  W% {: R: b#18=100;
0 W% ~) ~4 {4 }N1001;
#30=[#2032－#3]＋[TAN[[90－#1]／2]×#3];
7 O* c8 S& E2 c6 @0 @- X2 X* s#17=ABS[#17];
#33=#20[SET Z];
#31=#2032 (RESTORE);
3 R0 _) I, d" |% ]6 Q( l. V#14=0 (SET W);
N10;
#14=#14＋#17;
3 ~- n1 ~# z$ ?; P' ]# w#33=#33－#17;
8 i' }  K8 J! a( V. U5 {IF[#33GT#2]GOTO11;
5 i: c2 y' v1 H  v3 o2 D#33=#2;
9 {# l' W; h  \#14=ABS[#2－#20];
N11;
0 _4 A% q' i/ ^$ j& X6 C* KIF[#1EQ#0]GOTO113;
#32=[TAN[#1]×[ABS[#2－#20]]]－[TAN[#1]×#14];
#2032=#30－#32;
. b( U# R" ^: j' d& I! I; t) nN113;
6 z, Y! ~, j5 D( XG90G10L2P0Z#33;
, z; ~6 l& Q. `2 r* HD32;
) f% D: x) _5 h5 ]/ W- t  ~: c  xM#13 P#19 (SUB PRO);
$ t% O1 e2 X6 s. r7 d+ NIF[#33EQ#2]GOTO99;
GOTO10;
N3000#3000=140 (DATA  ERROR);
$ h. i* i% ~0 Z# r  S, K0 j5 T$ A$ rN3001#3000=141 (#T LT #B);
2 ?7 x7 o/ ^$ i" U+ v0 Y: S3 xN99#2032=#31 (RESET);
" A0 E7 }  I0 ]# i* Z#502=#33 (RESTORE Z);
G90G10L2P0Z0;
* @$ O4 L$ `. f* c1 sG90G00Z[ABS[#18]];
. G3 y: v9 J! T* MG#27;
' l( D5 u( _$ k1 Q$ gM99;

我武维扬

是不是要沉了？

风随意

怎么有点像对刀用的？

我武维扬

不是对刀的，对刀的在这里：
O799 (TOOL LENGTH SETTING);
5 Y' m. W6 }% c5 f" ]#101=#4120 (TOOL NUMBER);
; E% g8 D" d% ?; r1 Y#100=59 (WORK OFFSET);
/ q7 i. _) W" v#102=20.0 (SET BLOCK HEIGHT);
$ P2 B# k6 N! j8 C;
* R7 P, m% A) _- @( fIF[#4120 NE 0]GOTO 1000;
% K8 C* X! y6 P: K+ M#3000=140 (USE MDI KEY TOOL NO.);
N1000 #4=5223 (WK/OFF Z 2701-5223);
#8=20.0 (COEFFI,16M=20,0M=1);
#10=ROUND[[#100－54]×1000]/1000 (WK OFF);
& G- I* B) H6 T+ D: B7 u5 }, V#103=#4+#8×#10;
#11=2000 (OFFSET A2000,B、C2200);
#[#11+#101]=ABS[#[#103]－#5023+#102] (TOOL LENGTH);
G90 ;
M30;

我武维扬

调用程序：
. Q/ F1 L( {0 R! J) OO1682;
9 F& O9 L/ ~, x! v+ ~1 rN10 T1M6;
G54;
9 R( ?' N. p0 O0 `) jG17G40G49G80G90G69;
G90G0X0Y0;
Z50.;
M01;
' }9 s1 l' `* }# ~9 PS8000M3;
F1000;
#2032=3.0 (刀径补偿值，此例用Φ6mm);
& g0 a7 e+ i% N4 `% ^8 s: ~2 Q1 lG65P9010M98S1T1.5B-10.0Q0.1R50.0;
/M198P1;
G90G0G40G69G80Z50.0;
+ Q; q+ S) Q& R) A; HX0Y0;
% O: y$ M8 B1 i0 h3 w4 b4 DG69;
M201;
M30;

虚缈

IF[#2032LT#3]GOTO30000 在FUNUC16I以前的长补是2000-2200，但在格式上是不能这样写的，只能是用一变量先读取它再用它去运算
, H8 v9 |0 m1 \( E

lukexc

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

cralosfan

看不懂 晕了 。。。。。