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

我武维扬

程序如下：

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;

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

/ K+ I- X! ~( K& b0 j8 U

我武维扬

怎么变这样了？

我武维扬

O9010
(P0 WORK DEPH & ANGLE CYCLE G112-6050);
(DATE 080197);
(G65 P9010 T、B、S、Q、-ACR);
. h' p5 H% y3 M(A=ANGLE,C=CORNER-RADIVS);
/ X% c+ N: O  `G90G10L2P0Z0;
#27=4003(G90-G91);
1 \/ G8 i. Y# K* d' i2 E) g' k3 VIF[#13EQ#0]GOTO30000 (M98-M198);
IF[#20EQ#0]GOTO30000 (T=TOP);
IF[#2EQ#0]GOTO30000 (B=BOTTOM);
( K7 c. t  L* Z. yIF[#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);
6 A  ~& p% k  N7 G/ K0 _2 f#18=100;
2 B0 f7 K3 s4 ^; r: |9 DN1001;
#30=[#2032－#3]＋[TAN[[90－#1]／2]×#3];
3 A2 k! U$ p& I6 V. t$ L, X#17=ABS[#17];
- f% C3 G  J9 [" L" u#33=#20[SET Z];
2 f, _; G( z$ h/ Z0 i$ M9 Y$ X#31=#2032 (RESTORE);
#14=0 (SET W);
N10;
0 y1 o5 j- O7 C9 _/ d#14=#14＋#17;
3 l! V) `5 E& `9 B$ u$ v' Q#33=#33－#17;
IF[#33GT#2]GOTO11;
1 K5 d9 A" Y8 E- p- ^#33=#2;
9 _- {" F" G4 I6 k3 z$ q#14=ABS[#2－#20];
N11;
2 |% u) d( Z$ B: T' YIF[#1EQ#0]GOTO113;
( M8 |5 K- ^% O( e#32=[TAN[#1]×[ABS[#2－#20]]]－[TAN[#1]×#14];
#2032=#30－#32;
N113;
G90G10L2P0Z#33;
3 u6 v) J) w& w1 e6 b- iD32;
8 ]9 n. @! y8 a/ g. ]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);
( E1 E; ?5 u3 z" [% M7 t#502=#33 (RESTORE Z);
G90G10L2P0Z0;
( \7 E( o7 ^% Z, z' j3 z" H4 m* C0 iG90G00Z[ABS[#18]];
( P. Z) |1 n5 s/ D0 ]! w; KG#27;
, L; A% r  x: ~  H+ U: |M99;

我武维扬

是不是要沉了？

风随意

怎么有点像对刀用的？

我武维扬

不是对刀的，对刀的在这里：
6 V: v( k& n) wO799 (TOOL LENGTH SETTING);
#101=#4120 (TOOL NUMBER);
#100=59 (WORK OFFSET);
#102=20.0 (SET BLOCK HEIGHT);
;
7 h9 C  {* G3 WIF[#4120 NE 0]GOTO 1000;
# b% z, ~; s. s+ V( r' ]2 d8 ~% i#3000=140 (USE MDI KEY TOOL NO.);
N1000 #4=5223 (WK/OFF Z 2701-5223);
/ w! A2 Z0 ?( ?2 X# n#8=20.0 (COEFFI,16M=20,0M=1);
#10=ROUND[[#100－54]×1000]/1000 (WK OFF);
$ F& S( ^4 a8 l$ S& J" l2 H8 I#103=#4+#8×#10;
#11=2000 (OFFSET A2000,B、C2200);
#[#11+#101]=ABS[#[#103]－#5023+#102] (TOOL LENGTH);
8 y; v0 j3 V& s7 D4 Y- T! g; | G90 ;
; o2 z! Z  O+ P" @M30;

我武维扬

调用程序：
O1682;
! [, C. W5 j( O' }  v* h. MN10 T1M6;
G54;
6 i$ K8 J8 E  W( ]9 ^, ~G17G40G49G80G90G69;
5 M( _9 M6 r% dG90G0X0Y0;
Z50.;
$ V0 v% D; q6 b. w9 ^M01;
S8000M3;
F1000;
" h/ O; v/ k5 G$ v1 W#2032=3.0 (刀径补偿值，此例用Φ6mm);
G65P9010M98S1T1.5B-10.0Q0.1R50.0;
/M198P1;
G90G0G40G69G80Z50.0;
X0Y0;
, A2 E6 ^( r; ^G69;
% t! ^, y1 B1 z- D1 p& rM201;
( K1 h7 E0 b0 fM30;

虚缈

IF[#2032LT#3]GOTO30000 在FUNUC16I以前的长补是2000-2200，但在格式上是不能这样写的，只能是用一变量先读取它再用它去运算
1 u. _) i+ O6 N8 D7 F/ ?0 I( d

lukexc

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

cralosfan

看不懂 晕了 。。。。。