仿Mastercam──粗挖方槽(平行環(huán)切)

羅蓋仙

- \4 Y, A) V* m4 g
小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數(shù)程序，結(jié)果發(fā)現(xiàn)我對CAM軟體沒有太大的興趣，
找不到目標(biāo)寫，邊玩CAM軟體發(fā)現(xiàn)CAM的平行環(huán)切很有規(guī)律我去研究了，於是著筆寫寫看
3 j! c3 C5 n: U7 O. K6 \% f
矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網(wǎng)友易懂，長方形原理也一樣我有私自寫好
0 I( `/ [( A' b$ g5 `! z$ K  s
5 T$ s% X/ m; u! X& z3 H5 K先說明一下CAM挖槽(平行環(huán)切)的計算規(guī)則：
8 I  M2 R( p6 j! s8 ^0 N& p取內(nèi)槽的一半為#4，假設(shè)槽單邊長為60mm，半內(nèi)槽Ｉ為30.
U(#21)為切距.步距
#100=#4-#18 (內(nèi)槽－刀半徑)
#101=#21/2. (切距的一半，準(zhǔn)備用余數(shù)與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數(shù))
#103=#102-#101(如果余數(shù)大于切距的一半，將會使用到他)

以下兵分四路：
甲.IF余數(shù)EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數(shù)EQ#101 (切距的一半)：先做#101，然後用#21加到底
$ p; g! ?% x% P0 X丙.IF余數(shù)GT#101. ：先做#103，再做#102，然後用#21加到底
8 [3 \! C+ F' `5 C丁.IF余數(shù)LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣

登錄/注冊后可看大圖

. B  C. t, r* e2 B7 v4 B/ c

登錄/注冊后可看大圖

3 i( E- r( e6 f( {' M  a( P
; y. a  I9 f# y! d5 k%
O0003(主程序)
G91G28Z0.
T1M6
4 l* L/ j5 X; tG0G54G90G94G17X0.Y0.
* y) m/ W1 ]* }& o  @3 SG43H1Z100.S1000M3
# q* B( N  |1 f7 P  VZ10.
- _( k8 r3 b* ], M4 f7 _% I0 GG65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
G91G28Z0.Y0.
8 z1 j1 ~, @# Z0 L1 PM0
$ _0 P9 r& e2 w* Z& `%

9 u- i6 j0 ]4 Q" NXY工件的中心
) D. m2 [/ i) m: \* i# S1 n, U! bI內(nèi)槽的一半
R刀半徑
- V5 d# a4 ]$ R, e, FU切距
Z深度

; `5 |" H/ _2 ]. Q8 {
%
O0005(副程序)
6 P( o" M9 C5 u$ Z#100=#4-#18 (內(nèi)槽-刀半徑)
#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數(shù))
#103=#102-#101 (餘數(shù)-切距的1/2)

G90G1X#24Y#25F[#9*5.]
  v: O+ j5 |2 GZ[#26+10.]F[#9*3.]
8 {7 t2 d% P5 u% M9 j% e" OZ#26F[#9/3.]
: ^5 D2 f5 _( ~0 ]
(甲)IF[#102EQ0.]GOTO1
6 F" Y8 k. L/ q) h(乙)IF[#102EQ#101]GOTO1
5 o+ J1 d/ \: `" J" R(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4
' r* ^, g! d, k6 d2 \
: s. A$ ~" s3 M3 y' M
  E' e0 I6 d1 t+ E  t/ aN1WHILE[#101LE#100]DO1
4 m  a# R/ H$ W( EG1X[#24+#101]F#9
7 |2 a& V' T. VY[#25+#101]
1 k+ g5 V  P( @/ dX[-#101+#24]
4 G! v8 w* {: j" MY[-#101+#25]
2 H5 G9 f3 v$ G4 I0 I" |7 FX[#24+#101]
5 s. ^8 }! H) S# SY#25
" p# m+ `' E8 o$ i# ?IF[#102EQ0.]GOTO2
#101=#101+#21
/ S5 `7 z7 B: C9 NEND1
. Y( G1 c- f7 n5 I; P6 tG0Z30.
! K4 l8 ?: G0 Y$ S* OM99

N2#27=#21(切距)
5 o5 z1 ]* U- q4 ~WHILE[#27LE#100]DO2
0 c6 j8 E$ d3 N% h2 M. n  V& aG1X[#24+#27]F#9
Y[#25+#27]
1 k, ~$ K4 \* n8 M+ mX[-#27+#24]
, M2 B3 y0 J5 Z! LY[-#27+#25]
X[#24+#27]
Y#25
: f$ H6 v* [, m* ^# T9 i27=#27+#21
! X) ]2 S! ~! E" OEND2
G0Z30.
M99

N3G1X[#24+#103]F#9
Y[#25+#103]
7 b( `& U. n$ @/ e9 @X[-#103+#24]
) \( G# ^9 q: b( F7 x: x+ TY[-#103+#25]
9 p1 S- q; k7 T% `X[#24+#103]
Y#25
& x4 c: U5 A5 @9 ]/ i
9 v$ j9 w$ O* e. H/ O7 _! x4 BN4WHILE[#102LE#100]DO3
3 E7 W. |& x# o7 xG1X[#24+#102]F#9
Y[#25+#102]
: b9 l3 V9 j6 r1 R3 P. E. F- N4 \X[-#102+#24]
# e; ]! e- J# s: SY[-#102+#25]
X[#24+#102]
Y#25
" A+ ~! T, r' B9 F# ?9 Q* G9 V#102=#102+#21
: t: F" z7 W4 q2 F8 {* S" |END3
G0Z30.
M99
%

+ M8 u9 f" J* a; k1 H以上有實際在機臺上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
$ g1 ~/ m% [; _, S. g# J我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空氣中的小魚

首先，先支持一下

空氣中的小魚

我記得應(yīng)該是2004年，我也寫過類似的程序，先去翻翻看能不能找出來。
, E6 U% G/ L* H, W* ~不過后面也如樓主，重寫了N遍，最后的最新版本給模塊化了，好像是2009年是最新版本，只寫了FANUC和TOSUNC的系統(tǒng)，主要用于模架模框區(qū)域加工，可以加二維和三維，加工類型比較多，程序能夠共用相同系統(tǒng)不同版本，具備容錯性能，人性化操作，程序必須配合機床參數(shù)方可使用，程序總共大概上W行，由于是商業(yè)話的程序，我就不貼出來了，
找個單獨簡化的貼出來看看吧，不過要先找找，不一定能夠找到。

空氣中的小魚

回復(fù) 1# 羅蓋仙
你這個適合銑平面，建議你改善為可以銑?？虻?，帶R角的
實現(xiàn)了以上，就增加做框四個面可以帶不同斜度的功能
: [! s. a' F6 j5 Q實現(xiàn)了以上，就增加加工四個面底部加工不同R底的功能（要有R底加密走刀）
實現(xiàn)了以上，就增加加工四面面頂部加工不同R底的功能（要有R底加密走刀）
9 H6 M2 T% @6 A: ~到了后面可以增加走刀模式刀路，比如，走邊，走底，插角。。。

若楓

我在聽天書，

羅蓋仙

$ d7 J5 X% {/ N! I2 a& F; c( \. Z( e
2 K' k7 g0 v  e/ e; g謝謝指點
  o3 @  r$ z7 L; h: ^我本來也想加入XY方向的預(yù)留量.精修次數(shù).精修量等等，可能還要再動腦
Z軸分層銑深的設(shè)置，想簡單的在主程序多呼叫幾次就有效果
! H: ?4 \- I# h1 ~: p$ W如：
" S0 `$ `# ^2 [' F  `G65P5X0.Y0.I30.R5.U2.Z-3.F300
& e6 C" x" |1 ^; X, FG65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
0 `# v: u: i& [; g3 A* KG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設(shè)置
7 T1 C- c% w: D" P/ I
如果最後還有內(nèi)槽的外形銑削會更好，所以我這個只是理論
# B* E1 k" q- l# b% Q2 D實際使用請當(dāng)將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,頂!!!

cadme

佩服樓主，原理看的明白，但自己一直沒有這個耐心。

羅蓋仙

回復(fù) 8# cadme

可能是你工作比較忙碌，還要加班沒多余的時間
; ^+ x4 l7 u' r- e1 Q: q( F我比較會忙裡偷閒，悠閒很快樂

lixuejin

確實看不懂 很少用宏