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

dq-lb

% P/ f6 u: d, |2 `$ ?, }. l# q
+ Q/ o) E7 S/ l8 G/ T5 |产品需在fanuc，北一大偎立式加工中心上完成。由于大量的不同尺寸的产品外形基本一致，现考虑采用模块化宏编程，通过所加工产品的形状，手工编一主程序进行组合调用即可。

) T% P. ]7 ~: W  b; o    用于fanuc系统的程序目前已编制完成，但由于本人不熟悉北一大偎的宏编程格式，同时P200M说明中的“子程序功能、用户任务、调度功能”我也一时看不懂相关内容，故请各位帮帮忙，将附件的节选程序改为北一大偎的格式(已将WHILE改为了IF，但IF THEN无法解决)。
+ g8 M( i  _* l6 K3 e   
6 _& n8 t, J/ Y+ P* |% P    另外的问题是call 调用子程序时，每个子程序中均含VC1~VC50的变量，会相互影响吗？

#28=1
( b7 |, G, D! c' ~8 _#1=16.56
#4=5
#5=4
#26=20
/ {# x6 y8 _( y" S( j8 ~* i' p* k#6=16.65
2 v' K% X3 ~  R' t#25=5
#27=150
  n3 w! t2 v- Z$ B/ Y' P/ Q#11=40
! @2 R+ S4 u8 v1 A  i#10=1
#9=0
. W$ o4 `( n3 I6 ?4 |" c% g6 O#12=[90+#2]/2
#13=[90-#12]*2
#15=#4/TAN[#12]
IF [#28 EQ 1] THEN #29=-#27-5
IF [#28 EQ 1] THEN #30=-#27+#11
+ Y. W' N. t% D& {, z" E2 FIF [#28 EQ 0] THEN #29=#27+5
IF [#28 EQ 0] THEN #30=#27-#11

S2800 M3
G54 G90 G0 X#29 Y0. Z200.
G43 Z[#1+30.] H3
#17=-#6-#15 +#26/2-#5
#18=#1-#25
Y[#17-1.]
G0 Z#18 F1200 M8
/ i6 @" y1 b; h( e5 j6 b. Y4 uN50
+ C( p% ]; L% y, hX#30
4 A6 Z* a" D6 i* T7 _#9=#9+#10
IF [#13 LE #9] GOTO60
; l% V+ u, G: V% T3 E/ |#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
, X, }: v' l+ W9 Q#18=#1-#25- [#4+#5]*[1-COS[#9]]
Y#17 Z#18
, M" ?! J) a* ~+ L( `& HX#29
#9=#9+#10
IF [#13 LE #9] GOTO60
8 |. H% }( C- C#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
#18=#1-#25-[#4+#5]*[1-COS[#9]]
Y#17 Z#18
GOTO50
% {, H! V6 Q: X; h( UN60
# y: ?. j" N9 m: G! h. u. }. b#9=#13
% r% `9 z& f+ h#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
#18=#1-#25- [#4+#5]*[1-COS[#9]]
" \! Y+ b9 i8 y( EY#17 Z#18
$ j8 q! _/ f2 ~7 _& nX#29
X#30
G0 G49 Z200. M9

jiangssli

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

dq-lb

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

dq-lb

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

jiangssli

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

jh136232927

wawawawawa

wslaoa

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

wanghao85163181

学习中 谢谢