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

我武维扬

程序如下：

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);
(G65 P9010 T、B、S、Q、-ACR);
(A=ANGLE,C=CORNER-RADIVS);
G90G10L2P0Z0;
#27=4003(G90-G91);
IF[#13EQ#0]GOTO30000 (M98-M198);
9 U  j1 x, M' o# n# w7 W8 QIF[#20EQ#0]GOTO30000 (T=TOP);
IF[#2EQ#0]GOTO30000 (B=BOTTOM);
IF[#2032LT#3]GOTO30000 (D＜C);
; m; B( t) T9 U6 U7 MIF[#20LT#2]GOTO30000 (T＜B);
1 N& W( f5 V. C. w5 n+ j" LIF[#17EQ#0]GOTO30000 (Q);
. y1 H8 h; j8 y5 I" c/ QIF[#19EQ#0]GOTO30000 (S=SUB PRO);
IF[#19NE#0]GOTO1001 (R POINT);
$ x) `: k8 J$ D6 t8 E#18=100;
N1001;
# _  C! l; \# U* _" m8 Y. ]#30=[#2032－#3]＋[TAN[[90－#1]／2]×#3];
+ f9 q4 T2 o8 U' ]8 a0 g6 E: G$ L#17=ABS[#17];
$ b& y/ h+ a5 E+ r0 P#33=#20[SET Z];
: J) K1 A! l! B& B#31=#2032 (RESTORE);
#14=0 (SET W);
N10;
) p2 y) r2 k6 V% N#14=#14＋#17;
/ j6 S+ B. P. E7 X' E8 Y) f#33=#33－#17;
IF[#33GT#2]GOTO11;
#33=#2;
#14=ABS[#2－#20];
N11;
IF[#1EQ#0]GOTO113;
4 E/ O5 E" w; m+ I6 c3 u% [$ V#32=[TAN[#1]×[ABS[#2－#20]]]－[TAN[#1]×#14];
#2032=#30－#32;
N113;
7 `% |3 v6 d0 x1 n' A" r8 xG90G10L2P0Z#33;
8 a1 V8 P; t$ a' {- \- f, PD32;
M#13 P#19 (SUB PRO);
: ^# d  B7 p6 j- a$ _IF[#33EQ#2]GOTO99;
GOTO10;
N3000#3000=140 (DATA  ERROR);
+ q1 x+ K2 ~! t3 r6 E2 p0 o' xN3001#3000=141 (#T LT #B);
! y2 Z, Z: _8 ?; r( w0 FN99#2032=#31 (RESET);
, ?0 G+ d, {) A) t+ d  Z9 e#502=#33 (RESTORE Z);
G90G10L2P0Z0;
0 v1 u) U, L; {G90G00Z[ABS[#18]];
8 s* o0 _" ]& {5 e  bG#27;
M99;

我武维扬

是不是要沉了？

风随意

怎么有点像对刀用的？

我武维扬

不是对刀的，对刀的在这里：
O799 (TOOL LENGTH SETTING);
. e7 d/ h7 P: r1 n, K& S# L1 p#101=#4120 (TOOL NUMBER);
0 u: h' Y( ?" w' t#100=59 (WORK OFFSET);
#102=20.0 (SET BLOCK HEIGHT);
;
; ?  n' d. {1 z+ j, [IF[#4120 NE 0]GOTO 1000;
#3000=140 (USE MDI KEY TOOL NO.);
& z: Z: c9 l5 kN1000 #4=5223 (WK/OFF Z 2701-5223);
#8=20.0 (COEFFI,16M=20,0M=1);
0 r. V4 I& i" ^) f$ M, a#10=ROUND[[#100－54]×1000]/1000 (WK OFF);
2 J) m0 f  e8 k+ p3 u#103=#4+#8×#10;
! i. S# `1 R5 N) @#11=2000 (OFFSET A2000,B、C2200);
$ D5 p/ f' Q$ D& m9 u#[#11+#101]=ABS[#[#103]－#5023+#102] (TOOL LENGTH);
G90 ;
: \7 b6 W, r1 M  B- l4 WM30;

我武维扬

调用程序：
; K5 b7 x2 C; M6 sO1682;
2 o( ^+ Y0 F! p8 v8 g1 r" X/ QN10 T1M6;
" a7 i+ m6 [4 K! HG54;
9 H: w: W+ O0 UG17G40G49G80G90G69;
; K6 A5 u1 @/ J$ N' b. GG90G0X0Y0;
Z50.;
6 y) M( q& q6 H( }6 i& e, v9 qM01;
S8000M3;
F1000;
* \! l) v* s4 m3 T# F: M/ V1 c% _8 J#2032=3.0 (刀径补偿值，此例用Φ6mm);
+ q! u4 C: a" ZG65P9010M98S1T1.5B-10.0Q0.1R50.0;
) G2 s$ v3 H5 a, `8 J7 m/M198P1;
G90G0G40G69G80Z50.0;
X0Y0;
G69;
M201;
M30;

虚缈

IF[#2032LT#3]GOTO30000 在FUNUC16I以前的长补是2000-2200，但在格式上是不能这样写的，只能是用一变量先读取它再用它去运算
! Z$ C0 D* |- V  C( S# e

lukexc

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

cralosfan

看不懂 晕了 。。。。。