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

我武维扬

程序如下：
; K/ P s( a& K

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 A9 r2 H1 J: T# J. s9 Y3 N7 p(DATE 080197);
8 R) V. S; K/ d' }- m* x(G65 P9010 T、B、S、Q、-ACR);
& U7 L# A3 T9 P2 r/ J2 h( d(A=ANGLE,C=CORNER-RADIVS);
G90G10L2P0Z0;
( Y! P2 S1 j" H5 [5 X7 W#27=4003(G90-G91);
3 ^3 d8 I/ n5 Q0 F6 x! b! H1 `' cIF[#13EQ#0]GOTO30000 (M98-M198);
5 m. ]! W: Y3 z" a7 H; n$ ]IF[#20EQ#0]GOTO30000 (T=TOP);
3 P4 h* w" d) ]* y3 X5 i+ j/ NIF[#2EQ#0]GOTO30000 (B=BOTTOM);
IF[#2032LT#3]GOTO30000 (D＜C);
5 K" j$ _8 N" I! v( qIF[#20LT#2]GOTO30000 (T＜B);
8 ?+ g1 {. S" A- x7 e9 [IF[#17EQ#0]GOTO30000 (Q);
Q, C2 K# I j' EIF[#19EQ#0]GOTO30000 (S=SUB PRO);
4 q, g7 A1 }1 Q ~- L* W. oIF[#19NE#0]GOTO1001 (R POINT);
#18=100;
; v# D K+ X7 sN1001;
( w* g3 r: ^- u1 ?$ I ?#30=[#2032－#3]＋[TAN[[90－#1]／2]×#3];
#17=ABS[#17];
#33=#20[SET Z];
#31=#2032 (RESTORE);
7 d$ c& G4 t& n#14=0 (SET W);
N10;
: V8 u- C6 {) ~' m; p; ]#14=#14＋#17;
q6 k9 z5 H# G. k1 F' i+ j#33=#33－#17;
" Y8 ^# P+ O @2 ~IF[#33GT#2]GOTO11;
#33=#2;
#14=ABS[#2－#20];
$ B' x" F; A; V$ ^0 |N11;
IF[#1EQ#0]GOTO113;
#32=[TAN[#1]×[ABS[#2－#20]]]－[TAN[#1]×#14];
#2032=#30－#32;
% @6 ]9 Q# R) F' O) b$ `9 V, lN113;
1 C9 Y; b0 D2 i0 u- V( x7 B QG90G10L2P0Z#33;
D32;
M#13 P#19 (SUB PRO);
IF[#33EQ#2]GOTO99;
GOTO10;
) G& Q/ L' s9 Q h' H- b; c9 ~N3000#3000=140 (DATA ERROR);
N3001#3000=141 (#T LT #B);
- C4 b+ W5 w; gN99#2032=#31 (RESET);
7 p5 b, I( h3 D; A& I! U2 n' g#502=#33 (RESTORE Z);
G90G10L2P0Z0;
( a6 @# X6 L3 @1 s, u7 TG90G00Z[ABS[#18]];
G#27;
" u/ K6 U9 F4 G; ^M99;

我武维扬

是不是要沉了？

风随意

怎么有点像对刀用的？

我武维扬

不是对刀的，对刀的在这里：
2 L: x3 @5 f6 F& K7 J3 t, QO799 (TOOL LENGTH SETTING);
#101=#4120 (TOOL NUMBER);
#100=59 (WORK OFFSET);
#102=20.0 (SET BLOCK HEIGHT);
" f+ k1 W e! ~1 U/ x;
# N# j+ G& @2 I( d% o: xIF[#4120 NE 0]GOTO 1000;
) j$ E* B* a, C* F#3000=140 (USE MDI KEY TOOL NO.);
/ V, Q8 S6 H6 Z! |# c) IN1000 #4=5223 (WK/OFF Z 2701-5223);
#8=20.0 (COEFFI,16M=20,0M=1);
#10=ROUND[[#100－54]×1000]/1000 (WK OFF);
#103=#4+#8×#10;
6 y8 j Z+ }5 I% V! u4 s$ ]5 k#11=2000 (OFFSET A2000,B、C2200);
U$ ]7 G; o" G0 D, l8 U#[#11+#101]=ABS[#[#103]－#5023+#102] (TOOL LENGTH);
1 h, I* A# b/ sG90 ;
M30;

我武维扬

调用程序：
O1682;
N10 T1M6;
G54;
2 e7 {5 l2 z( p" HG17G40G49G80G90G69;
G90G0X0Y0;
Z50.;
4 k+ w8 i9 @+ `" L9 YM01;
9 V( T2 h, x# US8000M3;
! w, j) p |( F* w" V' |7 u0 NF1000;
#2032=3.0 (刀径补偿值，此例用Φ6mm);
$ Y! d7 e( h+ Y1 dG65P9010M98S1T1.5B-10.0Q0.1R50.0;
/M198P1;
G90G0G40G69G80Z50.0;
6 Q8 k1 V' H, t" n( }X0Y0;
G69;
8 @- t, o: n3 ^6 S) t- W" rM201;
8 d8 n8 f* F$ p) Q# j6 H$ Z$ IM30;

虚缈

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

lukexc

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

cralosfan

看不懂 晕了 。。。。。