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

我武維揚

程序如下：

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
, q* l' D, N, ^$ j* B* L(P0 WORK DEPH & ANGLE CYCLE G112-6050);
(DATE 080197);
(G65 P9010 T、B、S、Q、-ACR);
; t$ |4 ^' _6 z3 a  z) h(A=ANGLE,C=CORNER-RADIVS);
0 V$ ~, V& _% _/ KG90G10L2P0Z0;
#27=4003(G90-G91);
0 s& p. T1 c, b+ EIF[#13EQ#0]GOTO30000 (M98-M198);
! v7 k0 R0 @6 gIF[#20EQ#0]GOTO30000 (T=TOP);
( n: a: z: p" D9 z- J, dIF[#2EQ#0]GOTO30000 (B=BOTTOM);
IF[#2032LT#3]GOTO30000 (D＜C);
) }/ E3 H7 ~6 j& ?9 z- iIF[#20LT#2]GOTO30000 (T＜B);
- r# l5 k( b  H$ |IF[#17EQ#0]GOTO30000 (Q);
IF[#19EQ#0]GOTO30000 (S=SUB PRO);
IF[#19NE#0]GOTO1001 (R POINT);
#18=100;
; L! u! v/ M, e! q6 o5 jN1001;
#30=[#2032－#3]＋[TAN[[90－#1]／2]×#3];
- q$ |4 F- z3 M- _#17=ABS[#17];
% O4 [8 h6 [3 y#33=#20[SET Z];
#31=#2032 (RESTORE);
#14=0 (SET W);
2 O; d" D: o6 P* N2 p0 SN10;
#14=#14＋#17;
  l8 I7 K6 J' g#33=#33－#17;
IF[#33GT#2]GOTO11;
3 ~% m- H+ b$ Z5 `0 B* s: }5 y#33=#2;
#14=ABS[#2－#20];
N11;
IF[#1EQ#0]GOTO113;
#32=[TAN[#1]×[ABS[#2－#20]]]－[TAN[#1]×#14];
# V  ]( C, Y% B& J4 r9 p% A#2032=#30－#32;
N113;
G90G10L2P0Z#33;
( U4 i3 m0 P9 i- a# K" |, d7 VD32;
( j% \) `6 ~9 Z" I- rM#13 P#19 (SUB PRO);
3 E6 _/ J2 a$ v( H, f+ q  XIF[#33EQ#2]GOTO99;
GOTO10;
N3000#3000=140 (DATA  ERROR);
N3001#3000=141 (#T LT #B);
N99#2032=#31 (RESET);
#502=#33 (RESTORE Z);
$ _; b: v$ ^; |. T3 V) DG90G10L2P0Z0;
+ a6 F% E, j& t& Q1 T2 U8 E, |G90G00Z[ABS[#18]];
G#27;
3 K2 S, d+ `) D# uM99;

我武維揚

是不是要沉了？

風隨意

怎么有點像對刀用的？

我武維揚

不是對刀的，對刀的在這里：
O799 (TOOL LENGTH SETTING);
' w% R0 b% N+ c6 C4 f9 b#101=#4120 (TOOL NUMBER);
6 E5 ?5 a1 F& x! L! H. I#100=59 (WORK OFFSET);
$ \2 |# [# m6 ~#102=20.0 (SET BLOCK HEIGHT);
;
( ~* G- M2 [8 SIF[#4120 NE 0]GOTO 1000;
#3000=140 (USE MDI KEY TOOL NO.);
3 o: L1 Q( u* uN1000 #4=5223 (WK/OFF Z 2701-5223);
#8=20.0 (COEFFI,16M=20,0M=1);
- X  ]% q! a2 o# X, j* L#10=ROUND[[#100－54]×1000]/1000 (WK OFF);
) \4 {- I% |. Q& p/ {, D1 e#103=#4+#8×#10;
* f$ Y  H! G$ _8 r- L$ V#11=2000 (OFFSET A2000,B、C2200);
! X7 R6 C/ E, ]1 i6 U#[#11+#101]=ABS[#[#103]－#5023+#102] (TOOL LENGTH);
G90 ;
1 C* x- B: @3 y/ c3 [M30;

我武維揚

調用程序：
O1682;
7 Q3 X1 [. V. Z% k$ U6 U. T' SN10 T1M6;
0 a, y3 L, I: u# j) \3 OG54;
8 I% T8 v' N7 a4 z, k5 w: XG17G40G49G80G90G69;
$ h. D, }) ?& B1 W4 P4 FG90G0X0Y0;
  d9 D  E0 K# c4 W& j" E6 `Z50.;
: a/ \- O/ v, f. a4 m& s1 O% }M01;
S8000M3;
: c5 Q2 l: \/ @F1000;
#2032=3.0 (刀徑補償值，此例用Φ6mm);
G65P9010M98S1T1.5B-10.0Q0.1R50.0;
/M198P1;
G90G0G40G69G80Z50.0;
X0Y0;
G69;
M201;
2 E+ u) y$ W, NM30;

虛緲

IF[#2032LT#3]GOTO30000 在FUNUC16I以前的長補是2000-2200，但在格式上是不能這樣寫的，只能是用一變量先讀取它再用它去運算

lukexc

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

cralosfan

看不懂 暈了 。。。。。