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

dq-lb

, M; I4 X8 V. A产品需在fanuc，北一大偎立式加工中心上完成。由于大量的不同尺寸的产品外形基本一致，现考虑采用模块化宏编程，通过所加工产品的形状，手工编一主程序进行组合调用即可。
; w1 |  b/ y+ z
    用于fanuc系统的程序目前已编制完成，但由于本人不熟悉北一大偎的宏编程格式，同时P200M说明中的“子程序功能、用户任务、调度功能”我也一时看不懂相关内容，故请各位帮帮忙，将附件的节选程序改为北一大偎的格式(已将WHILE改为了IF，但IF THEN无法解决)。
4 L1 G% m( h5 h! A2 `   
    另外的问题是call 调用子程序时，每个子程序中均含VC1~VC50的变量，会相互影响吗？
# S) F: l4 ]$ L2 {8 {, B
#28=1
#1=16.56
4 m! q/ c" n6 j, `0 L$ F* I#4=5
! A1 C. |- L8 c# X, I#5=4
  _* O4 K+ h4 P/ \2 V#26=20
#6=16.65
#25=5
#27=150
# _/ ^) G7 o0 u# n: C  `4 `$ m#11=40
#10=1
#9=0
! H9 i% i- P! s3 e" Y- r#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
& z% O& s$ x% ]0 p/ f. T4 L- GIF [#28 EQ 0] THEN #29=#27+5
IF [#28 EQ 0] THEN #30=#27-#11

$ ?! r! a5 R1 f; rS2800 M3
! y3 u3 ~9 d- R" n6 kG54 G90 G0 X#29 Y0. Z200.
G43 Z[#1+30.] H3
; C9 a/ k" y1 i: n1 f$ X  u#17=-#6-#15 +#26/2-#5
1 Z% C. H) J( n2 b. A#18=#1-#25
Y[#17-1.]
G0 Z#18 F1200 M8
N50
" W2 {" W5 L# D! o0 C/ N* MX#30
#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]]
  c& S1 |* ^( d2 E" ]Y#17 Z#18
  W- i/ g9 x" [3 kX#29
#9=#9+#10
% @) O" F6 |7 A* k8 [9 g# kIF [#13 LE #9] GOTO60
" C5 k+ W4 G3 y4 L4 B  B2 u#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
#18=#1-#25-[#4+#5]*[1-COS[#9]]
$ A# Q4 R+ Z( i3 h6 BY#17 Z#18
GOTO50
( P8 j9 P, J0 X" w4 O  z# JN60
#9=#13
#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
0 v* t0 ]4 R. d  i#18=#1-#25- [#4+#5]*[1-COS[#9]]
Y#17 Z#18
+ K1 z: L2 u1 z) H/ e1 }8 x  E& IX#29
& F+ q. n" O' j8 ~5 |2 |( ^$ fX#30
' ?1 y4 w' s( g. DG0 G49 Z200. M9

jiangssli

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

dq-lb

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

dq-lb

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

jiangssli

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

jh136232927

wawawawawa

wslaoa

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

wanghao85163181

学习中 谢谢