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

dq-lb

7 ~0 [! d4 W" u
产品需在fanuc，北一大偎立式加工中心上完成。由于大量的不同尺寸的产品外形基本一致，现考虑采用模块化宏编程，通过所加工产品的形状，手工编一主程序进行组合调用即可。
, k. B" N. }* [2 M5 P4 f# z
  s$ H" O) A  x    用于fanuc系统的程序目前已编制完成，但由于本人不熟悉北一大偎的宏编程格式，同时P200M说明中的“子程序功能、用户任务、调度功能”我也一时看不懂相关内容，故请各位帮帮忙，将附件的节选程序改为北一大偎的格式(已将WHILE改为了IF，但IF THEN无法解决)。
   
    另外的问题是call 调用子程序时，每个子程序中均含VC1~VC50的变量，会相互影响吗？
1 @7 O7 S  l) O$ x0 [
# B  h5 X9 B( O0 x7 S" U#28=1
#1=16.56
7 J, {0 v5 v+ B#4=5
#5=4
9 f4 j% ?; \0 p3 r- b* E" y2 g#26=20
0 p2 N2 N% F% B9 V' ^#6=16.65
#25=5
#27=150
#11=40
#10=1
#9=0
( [) F7 V# R. y& v9 l#12=[90+#2]/2
9 k" e2 R; ~) ^& \#13=[90-#12]*2
% t6 q( _! k# r: \" j#15=#4/TAN[#12]
2 A' G1 ~% I- L0 j3 a) T4 ZIF [#28 EQ 1] THEN #29=-#27-5
IF [#28 EQ 1] THEN #30=-#27+#11
IF [#28 EQ 0] THEN #29=#27+5
IF [#28 EQ 0] THEN #30=#27-#11
- S, E' p; v3 h% Y9 ?6 C3 x
S2800 M3
% \5 u; ^, e) F) X7 p" H, w; T) g1 eG54 G90 G0 X#29 Y0. Z200.
0 c; y; B' m9 ?/ iG43 Z[#1+30.] H3
1 h. L8 b9 K7 f$ a  ^#17=-#6-#15 +#26/2-#5
1 b9 Y, f2 ^; C  U2 f#18=#1-#25
Y[#17-1.]
G0 Z#18 F1200 M8
& `" F" I3 w$ B& ^N50
  C( [& e, G# U3 K" {# `X#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]]
Y#17 Z#18
; T, p3 g% b( x+ u3 q* Z) ^7 U, eX#29
+ e  v, v  M( Q, P2 @! s" L. W#9=#9+#10
' ~! I- o( X+ _5 Y+ k# u( dIF [#13 LE #9] GOTO60
#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
7 F4 t  L% O6 _6 |  W#18=#1-#25-[#4+#5]*[1-COS[#9]]
Y#17 Z#18
6 e0 m0 i6 w8 s4 b0 rGOTO50
9 N% m- ^: G7 W7 T: y, x& q. mN60
#9=#13
+ D/ \! }$ t1 b; ]1 H#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
#18=#1-#25- [#4+#5]*[1-COS[#9]]
% _) R4 K" L  S6 o" `5 n4 vY#17 Z#18
) a. |: \/ L& a% A4 e' AX#29
" X) y, n8 ?/ d( a0 DX#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

学习中 谢谢