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

dq-lb

4 O% x1 x  G8 P2 i9 L. _6 r9 E' ]
产品需在fanuc，北一大偎立式加工中心上完成。由于大量的不同尺寸的产品外形基本一致，现考虑采用模块化宏编程，通过所加工产品的形状，手工编一主程序进行组合调用即可。
" t6 H. _  g& O. D
    用于fanuc系统的程序目前已编制完成，但由于本人不熟悉北一大偎的宏编程格式，同时P200M说明中的“子程序功能、用户任务、调度功能”我也一时看不懂相关内容，故请各位帮帮忙，将附件的节选程序改为北一大偎的格式(已将WHILE改为了IF，但IF THEN无法解决)。
   
8 n, s, |' e5 h0 ^6 J    另外的问题是call 调用子程序时，每个子程序中均含VC1~VC50的变量，会相互影响吗？
3 U9 |. d, K; Z3 B
#28=1
#1=16.56
#4=5
#5=4
#26=20
#6=16.65
* O7 d! z0 y" k& a#25=5
# _$ m. l* N  S2 Q7 Z#27=150
#11=40
. l2 p) R! g; u* l$ r2 U#10=1
) Y% ?* z) T5 G#9=0
1 Z& ^; w0 q4 Z7 Y#12=[90+#2]/2
8 t& X: B5 F, I9 X! i#13=[90-#12]*2
#15=#4/TAN[#12]
IF [#28 EQ 1] THEN #29=-#27-5
IF [#28 EQ 1] THEN #30=-#27+#11
4 S( y+ u# e, lIF [#28 EQ 0] THEN #29=#27+5
IF [#28 EQ 0] THEN #30=#27-#11

# }: w' ~: B8 _! i+ Z1 I# E$ wS2800 M3
G54 G90 G0 X#29 Y0. Z200.
G43 Z[#1+30.] H3
#17=-#6-#15 +#26/2-#5
#18=#1-#25
Y[#17-1.]
G0 Z#18 F1200 M8
( S6 F+ _. T5 ~/ D8 l& LN50
X#30
, b: G: ^$ E$ @9 \. B- y#9=#9+#10
. {8 c4 N7 R) R7 i' sIF [#13 LE #9] GOTO60
% E" n+ i2 x0 U6 {: g! P$ O#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
- B( T& Q: Y. R4 i2 s( B- G2 y  j#18=#1-#25- [#4+#5]*[1-COS[#9]]
! e1 c3 f7 G0 ~- _( w+ ?Y#17 Z#18
4 ?6 J, S3 q- m' ?6 E" kX#29
0 |1 b7 |& l3 ^$ }, V& y5 c#9=#9+#10
+ d, }$ o0 k& L* lIF [#13 LE #9] GOTO60
#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
7 H3 `% Y5 T0 r#18=#1-#25-[#4+#5]*[1-COS[#9]]
7 S% G4 h# r6 o5 o8 ]Y#17 Z#18
GOTO50
( J/ c( [( a) W: pN60
7 w' A! \8 m) N" N#9=#13
. f1 M. N: Q2 ]! z#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
#18=#1-#25- [#4+#5]*[1-COS[#9]]
5 D2 P; V( W. k% t. Z0 t( T! MY#17 Z#18
7 S8 w3 i7 C9 U' K  D5 e( M$ }2 P6 sX#29
X#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

学习中 谢谢