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

羅蓋仙

小弟兩多年前寫的，那時(shí)剛開始被老師教會(huì)使用CAM軟體與變數(shù)程序，結(jié)果發(fā)現(xiàn)我對(duì)CAM軟體沒有太大的興趣，
( h% m+ t& t% ^/ |" D找不到目標(biāo)寫，邊玩CAM軟體發(fā)現(xiàn)CAM的平行環(huán)切很有規(guī)律我去研究了，於是著筆寫寫看
: C0 B: X9 l1 y  d6 F, M2 _
5 i' b' c+ P/ l& @矩形槽(長(zhǎng)方形)還不適用，我這個(gè)程序只針對(duì)正方形槽，這樣比較單純讓網(wǎng)友易懂，長(zhǎng)方形原理也一樣我有私自寫好

先說明一下CAM挖槽(平行環(huán)切)的計(jì)算規(guī)則：
6 R  D- o1 b* @$ N1 A取內(nèi)槽的一半為#4，假設(shè)槽單邊長(zhǎng)為60mm，半內(nèi)槽Ｉ為30.
; x! z7 ^8 g/ w* Q- NU(#21)為切距.步距
! ~" c2 w4 n% G* {0 z3 S#100=#4-#18 (內(nèi)槽－刀半徑)
7 P6 }3 O5 P  q; ]; {$ @9 C' F#101=#21/2. (切距的一半，準(zhǔn)備用余數(shù)與#101做對(duì)比的分界)
& w6 U. A! G$ M+ D1 s, f#102=[#100/#21-FIX[#100/#21]]*#21 (取余數(shù))
#103=#102-#101(如果余數(shù)大于切距的一半，將會(huì)使用到他)

& D! M# J) H1 }$ a: H以下兵分四路：
# U* k$ _# G( f  _甲.IF余數(shù)EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
9 T) I' w' z, y乙.IF余數(shù)EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數(shù)GT#101. ：先做#103，再做#102，然後用#21加到底
5 p; y! }# J+ c丁.IF余數(shù)LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實(shí)都一樣

登錄/注冊(cè)后可看大圖

登錄/注冊(cè)后可看大圖

%
O0003(主程序)
G91G28Z0.
7 H6 {0 s$ G- R+ N. KT1M6
G0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
$ x( D0 n" q% `8 n6 g4 F+ sZ10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
6 g. e% O9 J/ O3 r4 U" f1 VG91G28Z0.Y0.
M0
3 z/ ]5 O/ R# a# X" C%
/ d7 b  U8 v! H0 M5 t: |
/ C5 _" [. g2 |9 z; ^; yXY工件的中心
I內(nèi)槽的一半
4 F2 o% s/ y5 ?, Q0 MR刀半徑
) Q1 Y  ~" ]1 a% Q# A6 [/ }U切距
Z深度

4 e6 j4 j; v  p) q+ G
%
0 C6 h; k  q2 G* z/ e# h- ~O0005(副程序)
1 G  j( b2 A& ^7 G$ Z#100=#4-#18 (內(nèi)槽-刀半徑)
: A: ?0 v* S) T  |#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數(shù))
#103=#102-#101 (餘數(shù)-切距的1/2)

G90G1X#24Y#25F[#9*5.]
$ Y9 G9 }; b0 ^+ wZ[#26+10.]F[#9*3.]
Z#26F[#9/3.]

* }' H: g9 Y+ U(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
1 C# d2 b2 E! m1 v(丙)IF[#102GT#101]GOTO3
$ U. E! i( L/ G* h9 E(丁)IF[#102LT#101]GOTO4
' n- X. c9 h4 M2 ^
, q: {4 G3 I9 P' G8 u# W6 i
: @" z1 ]+ b% {N1WHILE[#101LE#100]DO1
3 \5 K/ @6 d- n  i6 g* gG1X[#24+#101]F#9
Y[#25+#101]
: Y/ g% D+ i5 kX[-#101+#24]
Y[-#101+#25]
( S! F! C( D2 J) v! g6 h' IX[#24+#101]
1 Z3 i; R/ u7 g$ P# J3 p: OY#25
IF[#102EQ0.]GOTO2
# |7 Z+ W  l3 t2 L5 b: Y& z; Q#101=#101+#21
: M+ D8 Q# L/ B" ?END1
9 b" ~- T3 V( LG0Z30.
, a1 |: D& Z/ M1 j( ^* jM99

: o  M4 V1 p, b. oN2#27=#21(切距)
" P: [. j# U0 |WHILE[#27LE#100]DO2
1 ]9 i: T- ]* k" D! q2 c; W- \G1X[#24+#27]F#9
Y[#25+#27]
X[-#27+#24]
2 q1 |. Z$ f7 Q: ?Y[-#27+#25]
9 f7 F( H0 l5 r. C% I; ~0 S: _X[#24+#27]
Y#25
27=#27+#21
END2
G0Z30.
M99
) {# J0 y4 R, ^. Y! N4 D( h
& a3 J! Z! H9 d# AN3G1X[#24+#103]F#9
: Y9 [* h) \- n# x7 g/ ^: b6 P" d" dY[#25+#103]
X[-#103+#24]
Y[-#103+#25]
3 l7 W8 g! q3 ~! [2 u9 ^; ~- PX[#24+#103]
Y#25

( z& p. e! @4 |N4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
6 U- A3 x0 i: f  a) DY[#25+#102]
X[-#102+#24]
6 A8 e) |  h: A3 r) c' m1 OY[-#102+#25]
X[#24+#102]
Y#25
3 B8 F3 B& _5 C( n" Q  Q4 G#102=#102+#21
2 A5 J6 P& A# v2 X- z! i0 ~0 v+ iEND3
G0Z30.
M99
' a) l- q; H0 j7 [%

以上有實(shí)際在機(jī)臺(tái)上空跑運(yùn)行過，程序有點(diǎn)長(zhǎng)，自己有改良成最精簡(jiǎn)的，如果有高手以原則不變把我的程序簡(jiǎn)化者，請(qǐng)指點(diǎn)
9 z9 s7 `! Y$ d6 f0 n4 U" B7 {我想用我的我私下的簡(jiǎn)化版(那一套我改的很有信心)與您對(duì)照，我上傳的這一套還有很大的改良空間

空氣中的小魚

首先，先支持一下

空氣中的小魚

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

空氣中的小魚

回復(fù) 1# 羅蓋仙
6 u1 z8 J- k, L- V1 Q你這個(gè)適合銑平面，建議你改善為可以銑模框的，帶R角的
& s5 d* y  j. `實(shí)現(xiàn)了以上，就增加做框四個(gè)面可以帶不同斜度的功能
實(shí)現(xiàn)了以上，就增加加工四個(gè)面底部加工不同R底的功能（要有R底加密走刀）
1 i8 C# j5 s& J/ M實(shí)現(xiàn)了以上，就增加加工四面面頂部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走邊，走底，插角。。。

若楓

我在聽天書，

羅蓋仙

謝謝指點(diǎn)
我本來也想加入XY方向的預(yù)留量.精修次數(shù).精修量等等，可能還要再動(dòng)腦
Z軸分層銑深的設(shè)置，想簡(jiǎn)單的在主程序多呼叫幾次就有效果
如：
1 @  v: _1 m2 ?G65P5X0.Y0.I30.R5.U2.Z-3.F300
( w0 u# v% H1 n! F  f1 ~G65P5X0.Y0.I30.R5.U2.Z-6.F300
4 S4 @6 ]* m# g7 m) @9 fG65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
1 D: J0 Z1 ^) E- p- e以上為基本.簡(jiǎn)單的設(shè)置
  q+ s3 e# M1 C, e/ G
- ^- c' K. q0 f4 {4 g如果最後還有內(nèi)槽的外形銑削會(huì)更好，所以我這個(gè)只是理論
實(shí)際使用請(qǐng)當(dāng)將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,頂!!!

cadme

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

羅蓋仙

回復(fù) 8# cadme
6 }- ]1 M8 o8 J; ~- _' p/ A
可能是你工作比較忙碌，還要加班沒多余的時(shí)間
我比較會(huì)忙裡偷閒，悠閒很快樂

lixuejin

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