這個宏程序有沒有什么問題？請教

我武維揚

程序如下：

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
0 }; y7 B/ m1 \: j4 M2 T(P0 WORK DEPH & ANGLE CYCLE G112-6050);
4 D  G% M4 q* U( L6 y( C6 ~- F: j; F) Z(DATE 080197);
, W( d& z" B/ x8 ?+ v, Z+ x% E0 E(G65 P9010 T、B、S、Q、-ACR);
(A=ANGLE,C=CORNER-RADIVS);
; X7 Z' ?) E8 T8 PG90G10L2P0Z0;
#27=4003(G90-G91);
IF[#13EQ#0]GOTO30000 (M98-M198);
: ]- ^1 E9 \- m' n4 ?0 G3 kIF[#20EQ#0]GOTO30000 (T=TOP);
IF[#2EQ#0]GOTO30000 (B=BOTTOM);
; u* I6 p1 ]) l* d$ B* tIF[#2032LT#3]GOTO30000 (D＜C);
IF[#20LT#2]GOTO30000 (T＜B);
IF[#17EQ#0]GOTO30000 (Q);
3 _0 }1 B6 _5 f, z. T1 q1 _5 zIF[#19EQ#0]GOTO30000 (S=SUB PRO);
: p3 l% R0 T/ i0 S5 c$ z* n( Q* I5 }IF[#19NE#0]GOTO1001 (R POINT);
. w7 P! m7 X+ M#18=100;
5 X% X6 x: b0 Q- |1 t  v$ tN1001;
$ M& _1 v& L# }4 F4 a#30=[#2032－#3]＋[TAN[[90－#1]／2]×#3];
#17=ABS[#17];
#33=#20[SET Z];
#31=#2032 (RESTORE);
( _' ]7 L0 Q' F' u3 G7 R#14=0 (SET W);
4 M2 @' R. k1 {' L  u7 [# ON10;
#14=#14＋#17;
- l4 k& u) M5 v" X# F# D#33=#33－#17;
* X/ f) C" W! r9 eIF[#33GT#2]GOTO11;
#33=#2;
#14=ABS[#2－#20];
N11;
/ X0 j7 V7 }+ r+ j9 e0 [1 FIF[#1EQ#0]GOTO113;
  o" X+ B% y' h) ]# o#32=[TAN[#1]×[ABS[#2－#20]]]－[TAN[#1]×#14];
#2032=#30－#32;
# r" t& t- M! j& P6 ~N113;
G90G10L2P0Z#33;
D32;
1 [, Y( b+ O4 i2 ]3 b  iM#13 P#19 (SUB PRO);
IF[#33EQ#2]GOTO99;
9 r( L& d2 D- A7 A& WGOTO10;
N3000#3000=140 (DATA  ERROR);
" y- j. ?+ Q1 u* M) g8 V' P% i/ QN3001#3000=141 (#T LT #B);
) Z" M1 \. Y3 ^/ YN99#2032=#31 (RESET);
#502=#33 (RESTORE Z);
/ L( U4 y% m  V. c: I4 K, xG90G10L2P0Z0;
G90G00Z[ABS[#18]];
G#27;
M99;

我武維揚

是不是要沉了？

風隨意

怎么有點像對刀用的？

我武維揚

不是對刀的，對刀的在這里：
O799 (TOOL LENGTH SETTING);
& }6 h9 g% T9 B# D) v3 J% |- p#101=#4120 (TOOL NUMBER);
+ I$ S9 ~5 i6 S#100=59 (WORK OFFSET);
8 b$ Z, q$ z* O& S#102=20.0 (SET BLOCK HEIGHT);
$ o: V  B3 q0 d8 o4 o* d7 R) U2 Y. S;
% |5 v; I$ a7 Z( uIF[#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;
#11=2000 (OFFSET A2000,B、C2200);
2 P8 T$ e6 H4 z! Y8 d4 F  J#[#11+#101]=ABS[#[#103]－#5023+#102] (TOOL LENGTH);
G90 ;
& X$ \6 f4 E' R0 oM30;

我武維揚

調用程序：
: A  X. a8 M- A: Q0 L; jO1682;
5 L3 f, J# v/ \  sN10 T1M6;
0 R, _* j% `! S2 c  j0 \G54;
G17G40G49G80G90G69;
6 }! m0 w8 B6 G. x' ?' |: k& pG90G0X0Y0;
6 e% a8 L- f/ L* y1 a% N! k: r: J7 cZ50.;
* ^' d4 z4 B$ P  Y) C2 P( l4 jM01;
S8000M3;
F1000;
#2032=3.0 (刀徑補償值，此例用Φ6mm);
G65P9010M98S1T1.5B-10.0Q0.1R50.0;
$ N, w$ k4 [! n2 F7 m0 X/M198P1;
7 y7 z$ u( o7 N2 k6 _G90G0G40G69G80Z50.0;
- N; {2 N$ N4 V. LX0Y0;
- i4 Y/ U) x2 P' s* r% JG69;
M201;
5 w" v4 D. M; a6 HM30;

虛緲

IF[#2032LT#3]GOTO30000 在FUNUC16I以前的長補是2000-2200，但在格式上是不能這樣寫的，只能是用一變量先讀取它再用它去運算
# J; O  ~& C$ `4 a3 X

lukexc

看到腦殼痛，咋辦，大師們！

cralosfan

看不懂 暈了 。。。。。