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

我武維揚

程序如下：

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;

我不懂宏程序，就是抄下來的，請幫我看看有沒有什么錯誤，謝謝了

3 O+ s; T5 w$ E

我武維揚

怎么變這樣了？

我武維揚

O9010
(P0 WORK DEPH & ANGLE CYCLE G112-6050);
(DATE 080197);
$ K8 p+ P" y& L: x(G65 P9010 T、B、S、Q、-ACR);
6 W' n2 U2 l9 l6 j(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);
  d6 c+ f& e, RIF[#2032LT#3]GOTO30000 (D＜C);
IF[#20LT#2]GOTO30000 (T＜B);
6 t  b  p! v3 G+ ^4 i# N$ i  q/ e0 hIF[#17EQ#0]GOTO30000 (Q);
. c6 z; q4 g- L# I& ]; |IF[#19EQ#0]GOTO30000 (S=SUB PRO);
IF[#19NE#0]GOTO1001 (R POINT);
) G/ E3 T% }( I* D" d" C0 ^#18=100;
9 O% V7 h$ K% e* F0 b9 z) _N1001;
#30=[#2032－#3]＋[TAN[[90－#1]／2]×#3];
#17=ABS[#17];
! b0 M& R% a" e, [7 d9 m8 ?( g5 S#33=#20[SET Z];
) Y8 O7 x" {7 F  {+ S#31=#2032 (RESTORE);
& g3 n" t; W( q& k#14=0 (SET W);
N10;
+ L% Z- s; x9 q% F5 ?/ W/ T1 K#14=#14＋#17;
0 o. Y" g! D+ y: [! m% v( C" D#33=#33－#17;
# P0 ]: G+ ?& z) H# z4 KIF[#33GT#2]GOTO11;
/ ]! e2 c9 t# j  a' {#33=#2;
* ^$ c  t6 S, }$ f: n5 @7 G#14=ABS[#2－#20];
* L( w8 q; f/ QN11;
. p( G3 c7 P4 ]. I! o. R9 Q+ {IF[#1EQ#0]GOTO113;
2 j+ ?6 A; b& E/ u) w#32=[TAN[#1]×[ABS[#2－#20]]]－[TAN[#1]×#14];
  M/ d) y% H) j/ p+ w8 X7 p#2032=#30－#32;
7 B6 i0 C0 h$ s2 L8 U& \N113;
" x$ z0 {: }% S! B* h+ nG90G10L2P0Z#33;
' h, W! o( ~* G0 i( i! V- A" ED32;
M#13 P#19 (SUB PRO);
IF[#33EQ#2]GOTO99;
, V, \7 e- ^* [% s; c0 a+ D6 pGOTO10;
N3000#3000=140 (DATA  ERROR);
2 G+ J( G. n  D( n* {; VN3001#3000=141 (#T LT #B);
N99#2032=#31 (RESET);
. i2 a' M9 o8 J! F) B# {#502=#33 (RESTORE Z);
/ n; E( o' c1 {( f6 `- v8 pG90G10L2P0Z0;
$ Q9 h* D9 F' P  N9 @G90G00Z[ABS[#18]];
G#27;
0 _# ?+ }5 p, w" I! BM99;

我武維揚

是不是要沉了？

風隨意

怎么有點像對刀用的？

我武維揚

不是對刀的，對刀的在這里：
! B1 U, a* Z- l; c# o, j9 m/ m, |O799 (TOOL LENGTH SETTING);
#101=#4120 (TOOL NUMBER);
* O2 H7 z& U, `3 D( w' u/ d( }#100=59 (WORK OFFSET);
#102=20.0 (SET BLOCK HEIGHT);
;
IF[#4120 NE 0]GOTO 1000;
! @3 ^, Y9 q8 Z0 B; q#3000=140 (USE MDI KEY TOOL NO.);
N1000 #4=5223 (WK/OFF Z 2701-5223);
  u1 r% y6 ^0 k. `$ J$ I( N5 L#8=20.0 (COEFFI,16M=20,0M=1);
, m3 d, h# D" Z+ P5 f#10=ROUND[[#100－54]×1000]/1000 (WK OFF);
#103=#4+#8×#10;
) z. N' V) P0 T3 n% r/ [#11=2000 (OFFSET A2000,B、C2200);
6 E9 a& r5 |3 i! q#[#11+#101]=ABS[#[#103]－#5023+#102] (TOOL LENGTH);
7 r. Q5 b9 Z4 u* _2 Q G90 ;
) m6 \) F. K* yM30;

我武維揚

調用程序：
1 d( \# x: W+ B. ?% J" uO1682;
) k+ r7 O0 _7 T+ J* L5 c- gN10 T1M6;
; A( x: X6 G6 x; Q, X2 l$ V; T* X8 Q, xG54;
! H& {2 K* V) ~' g& |G17G40G49G80G90G69;
) [* a. u; ^! A" K" g+ z: \/ MG90G0X0Y0;
Z50.;
M01;
4 D0 c9 y: q; p! Q& `/ ES8000M3;
8 c# e) y: s+ l- b4 L8 b/ bF1000;
" H% u7 F# o! J% T) n( t2 B& i#2032=3.0 (刀徑補償值，此例用Φ6mm);
G65P9010M98S1T1.5B-10.0Q0.1R50.0;
/M198P1;
* ~+ z3 F3 b: i% }8 VG90G0G40G69G80Z50.0;
: m8 \5 w6 }3 {& e, c8 w$ |7 sX0Y0;
$ @: m( W6 J- A9 UG69;
M201;
M30;

虛緲

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

lukexc

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

cralosfan

看不懂 暈了 。。。。。