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

dq-lb

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

5 _: x. s- C7 @1 b    用于fanuc系统的程序目前已编制完成，但由于本人不熟悉北一大偎的宏编程格式，同时P200M说明中的“子程序功能、用户任务、调度功能”我也一时看不懂相关内容，故请各位帮帮忙，将附件的节选程序改为北一大偎的格式(已将WHILE改为了IF，但IF THEN无法解决)。
$ V4 y3 N( i9 Z   
. N. k3 S( c9 R8 C0 K% r6 z    另外的问题是call 调用子程序时，每个子程序中均含VC1~VC50的变量，会相互影响吗？

4 T. S2 J2 U3 B. J) j#28=1
#1=16.56
7 w. K/ V6 B; j8 O8 e#4=5
#5=4
* \8 {1 F, u# R% i#26=20
' X$ z4 W( V+ v; w2 u#6=16.65
- Y( l# P- ^! ]/ G  z: X  u; r#25=5
#27=150
#11=40
  t6 C2 A8 P2 X8 t#10=1
7 X  @1 _" o# ~/ z9 x& X#9=0
# [. Z; E+ F: J+ V7 D* [9 V7 ^+ \7 y#12=[90+#2]/2
0 }% _" S( k$ E+ c; X#13=[90-#12]*2
#15=#4/TAN[#12]
IF [#28 EQ 1] THEN #29=-#27-5
IF [#28 EQ 1] THEN #30=-#27+#11
$ u( J) d3 l; j; U: D1 ?, fIF [#28 EQ 0] THEN #29=#27+5
IF [#28 EQ 0] THEN #30=#27-#11
; w8 f3 ?' g- O+ |2 p8 @
* X$ ]# ^) k5 X: D; y7 nS2800 M3
G54 G90 G0 X#29 Y0. Z200.
0 J5 k( r# Z7 B: @G43 Z[#1+30.] H3
, W1 Y; I0 p6 o  A#17=-#6-#15 +#26/2-#5
3 P1 I( o/ q; c* g- U" W#18=#1-#25
Y[#17-1.]
G0 Z#18 F1200 M8
N50
X#30
#9=#9+#10
IF [#13 LE #9] GOTO60
4 K2 n6 i! a% Y9 [/ \#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
#18=#1-#25- [#4+#5]*[1-COS[#9]]
Y#17 Z#18
- j2 |) I9 Y6 yX#29
#9=#9+#10
IF [#13 LE #9] GOTO60
% H' R! g6 U# {! A  c#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
& }: B) F7 i& [2 C( [#18=#1-#25-[#4+#5]*[1-COS[#9]]
4 j, c! p* p; g4 p5 v+ RY#17 Z#18
GOTO50
3 j; t+ ?# h/ r4 |  d9 kN60
#9=#13
# N+ m$ A" Z6 j% S8 d+ x7 J% f3 @6 d5 d#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
7 t$ E' C3 z5 R6 `#18=#1-#25- [#4+#5]*[1-COS[#9]]
, X/ D* ?# m$ gY#17 Z#18
X#29
. X, P3 e0 r' G4 yX#30
! ]2 T% R1 p; o& \- vG0 G49 Z200. M9
3 l* j4 m: ~1 u9 d" Z( L5 O

jiangssli

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

dq-lb

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

dq-lb

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

jiangssli

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

jh136232927

wawawawawa

wslaoa

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

wanghao85163181

学习中 谢谢