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

我武维扬

程序如下：
" [. d4 ^) x0 a! ~/ D$ F: z7 {

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;

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

8 X; b3 o7 W5 i2 `7 n6 m6 W8 _1 p

我武维扬

怎么变这样了？

我武维扬

O9010
& J; N7 U# M' @9 c1 K(P0 WORK DEPH & ANGLE CYCLE G112-6050);
(DATE 080197);
7 l; I( ~7 ?: U4 i5 A0 G4 q(G65 P9010 T、B、S、Q、-ACR);
(A=ANGLE,C=CORNER-RADIVS);
+ y: ~( D+ M: r; @. FG90G10L2P0Z0;
#27=4003(G90-G91);
, K6 J' U, ~  P& W3 |* r! @9 J+ d6 KIF[#13EQ#0]GOTO30000 (M98-M198);
9 V" {- o4 n# X) L% {) jIF[#20EQ#0]GOTO30000 (T=TOP);
! t( \& g9 {2 h3 o1 n1 t3 WIF[#2EQ#0]GOTO30000 (B=BOTTOM);
IF[#2032LT#3]GOTO30000 (D＜C);
IF[#20LT#2]GOTO30000 (T＜B);
1 B2 V& |( q2 I" qIF[#17EQ#0]GOTO30000 (Q);
IF[#19EQ#0]GOTO30000 (S=SUB PRO);
8 U0 s7 ~" A$ T/ z: wIF[#19NE#0]GOTO1001 (R POINT);
#18=100;
, S* ^, R# V* C; J# d8 |: yN1001;
  `" ]/ t$ Y: n7 S8 Q#30=[#2032－#3]＋[TAN[[90－#1]／2]×#3];
#17=ABS[#17];
' e  g1 H- k3 c( {2 W2 U#33=#20[SET Z];
#31=#2032 (RESTORE);
#14=0 (SET W);
$ {8 `: |, J9 I6 i; ?2 pN10;
#14=#14＋#17;
( V( w. p3 u9 a5 s! r/ m5 g2 a% v#33=#33－#17;
IF[#33GT#2]GOTO11;
#33=#2;
#14=ABS[#2－#20];
& f' I& q; \  Y- {5 p/ {N11;
IF[#1EQ#0]GOTO113;
' ?) s3 r. s( s5 m  d) j+ y; A#32=[TAN[#1]×[ABS[#2－#20]]]－[TAN[#1]×#14];
#2032=#30－#32;
N113;
" |0 O) d6 l6 p$ v9 {: C6 u. r& ]G90G10L2P0Z#33;
0 z8 z% ^8 ]8 q+ ]1 i8 @# K" [D32;
M#13 P#19 (SUB PRO);
) u5 D3 t; x3 W2 ~9 y1 IIF[#33EQ#2]GOTO99;
& E$ ?' U, v. T- t, S2 kGOTO10;
6 z* g! n2 i: F$ [0 W/ FN3000#3000=140 (DATA  ERROR);
2 C% ]8 g) X; t7 O1 X% n; q' v( eN3001#3000=141 (#T LT #B);
; S% }! w. r+ ~% vN99#2032=#31 (RESET);
2 _; f& T% w' G& `#502=#33 (RESTORE Z);
G90G10L2P0Z0;
3 i  A6 r1 b! @; eG90G00Z[ABS[#18]];
6 J' s. G6 P+ Q& x7 ~. w3 z- C/ YG#27;
1 e; f0 B3 x; J& RM99;

我武维扬

是不是要沉了？

风随意

怎么有点像对刀用的？

我武维扬

不是对刀的，对刀的在这里：
1 [8 g; n  P  [, t' B5 T" LO799 (TOOL LENGTH SETTING);
: M2 r" c. ?0 w+ n+ u) |2 D' T  F#101=#4120 (TOOL NUMBER);
#100=59 (WORK OFFSET);
#102=20.0 (SET BLOCK HEIGHT);
1 l/ X5 a- N4 Z2 Q5 a( b;
IF[#4120 NE 0]GOTO 1000;
% I1 K( e( O, h# h# }- M#3000=140 (USE MDI KEY TOOL NO.);
" P6 V7 I% c0 H7 w7 F- iN1000 #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);
& d$ t/ _2 F% ~7 N#[#11+#101]=ABS[#[#103]－#5023+#102] (TOOL LENGTH);
' _' k$ I! A2 B3 H3 Z6 X: \5 J G90 ;
M30;

我武维扬

调用程序：
O1682;
N10 T1M6;
4 M/ d% S* h, V/ a0 j" j# V& F+ dG54;
) U; Z# Q7 y8 W) x1 YG17G40G49G80G90G69;
: [3 }# Z2 ^' i  mG90G0X0Y0;
Z50.;
M01;
S8000M3;
F1000;
#2032=3.0 (刀径补偿值，此例用Φ6mm);
G65P9010M98S1T1.5B-10.0Q0.1R50.0;
/M198P1;
G90G0G40G69G80Z50.0;
X0Y0;
  \9 V7 U( i4 H# P- E  K, h$ lG69;
M201;
, H- q+ ]( U; n, x8 o+ Z( uM30;

虚缈

IF[#2032LT#3]GOTO30000 在FUNUC16I以前的长补是2000-2200，但在格式上是不能这样写的，只能是用一变量先读取它再用它去运算
7 _- ]5 D! c  @9 r# H$ P

lukexc

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

cralosfan

看不懂 晕了 。。。。。