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

dq-lb

& L1 C, \- p/ \% R. p; `
产品需在fanuc，北一大偎立式加工中心上完成。由于大量的不同尺寸的产品外形基本一致，现考虑采用模块化宏编程，通过所加工产品的形状，手工编一主程序进行组合调用即可。
1 ^8 }8 Y8 u8 g
0 n0 V5 h6 U2 }/ l7 G    用于fanuc系统的程序目前已编制完成，但由于本人不熟悉北一大偎的宏编程格式，同时P200M说明中的“子程序功能、用户任务、调度功能”我也一时看不懂相关内容，故请各位帮帮忙，将附件的节选程序改为北一大偎的格式(已将WHILE改为了IF，但IF THEN无法解决)。
3 ?: O3 g4 E7 P9 ~   
    另外的问题是call 调用子程序时，每个子程序中均含VC1~VC50的变量，会相互影响吗？
# M. \7 W. w6 j* f% n& m
* i# A9 |% A  [2 [9 N. M9 v#28=1
+ i4 e5 y( a' j1 x( e#1=16.56
#4=5
#5=4
: O2 ^$ x$ Y# i/ r  k#26=20
#6=16.65
#25=5
#27=150
#11=40
#10=1
#9=0
#12=[90+#2]/2
$ u, d8 \& Y: j: U! B#13=[90-#12]*2
#15=#4/TAN[#12]
IF [#28 EQ 1] THEN #29=-#27-5
* C! J4 [9 A' yIF [#28 EQ 1] THEN #30=-#27+#11
IF [#28 EQ 0] THEN #29=#27+5
IF [#28 EQ 0] THEN #30=#27-#11

S2800 M3
/ p3 n) S! o& g) t! ]* m0 DG54 G90 G0 X#29 Y0. Z200.
. Q8 j4 W, [3 sG43 Z[#1+30.] H3
#17=-#6-#15 +#26/2-#5
. T* X, c8 g* @" I  f& V* R#18=#1-#25
Y[#17-1.]
G0 Z#18 F1200 M8
N50
X#30
' G5 d' d' V  ]' J, H, s$ p) v#9=#9+#10
IF [#13 LE #9] GOTO60
#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
#18=#1-#25- [#4+#5]*[1-COS[#9]]
Y#17 Z#18
5 `; }) r8 {* O# N4 G/ b" T2 RX#29
. c, T9 O. T6 r* z#9=#9+#10
7 u7 t: c3 P" y: v0 QIF [#13 LE #9] GOTO60
#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
: i/ x7 M( u/ X6 v  l#18=#1-#25-[#4+#5]*[1-COS[#9]]
* z4 d% p" @6 i+ D, V9 v1 m2 EY#17 Z#18
. w+ y9 w0 G2 ^$ g8 h0 V5 f8 _GOTO50
! }& g) v6 b7 _! H4 j1 \N60
#9=#13
+ \+ L5 o# Q; O/ ?#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
$ B  ~8 T6 ~7 |! d# N- v) R( p#18=#1-#25- [#4+#5]*[1-COS[#9]]
8 {: Y% G' z* a2 W& w% K9 Y  MY#17 Z#18
X#29
X#30
1 Q  V; E* d  t* MG0 G49 Z200. M9

jiangssli

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

dq-lb

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

dq-lb

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

jiangssli

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

jh136232927

wawawawawa

wslaoa

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

wanghao85163181

学习中 谢谢