機(jī)械社區(qū)

 找回密碼
 注冊會員

QQ登錄

只需一步,快速開始

搜索
樓主: wendellz
打印 上一主題 下一主題

誰能幫我解釋下這個宏程序

[復(fù)制鏈接]
11#
發(fā)表于 2010-12-1 05:02:09 | 只看該作者
這是一個三坐標(biāo)同時變化的宏程序,其實前面的#500到#504的參數(shù)可以省略不要寫,直接賦值到下面就可以,至于下面的跳轉(zhuǎn)可以選用鑲嵌式跳轉(zhuǎn),while___DO方式,本來很簡單的程序被你復(fù)雜化了
回復(fù) 支持 反對

使用道具 舉報

12#
發(fā)表于 2010-12-5 09:49:53 | 只看該作者
鄙人操作OKUMA系統(tǒng)的。對法拉克系統(tǒng)略知一二。既然沒有高手出來指點。那我來拋磚引玉吧。
$ p3 Q* i) Z) L樓上那位兄弟所說的我不太認(rèn)同。,我自已編程也喜歡把條件數(shù)據(jù)放在程序最前面。方便。明了,
% b& p1 N2 @: f3 Z/ E3 \0 e O+ v+ k& ?9 x$ j0 D, }/ y
(HUAHUI-GAN )      (此程序加工原點在工件表面X-Y-方向。X方向必須離開刀具半徑)
$ H; C1 F6 g7 L  c& J0 nG90 G54 M3 S3000    不解釋
& I% g( g) X# C- N9 r% F/ Q#500=1100.          工件長度
* ?. n; F7 P! ~# Z& d(CHANG  DU )       8 \0 A+ f) S0 Q* R, y
#501=310 .          工件寬度) V6 C8 Y6 \/ }0 y
(KUAN  DU)
4 d+ B' x# K0 [) r#502=50.            刀具直徑* z4 p! ]" x- z4 `
(BAN  JING)
( C$ }$ _9 _" J3 X7 G/ o(START)* K% D6 r+ N0 R0 c/ o
#503=2.             每刀下刀量  a+ B( l) c# W9 O- e( w
#504=0.             最終想切到的Z位置) u) F$ V4 l+ ^! S
#101=0.             第一刀下刀位置
5 S' p" e' |' _; R7 E" \4 J6 u#101=-#101. K" l* @! V3 q: {7 G* A6 S
#502=#502*0.8       每刀Y方向進(jìn)刀具直徑的80%
; u2 {7 u! D5 _7 p% h" _# z#102=-#502          9 R4 b* x) r" f- i2 u, u
#501=FUP[#501/#502]* #502     取整數(shù)并且每刀Y方向進(jìn)刀量平均化! G1 p! M4 V. r
N10  G0 Z100.
" n. g" R4 c3 l0 @X0 Y#102                      Y移動到工件外面為第一刀Y位置做準(zhǔn)備(無實際意義,作者思路不是很完美)              ! [) C& }* ~( u  {: {0 W
Z15.
5 t3 e0 |: G8 `G1 Z-#101 F20007 R6 v9 y0 U+ \* d( }! I% ?
N20   #102=#102+#502          自動計算下一刀Y位置。* S1 L1 O) D3 G) D1 ]
IF[#102GT#501]GOTO 100        假如下一刀Y位置大于工件寬度那就跳轉(zhuǎn)到N100; n. ]6 [7 d1 @0 ?8 _3 R
Y#102                         移動到第一刀Y位置。( R/ z( g( O. v7 C& ~6 K& R
X#500                         切削加工X方向。
7 U! ~- W# M; w: d" B#102=#102+#502                計算下一刀Y位置。! `* z4 |1 Z. l" W( C
IF[#102GT#501]GOTO 100        假如下一刀Y位置大于工件寬度那就跳轉(zhuǎn)到N100' F6 R7 J. ?7 D$ L) }3 j4 N3 [
Y#1023 ~9 w3 q. {5 r9 \) m
X0
( j: H" `6 E9 t( aIF[#102LE#501]GOTO 20         假如下一刀Y位置小于工件寬度則跳回N20繼續(xù)加工* D. i1 q1 K! P; y
N100   #101=#101+#503         計算下一刀Z位置(作者有誤,這樣計算出來為正數(shù)。)8 ]+ v0 d/ E- j- N, I! y
IF[#101LE#504]GOTO 10         假如下一刀Z位置小于或等于目標(biāo)值時跳回N10繼續(xù)加工(同上。難道作者是想Z方向從下往上切?)
* a; c& h  T/ e6 q6 s1 i+ L#100=#100+1                   (無實際意義。應(yīng)該是計算切了幾刀)  |$ r# {( m+ d2 l# p, W1 J+ S
#101=#5049 m) t/ K% [$ o- m: A0 E
IF[#504EQ1]GOTO 10           (這程序執(zhí)行下來這一步永遠(yuǎn)不會跳轉(zhuǎn)。不理解): l5 E. K- G/ e) ~6 I. @  D: B2 }& d
     G0  Z100.
6 V3 r: E! g0 X6 z$ ?9 @1 T     M05
! m* a5 w0 _1 s4 N* x' A# r7 O6 L     M30
( l1 _) p3 y5 ~* ^2 Y  a  G這段程序是能執(zhí)行的,執(zhí)行的效果就是Z方向在0的位置上切一遍就結(jié)束。: r2 I2 S* u. I; r. R* `$ q
思路有很多不完善的地方。比如對原點,估計只有作者本人才知道對在那個位置最合適,反正是不能對在工件表面上
! V6 C8 l+ n. l! w$ ?還有Z方向下刀第一刀數(shù)值設(shè)定如果不是2的倍數(shù)那就沒法切到想要的厚度了。8 }% q# }' s6 W

點評

解釋的不錯。!注釋的也很好。。。  發(fā)表于 2013-11-26 10:17
回復(fù) 支持 反對

使用道具 舉報

13#
發(fā)表于 2010-12-9 19:24:54 | 只看該作者
掙點威望...頂個  嘿嘿
# v. x+ w5 C: h6 s4 |& w% P. `5 `2 z( e4 z0 [準(zhǔn)備學(xué)習(xí)  表示鴨梨很大呀...
  ]* j: J' d- K
回復(fù) 支持 反對

使用道具 舉報

14#
發(fā)表于 2010-12-9 20:59:12 | 只看該作者
關(guān)注高手講解                                            
. ~$ h5 O3 x; i# H, ?2 @
回復(fù) 支持 反對

使用道具 舉報

15#
發(fā)表于 2010-12-9 21:08:57 | 只看該作者
回復(fù) uwycui 的帖子0 h+ a& k0 t! m( `& v, _
# c2 G- K* o2 C7 @' \4 }" ], P
呵呵不懂          還是很高興看到                  
回復(fù) 支持 反對

使用道具 舉報

16#
發(fā)表于 2010-12-10 21:44:15 | 只看該作者
頂一下
回復(fù) 支持 反對

使用道具 舉報

17#
發(fā)表于 2010-12-10 22:26:55 | 只看該作者
本帖最后由 少年游 于 2010-12-10 22:31 編輯
# w* K* D! Y2 L2 O/ E0 W9 o$ W* K' \
. m8 Q3 o! ]* S# u, n不好意思,沒注意有人解釋了。我的東西刪除。
* {* J: a1 Y0 ]
回復(fù) 支持 反對

使用道具 舉報

18#
發(fā)表于 2010-12-11 23:24:57 | 只看該作者
這東西真的實用嗎?真的不懂,宏程序要系統(tǒng)邊算邊加工,有直接給他指令來的快嗎?說法不一。。。
回復(fù) 支持 反對

使用道具 舉報

19#
發(fā)表于 2010-12-12 10:25:31 | 只看該作者
還是用MASTERCAM快...............
回復(fù) 支持 反對

使用道具 舉報

20#
發(fā)表于 2010-12-12 17:23:03 | 只看該作者
不是很同意樓上的見地啊~!宏程序這么經(jīng)典的東西,怎么能用MASTERCAM 來替換,那你不說UG 更安逸~!
回復(fù) 支持 反對

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 注冊會員

本版積分規(guī)則

小黑屋|手機(jī)版|Archiver|機(jī)械社區(qū) ( 京ICP備10217105號-1,京ICP證050210號,浙公網(wǎng)安備33038202004372號 )

GMT+8, 2024-11-18 13:54 , Processed in 0.057254 second(s), 15 queries , Gzip On.

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回復(fù) 返回頂部 返回列表