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

羅蓋仙

4 a) X5 J' u# V& p1 c2 Y
& H! D: P( E3 K+ g( w小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數(shù)程序，結(jié)果發(fā)現(xiàn)我對CAM軟體沒有太大的興趣，
找不到目標(biāo)寫，邊玩CAM軟體發(fā)現(xiàn)CAM的平行環(huán)切很有規(guī)律我去研究了，於是著筆寫寫看
7 c, c* l; g% U0 f3 p1 ~
) E: J8 M# c) b0 P1 {# c! {7 |矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網(wǎng)友易懂，長方形原理也一樣我有私自寫好

' L9 z2 E* L$ }5 A先說明一下CAM挖槽(平行環(huán)切)的計(jì)算規(guī)則：
7 C0 h" |; z) ~2 K  R2 \取內(nèi)槽的一半為#4，假設(shè)槽單邊長為60mm，半內(nèi)槽Ｉ為30.
8 ^' T( p, t4 y% M: rU(#21)為切距.步距
#100=#4-#18 (內(nèi)槽－刀半徑)
8 `; p' }" E$ u# z( z# ^" m#101=#21/2. (切距的一半，準(zhǔn)備用余數(shù)與#101做對比的分界)
: n1 D& Q$ x8 j#102=[#100/#21-FIX[#100/#21]]*#21 (取余數(shù))
- r# |* l2 G, c8 |0 F  q#103=#102-#101(如果余數(shù)大于切距的一半，將會使用到他)

  u1 I: `4 y' @  T0 _: X; o以下兵分四路：
7 L9 g5 F2 @8 H! `甲.IF余數(shù)EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
7 m. _( t6 }" j1 g6 F% j乙.IF余數(shù)EQ#101 (切距的一半)：先做#101，然後用#21加到底
5 d0 j) Y$ q* j: f, I- ^丙.IF余數(shù)GT#101. ：先做#103，再做#102，然後用#21加到底
, ?7 a$ q6 w& u4 T$ k2 \# e丁.IF余數(shù)LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實(shí)都一樣
9 {$ T9 y4 u/ b/ |9 s

登錄/注冊后可看大圖

# T8 t5 M( s5 i$ u5 Y' r

登錄/注冊后可看大圖

4 E6 o( N4 |, Y3 {; Q; [
%
, S4 B( ~& K# n. d; JO0003(主程序)
G91G28Z0.
T1M6
/ K( L5 k6 u) O# ~; j. _G0G54G90G94G17X0.Y0.
  i$ o1 \! E3 k7 w2 HG43H1Z100.S1000M3
0 E9 p4 V1 _, y7 `/ \! \. A/ u. {Z10.
! e1 u$ \9 {; M' FG65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
G91G28Z0.Y0.
! m! D8 h/ e' p, X% aM0
" I" c$ ^0 V8 r( ?! u/ K%

+ j% T# W8 f( a. F; E6 Y. hXY工件的中心
6 r0 L$ e3 `% d3 M1 R: O5 sI內(nèi)槽的一半
R刀半徑
U切距
Z深度
* b) C0 @; ^: Y& I$ n1 r" H
0 A# a* ~1 B3 P
3 v% c) w+ z4 J7 {%
O0005(副程序)
#100=#4-#18 (內(nèi)槽-刀半徑)
6 F" U5 r" H: `8 z+ {/ W#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數(shù))
#103=#102-#101 (餘數(shù)-切距的1/2)

# x3 m1 ^  q* q2 S& K7 m0 eG90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
8 D: \2 G# O) A$ }+ u* }; m6 wZ#26F[#9/3.]

  j% U5 o9 G$ O" u2 _/ b8 e" F" A) L, c(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
+ G  K8 `. n. e, t: r. B(丙)IF[#102GT#101]GOTO3
! _- S- |; e" D4 W" J(丁)IF[#102LT#101]GOTO4
& `8 ]$ ]# e' S: i2 G: @3 S6 C
- U- `+ B, _% H2 S
N1WHILE[#101LE#100]DO1
0 i9 m6 p, ]' O% S; gG1X[#24+#101]F#9
Y[#25+#101]
X[-#101+#24]
Y[-#101+#25]
1 E( M8 f, Q# g  N9 yX[#24+#101]
Y#25
IF[#102EQ0.]GOTO2
#101=#101+#21
END1
G0Z30.
4 ]. ^9 v2 p: |( \M99
4 T- j# I' p: s) u3 `
8 A2 y: T  E9 D) Z3 w9 b( ?) c0 d( M8 vN2#27=#21(切距)
WHILE[#27LE#100]DO2
G1X[#24+#27]F#9
Y[#25+#27]
X[-#27+#24]
Y[-#27+#25]
; w. f/ @$ ^0 h- O4 x! b( Q9 b" D9 aX[#24+#27]
8 J8 Y( J+ X* O! o( h8 kY#25
; Y- c% n$ f+ v' Y: _27=#27+#21
END2
( C+ g0 W( x2 B5 o# j; t0 Q* b0 KG0Z30.
M99
0 g$ L# T$ |) p, b# I& x! L! ~$ e- A
! Y5 S4 h3 L- `& z8 ?0 P& B, gN3G1X[#24+#103]F#9
Y[#25+#103]
$ b  {8 z& I8 p2 }5 L2 B; {8 vX[-#103+#24]
" O2 A& J0 `/ R0 ?2 @2 d8 `: _Y[-#103+#25]
X[#24+#103]
/ O) }( S, {" J3 ]Y#25

N4WHILE[#102LE#100]DO3
' g& a3 C/ X1 d* M/ jG1X[#24+#102]F#9
Y[#25+#102]
X[-#102+#24]
Y[-#102+#25]
X[#24+#102]
9 w0 T/ o  z; `; vY#25
/ ?1 e" F" ]+ C$ A4 e; g#102=#102+#21
: r) c& P& f! r0 hEND3
G0Z30.
M99
%

: z& z, X9 \" s  J$ \* }8 F以上有實(shí)際在機(jī)臺上空跑運(yùn)行過，程序有點(diǎn)長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點(diǎn)
我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空氣中的小魚

首先，先支持一下

空氣中的小魚

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

空氣中的小魚

回復(fù) 1# 羅蓋仙
' a$ ?3 y( h& ~0 H6 E你這個適合銑平面，建議你改善為可以銑模框的，帶R角的
實(shí)現(xiàn)了以上，就增加做框四個面可以帶不同斜度的功能
實(shí)現(xiàn)了以上，就增加加工四個面底部加工不同R底的功能（要有R底加密走刀）
實(shí)現(xiàn)了以上，就增加加工四面面頂部加工不同R底的功能（要有R底加密走刀）
2 ?- m$ Z1 Z& ~; J& t/ z" e到了后面可以增加走刀模式刀路，比如，走邊，走底，插角。。。

若楓

我在聽天書，

羅蓋仙

/ N- @/ ]4 f/ g3 x0 M
6 c( v$ |+ ^, |謝謝指點(diǎn)
# q" s* Y! [* }" K9 ~; ?& Y1 r7 M* \我本來也想加入XY方向的預(yù)留量.精修次數(shù).精修量等等，可能還要再動腦
Z軸分層銑深的設(shè)置，想簡單的在主程序多呼叫幾次就有效果
& F  p/ B( i6 O! I如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
* X) p) Q: Y2 a3 {0 U% h1 mG65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
9 L! [" o8 b; v$ I7 V( |& ?G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
" [) T6 a& W! E6 i2 S$ n以上為基本.簡單的設(shè)置

如果最後還有內(nèi)槽的外形銑削會更好，所以我這個只是理論
1 J1 ^- u; M6 q+ q實(shí)際使用請當(dāng)將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,頂!!!

cadme

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

羅蓋仙

回復(fù) 8# cadme
1 ^$ l8 j3 A% _) b
可能是你工作比較忙碌，還要加班沒多余的時間
* e( G) ~& v0 J3 [1 K4 ]我比較會忙裡偷閒，悠閒很快樂

lixuejin

確實(shí)看不懂 很少用宏