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

dq-lb

产品需在fanuc，北一大偎立式加工中心上完成。由于大量的不同尺寸的产品外形基本一致，现考虑采用模块化宏编程，通过所加工产品的形状，手工编一主程序进行组合调用即可。
' M, C$ u4 }/ [* \& }& U
( z  q. ]; ?# p" V$ B    用于fanuc系统的程序目前已编制完成，但由于本人不熟悉北一大偎的宏编程格式，同时P200M说明中的“子程序功能、用户任务、调度功能”我也一时看不懂相关内容，故请各位帮帮忙，将附件的节选程序改为北一大偎的格式(已将WHILE改为了IF，但IF THEN无法解决)。
/ @, ^7 m5 l( x5 M& I5 D   
, ]3 X8 l, [) o* [3 k& M, J5 C( n    另外的问题是call 调用子程序时，每个子程序中均含VC1~VC50的变量，会相互影响吗？

#28=1
#1=16.56
#4=5
* {& i4 u2 h: o& p* o8 o#5=4
2 X5 x% ?0 u4 a7 ?#26=20
! ]) z2 |# l* m: _#6=16.65
#25=5
#27=150
% W0 y4 ~8 s5 i" `& E( [- b- [#11=40
1 Q' T4 Z6 ^% H- C#10=1
. |; l5 E3 @& d4 m6 b+ x#9=0
' G% X! v" @; w# B- \3 O' ]+ j#12=[90+#2]/2
3 g& z6 ^% q+ J7 x" M+ T* H#13=[90-#12]*2
#15=#4/TAN[#12]
1 g$ e, A* P6 L1 O0 O  h3 R- c" WIF [#28 EQ 1] THEN #29=-#27-5
( ?1 F5 l7 w1 R% H5 f" ]! }! OIF [#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
G54 G90 G0 X#29 Y0. Z200.
" L: u1 _) Z9 H# Z1 b4 Z; MG43 Z[#1+30.] H3
0 i/ M& p+ d- T; D3 C#17=-#6-#15 +#26/2-#5
#18=#1-#25
Y[#17-1.]
- |$ d% s& \2 p7 p3 AG0 Z#18 F1200 M8
N50
& O; B. b: e+ X( t9 W' Q- kX#30
#9=#9+#10
IF [#13 LE #9] GOTO60
5 s% n" G- ]0 Z) C0 X1 t6 s#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
#18=#1-#25- [#4+#5]*[1-COS[#9]]
Y#17 Z#18
X#29
9 G) @  w0 Y+ T/ Q5 T#9=#9+#10
IF [#13 LE #9] GOTO60
#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
7 o) ?. F% y1 K" @0 L#18=#1-#25-[#4+#5]*[1-COS[#9]]
Y#17 Z#18
GOTO50
4 _. ?* T- E* M; _9 N/ ~N60
: C3 F) p1 l* F#9=#13
#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
8 p/ ^, L- s6 r) N) F#18=#1-#25- [#4+#5]*[1-COS[#9]]
Y#17 Z#18
5 X' @' v# F* r! }# pX#29
3 \/ {5 D& q1 y# z9 e/ TX#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

学习中 谢谢