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

dq-lb

# v# u- @6 v" A  a2 E產(chǎn)品需在fanuc，北一大偎立式加工中心上完成。由于大量的不同尺寸的產(chǎn)品外形基本一致，現(xiàn)考慮采用模塊化宏編程，通過所加工產(chǎn)品的形狀，手工編一主程序進行組合調(diào)用即可。

/ I* {8 g3 Y$ L8 ?. Y0 q- F; \    用于fanuc系統(tǒng)的程序目前已編制完成，但由于本人不熟悉北一大偎的宏編程格式，同時P200M說明中的“子程序功能、用戶任務、調(diào)度功能”我也一時看不懂相關內(nèi)容，故請各位幫幫忙，將附件的節(jié)選程序改為北一大偎的格式(已將WHILE改為了IF，但IF THEN無法解決)。
( h" |, J4 G+ h* i1 L. }   
    另外的問題是call 調(diào)用子程序時，每個子程序中均含VC1~VC50的變量，會相互影響嗎？
$ @7 N: w' U* v$ x# V0 Q  q% n% _
9 A& c8 h: z# t5 C: S" K) d5 X2 E#28=1
#1=16.56
7 \' p4 N. W; B3 u% [' i#4=5
#5=4
#26=20
#6=16.65
#25=5
# y" A2 o: x2 W1 R' f2 @8 x3 w#27=150
#11=40
( A8 F7 |+ K* Z#10=1
#9=0
#12=[90+#2]/2
& L! l1 a1 f; m) d  p7 l# b#13=[90-#12]*2
6 A! J2 s+ H; x. a0 A#15=#4/TAN[#12]
IF [#28 EQ 1] THEN #29=-#27-5
IF [#28 EQ 1] THEN #30=-#27+#11
. O; ]7 n  n& U& o6 _4 }8 lIF [#28 EQ 0] THEN #29=#27+5
IF [#28 EQ 0] THEN #30=#27-#11

S2800 M3
G54 G90 G0 X#29 Y0. Z200.
G43 Z[#1+30.] H3
+ W2 l8 O: c6 }  s# t/ W6 s% j6 R#17=-#6-#15 +#26/2-#5
#18=#1-#25
& C1 E9 D1 d8 b# t  D# a) EY[#17-1.]
6 J& D0 H/ ^' v) AG0 Z#18 F1200 M8
N50
* p3 j- u* y4 z$ m1 SX#30
3 Y) s- V- M- n9 E$ |5 D1 f4 e) p#9=#9+#10
IF [#13 LE #9] GOTO60
#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
6 {/ R5 c* w" c#18=#1-#25- [#4+#5]*[1-COS[#9]]
" m5 [7 z" u0 }0 P# o  yY#17 Z#18
9 v  |8 G6 c6 K  ~, QX#29
#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]]
0 o5 w) m3 `5 J0 X, k3 t2 w' DY#17 Z#18
9 z  k# P/ l* |6 \/ a" r3 I  ^GOTO50
+ v6 p- d4 x& {2 V4 nN60
& y2 S6 e3 z8 E#9=#13
#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
#18=#1-#25- [#4+#5]*[1-COS[#9]]
Y#17 Z#18
& p; Y1 m+ n3 L+ HX#29
X#30
+ }- V* ^! R' f! ]G0 G49 Z200. M9

登錄/注冊后可看大圖

登錄/注冊后可看大圖

jiangssli

咱們的版主wmj820303肯定可以給你解決..不過好像澳柯瑪系統(tǒng)不支持IF[]THEN格式,也不知道我有沒有記錯!

dq-lb

就是不支持，但不知怎樣轉換為OUKMA支持的寫法

dq-lb

wmj820303兄，請進來幫忙講解下啊！

jiangssli

呵呵,最近他在開發(fā)軟件..估計短時間內(nèi)是沒有空了

jh136232927

wawawawawa

wslaoa

呵呵 我也沒用過大偎的機床，不過你可以試試將Fanuc的IF~Then 語句改寫成IF~Go語句，問題不就解決了嗎？

wanghao85163181

學習中 謝謝