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

dq-lb

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

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

#28=1
! S' M: Z. u  q, Z1 z#1=16.56
#4=5
; ~+ L( y+ W* P#5=4
6 }' \! J2 ^) o; Y/ f#26=20
7 Z% ?4 {# \+ R- g#6=16.65
#25=5
#27=150
#11=40
#10=1
# b) L0 M. O4 o9 Y0 M#9=0
#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
IF [#28 EQ 0] THEN #29=#27+5
8 p2 t, u  S* q! |& J4 JIF [#28 EQ 0] THEN #30=#27-#11
) i, X8 _" Y3 q2 D. l  M6 ]
) u+ d1 H0 y) L( a- |S2800 M3
G54 G90 G0 X#29 Y0. Z200.
G43 Z[#1+30.] H3
, d/ C" _1 R% ^#17=-#6-#15 +#26/2-#5
#18=#1-#25
Y[#17-1.]
: Y1 G- Q8 Z, Y+ aG0 Z#18 F1200 M8
N50
X#30
#9=#9+#10
IF [#13 LE #9] GOTO60
6 Z! @; T' O% c( k5 F9 S9 X5 {#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
- \! t5 O. s$ ]; ], E. G#18=#1-#25- [#4+#5]*[1-COS[#9]]
Y#17 Z#18
6 T% {6 S3 h8 A) s5 l) \5 x  CX#29
#9=#9+#10
6 V6 p6 Z$ C: aIF [#13 LE #9] GOTO60
3 E6 X6 ?9 L. A2 {" a8 C/ ^#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
#18=#1-#25-[#4+#5]*[1-COS[#9]]
Y#17 Z#18
) q. O/ T. r' {GOTO50
N60
#9=#13
#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
#18=#1-#25- [#4+#5]*[1-COS[#9]]
Y#17 Z#18
X#29
2 A: s8 j/ r5 o# D8 FX#30
/ x+ E2 |2 H' ^9 |& J( C: YG0 G49 Z200. M9
/ [3 E' N- d/ F5 K# V3 G4 g

jiangssli

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

dq-lb

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

dq-lb

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

jiangssli

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

jh136232927

wawawawawa

wslaoa

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

wanghao85163181

学习中 谢谢