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

dq-lb

5 W5 d' c" X/ }9 J. t/ |+ F; g
產品需在fanuc，北一大偎立式加工中心上完成。由于大量的不同尺寸的產品外形基本一致，現考慮采用模塊化宏編程，通過所加工產品的形狀，手工編一主程序進行組合調用即可。

2 D1 J% d. [. r% b    用于fanuc系統的程序目前已編制完成，但由于本人不熟悉北一大偎的宏編程格式，同時P200M說明中的“子程序功能、用戶任務、調度功能”我也一時看不懂相關內容，故請各位幫幫忙，將附件的節選程序改為北一大偎的格式(已將WHILE改為了IF，但IF THEN無法解決)。
   
# L2 @: p' K% V4 V    另外的問題是call 調用子程序時，每個子程序中均含VC1~VC50的變量，會相互影響嗎？
' o6 ?6 E& s4 M' ~6 m# R- Y
#28=1
#1=16.56
& l6 {, b- U8 M, K$ J1 R) o#4=5
- }6 f3 E$ y0 ?$ o- L1 F( k8 m0 R#5=4
#26=20
#6=16.65
#25=5
' ^& k5 _7 X4 ]& O2 R#27=150
: z2 j, }: C( U+ I. _7 t! G7 x) N$ k#11=40
#10=1
) V/ H2 B- Z# v" o" Z1 k* I( Y#9=0
/ B- N- Q4 H. K6 @#12=[90+#2]/2
8 B4 f+ P/ q: m6 `- p4 w, E#13=[90-#12]*2
#15=#4/TAN[#12]
IF [#28 EQ 1] THEN #29=-#27-5
; F! }+ ~0 Z$ @7 a: qIF [#28 EQ 1] THEN #30=-#27+#11
IF [#28 EQ 0] THEN #29=#27+5
. M3 o( i& p4 n- R6 S* JIF [#28 EQ 0] THEN #30=#27-#11

S2800 M3
G54 G90 G0 X#29 Y0. Z200.
* `: f& W% F: T0 [2 ~- dG43 Z[#1+30.] H3
' ^7 |% l+ b6 R: m9 r" E  r#17=-#6-#15 +#26/2-#5
#18=#1-#25
% P& X. k( c) i7 n0 rY[#17-1.]
G0 Z#18 F1200 M8
N50
X#30
#9=#9+#10
IF [#13 LE #9] GOTO60
( R2 L8 D7 N* p#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
#18=#1-#25- [#4+#5]*[1-COS[#9]]
Y#17 Z#18
X#29
#9=#9+#10
, V: m0 e+ }7 V/ O3 w! M' n6 DIF [#13 LE #9] GOTO60
2 {5 T2 Y, D) b* d#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
#18=#1-#25-[#4+#5]*[1-COS[#9]]
+ L2 d, S$ d; J$ z5 r# r) i$ PY#17 Z#18
: p, c1 F. i9 e5 f5 W0 uGOTO50
; m1 X, K5 ]6 U* o7 ?* UN60
8 B" H1 R; ~6 X# ~5 r#9=#13
#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
#18=#1-#25- [#4+#5]*[1-COS[#9]]
( a3 W: O* H; U- @( M8 W) }% J2 eY#17 Z#18
X#29
1 |. D( H( G' k7 R3 r4 U, R$ {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

學習中 謝謝