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

我武维扬

程序如下：
  V" R: Y! x& U. Z" i$ D* v

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;

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

  s1 ?* @, F; E5 u

我武维扬

怎么变这样了？

我武维扬

O9010
(P0 WORK DEPH & ANGLE CYCLE G112-6050);
(DATE 080197);
(G65 P9010 T、B、S、Q、-ACR);
: H) k* J; ~. d* H4 Y: e- t(A=ANGLE,C=CORNER-RADIVS);
G90G10L2P0Z0;
#27=4003(G90-G91);
; S" E+ R: t9 x+ p7 _, xIF[#13EQ#0]GOTO30000 (M98-M198);
IF[#20EQ#0]GOTO30000 (T=TOP);
IF[#2EQ#0]GOTO30000 (B=BOTTOM);
8 Y5 A% `5 f  T6 tIF[#2032LT#3]GOTO30000 (D＜C);
4 G6 O+ @$ G' G; M5 \/ lIF[#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;
  h! {: G# b5 K& p1 g% cN1001;
#30=[#2032－#3]＋[TAN[[90－#1]／2]×#3];
#17=ABS[#17];
#33=#20[SET Z];
#31=#2032 (RESTORE);
& p* a/ Y7 n& ~# ]; t4 v' n3 G#14=0 (SET W);
8 v, r8 e" u0 Z8 k% j! x& vN10;
' L4 P. f# F2 J0 N) q0 i2 O8 Q#14=#14＋#17;
6 t: k$ g; |8 i; V8 R+ D#33=#33－#17;
IF[#33GT#2]GOTO11;
#33=#2;
4 @" @% t$ u7 ~' _$ y- \#14=ABS[#2－#20];
N11;
IF[#1EQ#0]GOTO113;
1 K$ p6 b% W  M. n#32=[TAN[#1]×[ABS[#2－#20]]]－[TAN[#1]×#14];
#2032=#30－#32;
N113;
G90G10L2P0Z#33;
D32;
M#13 P#19 (SUB PRO);
IF[#33EQ#2]GOTO99;
GOTO10;
- u. @+ \& \5 o' k6 a+ VN3000#3000=140 (DATA  ERROR);
N3001#3000=141 (#T LT #B);
N99#2032=#31 (RESET);
#502=#33 (RESTORE Z);
# J  R2 e- n; e4 YG90G10L2P0Z0;
& w- X4 i9 F' Z8 P1 [* tG90G00Z[ABS[#18]];
- B, z9 X/ X. _3 [2 x! d6 V) GG#27;
M99;

我武维扬

是不是要沉了？

风随意

怎么有点像对刀用的？

我武维扬

不是对刀的，对刀的在这里：
8 c) i3 F( N, bO799 (TOOL LENGTH SETTING);
#101=#4120 (TOOL NUMBER);
  l8 J( }; ^- y- M% N#100=59 (WORK OFFSET);
9 j/ J- F" A1 W9 T5 _/ T#102=20.0 (SET BLOCK HEIGHT);
;
IF[#4120 NE 0]GOTO 1000;
#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);
#103=#4+#8×#10;
% e- L7 k' ^8 @$ m& y+ ]* N$ M#11=2000 (OFFSET A2000,B、C2200);
#[#11+#101]=ABS[#[#103]－#5023+#102] (TOOL LENGTH);
7 [( D" N  y1 f. B4 Y' k G90 ;
M30;

我武维扬

调用程序：
O1682;
N10 T1M6;
$ W1 B0 _* t3 H/ s8 b9 @G54;
+ ^5 Z$ P4 `, Q! A) L2 a( ~G17G40G49G80G90G69;
G90G0X0Y0;
& e+ f3 i' E% j0 h9 wZ50.;
M01;
6 p* m/ r" ~; R! K: rS8000M3;
6 V/ O. q0 D1 w  T; t7 m: HF1000;
#2032=3.0 (刀径补偿值，此例用Φ6mm);
G65P9010M98S1T1.5B-10.0Q0.1R50.0;
. d, u' p3 l" x7 ^  I9 U/M198P1;
G90G0G40G69G80Z50.0;
: X4 [( p* |: p% [: `7 UX0Y0;
0 c( x$ x3 j+ o; Z, U. F7 nG69;
M201;
5 n5 G* f: |* `- {5 ~M30;

虚缈

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

lukexc

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

cralosfan

看不懂 晕了 。。。。。