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

dq-lb

' V1 Q! k8 ?) @. R* `
( x4 G# c# {, ]" v' f* Z產品需在fanuc，北一大偎立式加工中心上完成。由于大量的不同尺寸的產品外形基本一致，現考慮采用模塊化宏編程，通過所加工產品的形狀，手工編一主程序進行組合調用即可。
  e4 y6 ~% ~, s8 X$ n- i/ L- M
; K7 D! g) w4 K8 B9 f    用于fanuc系統的程序目前已編制完成，但由于本人不熟悉北一大偎的宏編程格式，同時P200M說明中的“子程序功能、用戶任務、調度功能”我也一時看不懂相關內容，故請各位幫幫忙，將附件的節選程序改為北一大偎的格式(已將WHILE改為了IF，但IF THEN無法解決)。
   
% }$ d# O, }1 b. I* a' i0 ]    另外的問題是call 調用子程序時，每個子程序中均含VC1~VC50的變量，會相互影響嗎？

#28=1
#1=16.56
* e4 B3 e5 S( k. V- H#4=5
#5=4
& u( y3 F1 R1 w% ~#26=20
2 S( \4 t5 I+ [; b- y#6=16.65
#25=5
#27=150
#11=40
#10=1
#9=0
" j# P" z2 L# D7 M) k; P#12=[90+#2]/2
#13=[90-#12]*2
+ y% l8 v' M, r0 [#15=#4/TAN[#12]
IF [#28 EQ 1] THEN #29=-#27-5
0 V$ X) w3 n2 _7 |IF [#28 EQ 1] THEN #30=-#27+#11
! u$ v) F, `- n+ r& i7 X: k# FIF [#28 EQ 0] THEN #29=#27+5
IF [#28 EQ 0] THEN #30=#27-#11
! M  t$ K0 W0 K6 E
) O8 C$ l  U5 i2 `/ fS2800 M3
- A3 r7 j+ G7 N9 GG54 G90 G0 X#29 Y0. Z200.
G43 Z[#1+30.] H3
#17=-#6-#15 +#26/2-#5
, B* S6 n9 b  {( t. y- `8 r4 f4 C: j#18=#1-#25
: k" x. v7 X8 z( f% k( S7 sY[#17-1.]
G0 Z#18 F1200 M8
# G0 {# x  n# F& T: \7 u1 d1 n  JN50
X#30
) R( y  t, {1 \$ K0 t; V. \/ ?#9=#9+#10
IF [#13 LE #9] GOTO60
- m" r. g, `8 _- D5 Q; c! _; [5 l. n#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
2 _# f! L! g4 q5 G#18=#1-#25- [#4+#5]*[1-COS[#9]]
% q5 I, H& d2 w& ]( VY#17 Z#18
+ B; ?  R$ K8 l- ?: {# YX#29
#9=#9+#10
IF [#13 LE #9] GOTO60
6 M5 Y. D; l8 M8 c! D( o0 n/ q. @/ g#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
#18=#1-#25-[#4+#5]*[1-COS[#9]]
Y#17 Z#18
GOTO50
: W( L  e9 s4 n! _. P9 p% |N60
7 [# T$ a" y; w0 w9 _! `#9=#13
#17=-#6-#15 +#26/2-#5+[#4+#5]*SIN[#9]
2 V4 x' d$ ^- ?3 |" E( W#18=#1-#25- [#4+#5]*[1-COS[#9]]
. F3 X4 d3 T/ e6 s* d5 F/ QY#17 Z#18
; I  D* h$ H+ K) y8 JX#29
# k6 W1 o6 h# _' NX#30
' U+ Q% h  U, g, S: ~4 x/ PG0 G49 Z200. M9

登錄/注冊后可看大圖

登錄/注冊后可看大圖

wanghao85163181

學習中 謝謝

wslaoa

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

jh136232927

wawawawawa

jiangssli

呵呵,最近他在開發軟件..估計短時間內是沒有空了

dq-lb

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

dq-lb

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

jiangssli

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