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

dq-lb

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

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

! c3 e( h# E9 J; I: |1 E  i) O#28=1
# Q* C! t! Y8 |3 ~#1=16.56
#4=5
#5=4
8 a/ d0 [3 Y* K7 z, ^  e2 o3 B' R+ x#26=20
#6=16.65
#25=5
  C% x9 @. m( l* R: E: J( S#27=150
$ C; D0 @3 v5 M+ p: Z& l. G#11=40
#10=1
" P% j1 y. A  y2 Y1 ]5 _  U/ ?5 _/ l#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
7 `; E7 _, d7 I" Q; A" l9 ]IF [#28 EQ 0] THEN #29=#27+5
: h* E$ r  ~3 [+ K% |$ H4 GIF [#28 EQ 0] THEN #30=#27-#11
' {9 |, b2 k2 E- g  C
S2800 M3
G54 G90 G0 X#29 Y0. Z200.
- J, _& x& d( E* h8 GG43 Z[#1+30.] H3
#17=-#6-#15 +#26/2-#5
#18=#1-#25
Y[#17-1.]
, R" a' f( l' ~2 ], V7 rG0 Z#18 F1200 M8
3 K& o! ~" ~7 Q; m( ^8 A  |N50
# w2 x, i2 s" P, ~X#30
7 v5 }! z2 W9 p  @9 B. g& i: ]#9=#9+#10
; g7 `6 x$ h% z6 ~IF [#13 LE #9] GOTO60
4 R7 }; s& y. }: ^7 N( P#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
& `" u; H7 n; B; M#18=#1-#25- [#4+#5]*[1-COS[#9]]
& F" H! q9 ?) t* r4 wY#17 Z#18
# G( u2 a( p6 l  wX#29
# @, J3 v1 t, R& O8 F, K#9=#9+#10
IF [#13 LE #9] GOTO60
: J$ S, O0 @, B* ~' w#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
" @  s' ^3 W0 o#18=#1-#25-[#4+#5]*[1-COS[#9]]
Y#17 Z#18
GOTO50
N60
: Z* d/ n( y) b! J$ v% Y/ ~  @#9=#13
#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
#18=#1-#25- [#4+#5]*[1-COS[#9]]
+ E6 i6 |: B) y1 Z8 _3 W: k; X4 v, z" _Y#17 Z#18
X#29
  r4 H  z# a! c8 |) |+ T3 NX#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

学习中 谢谢