请使用或了解OUKMA 立式加工中心的朋友指导下宏程序（IF THEN在OUKMA中如何改写）

dq-lb

& T$ D8 H% ?/ t" e$ I
产品需在fanuc，北一大偎立式加工中心上完成。由于大量的不同尺寸的产品外形基本一致，现考虑采用模块化宏编程，通过所加工产品的形状，手工编一主程序进行组合调用即可。

    用于fanuc系统的程序目前已编制完成，但由于本人不熟悉北一大偎的宏编程格式，同时P200M说明中的“子程序功能、用户任务、调度功能”我也一时看不懂相关内容，故请各位帮帮忙，将附件的节选程序改为北一大偎的格式(已将WHILE改为了IF，但IF THEN无法解决)。
   
' u/ `2 f- M$ \0 U& i+ L    另外的问题是call 调用子程序时，每个子程序中均含VC1~VC50的变量，会相互影响吗？

" s9 c: n. z6 g& o. u& z& ^& {#28=1
#1=16.56
#4=5
/ v  A( K$ L' J1 \; C% |0 D#5=4
#26=20
+ K0 ?4 J9 H- c#6=16.65
9 e$ q( ^9 ^. H1 p7 i#25=5
. y0 t) ^% U/ q/ r. ^#27=150
#11=40
#10=1
8 p  }6 n( E; p3 p/ Z4 `. ~/ M; R#9=0
: q% Y! d, r$ h#12=[90+#2]/2
6 z2 D3 @/ O0 k7 u  U8 Q#13=[90-#12]*2
#15=#4/TAN[#12]
: t) Y' q9 U" [+ n' WIF [#28 EQ 1] THEN #29=-#27-5
IF [#28 EQ 1] THEN #30=-#27+#11
IF [#28 EQ 0] THEN #29=#27+5
IF [#28 EQ 0] THEN #30=#27-#11
4 t$ u; l, \' B
S2800 M3
' u/ u! Y! P# E! A2 W) wG54 G90 G0 X#29 Y0. Z200.
: s* }6 ?. ?2 M$ i" P7 JG43 Z[#1+30.] H3
8 {/ e$ z) d) \0 k, z#17=-#6-#15 +#26/2-#5
' t; ^) e# J5 t5 e) j7 j/ w5 N1 L#18=#1-#25
Y[#17-1.]
G0 Z#18 F1200 M8
N50
X#30
#9=#9+#10
IF [#13 LE #9] GOTO60
( [: u% A9 T  J' M, N: e#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
& M3 l$ I( l1 n; R! U#18=#1-#25- [#4+#5]*[1-COS[#9]]
/ S7 J! x3 w( X/ uY#17 Z#18
X#29
( ^. D$ K0 s: L' N: U  Y" j3 H#9=#9+#10
IF [#13 LE #9] GOTO60
8 }& ^  L, ?# ~- {# p5 L#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
& l3 K  z" [2 t: q6 t#18=#1-#25-[#4+#5]*[1-COS[#9]]
Y#17 Z#18
GOTO50
3 x- n% {( G2 G6 Z0 D! {N60
4 P: F# b8 G. e#9=#13
  t  g6 _" D# M: G# G' `* b#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
/ q- e7 S$ b% s2 H; l; D( U# p#18=#1-#25- [#4+#5]*[1-COS[#9]]
% }" t  c5 W( W" ^+ R+ O, rY#17 Z#18
" U; N) n& }* v: G) e* OX#29
/ _3 R% A: H0 A8 @X#30
% Z3 `: v# b$ Q  p  \6 V, lG0 G49 Z200. M9
$ M5 z7 H: `9 j8 ]' r: L# ^

jiangssli

咱们的版主wmj820303肯定可以给你解决..不过好像澳柯玛系统不支持IF[]THEN格式,也不知道我有没有记错!

dq-lb

就是不支持，但不知怎样转换为OUKMA支持的写法

dq-lb

wmj820303兄，请进来帮忙讲解下啊！

jiangssli

呵呵,最近他在开发软件..估计短时间内是没有空了

jh136232927

wawawawawa

wslaoa

呵呵 我也没用过大偎的机床，不过你可以试试将Fanuc的IF~Then 语句改写成IF~Go语句，问题不就解决了吗？

wanghao85163181

学习中 谢谢