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

dq-lb

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

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

#28=1
5 N0 Z9 h) A$ d" Y( H! o#1=16.56
#4=5
' F8 Q6 Z' X( n#5=4
8 n0 ]2 L$ e; N& H#26=20
#6=16.65
- X8 b9 `4 {0 M. n" `#25=5
#27=150
#11=40
#10=1
#9=0
7 z4 i$ D2 V* V, T7 u#12=[90+#2]/2
& I3 `: j" ?; S4 P#13=[90-#12]*2
#15=#4/TAN[#12]
' ~  E1 m* N+ F$ V  M0 cIF [#28 EQ 1] THEN #29=-#27-5
IF [#28 EQ 1] THEN #30=-#27+#11
4 T& o/ g! a! B) c2 b+ ]6 @3 HIF [#28 EQ 0] THEN #29=#27+5
, K6 i( a3 U) IIF [#28 EQ 0] THEN #30=#27-#11
' N, v5 a. p% n9 ^( B1 @
S2800 M3
G54 G90 G0 X#29 Y0. Z200.
G43 Z[#1+30.] H3
4 z3 {7 c) I. Z* ?#17=-#6-#15 +#26/2-#5
$ e2 S6 \/ r" T0 |#18=#1-#25
# `8 v1 v. \. \. F3 K* CY[#17-1.]
G0 Z#18 F1200 M8
7 y2 R6 P. i' T- f& ^) UN50
8 p, q! R6 ], W1 ]1 r" q, `% K. `X#30
#9=#9+#10
IF [#13 LE #9] GOTO60
1 g- |5 p. a/ x#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
#18=#1-#25- [#4+#5]*[1-COS[#9]]
6 k5 i9 V0 L2 Y( S6 u: z$ X) |' I6 [Y#17 Z#18
0 |' N7 ]- A- U) a0 B4 \X#29
#9=#9+#10
IF [#13 LE #9] GOTO60
5 U5 e. y- ~/ @" {! Z5 L#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
#18=#1-#25-[#4+#5]*[1-COS[#9]]
Y#17 Z#18
  Z8 Y7 n( I) o. y' T/ j/ pGOTO50
  W4 K) F$ Z6 Z4 uN60
#9=#13
#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
% h: ?/ D& `! b; ]7 k#18=#1-#25- [#4+#5]*[1-COS[#9]]
Y#17 Z#18
X#29
: d1 ~  c  e0 J  Y( a& O  R/ j" j4 [4 yX#30
& a5 u* z3 u: A) v9 {# C- x9 M. eG0 G49 Z200. M9

jiangssli

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

dq-lb

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

dq-lb

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

jiangssli

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

jh136232927

wawawawawa

wslaoa

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

wanghao85163181

学习中 谢谢