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

羅蓋仙

: l% z$ M* P8 l2 w小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數(shù)程序，結(jié)果發(fā)現(xiàn)我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發(fā)現(xiàn)CAM的平行環(huán)切很有規(guī)律我去研究了，於是著筆寫寫看
1 e2 k: _5 w) t8 ~# A# ~2 J, ~" h
矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網(wǎng)友易懂，長方形原理也一樣我有私自寫好
! a  X) r- v$ l  G5 {
先說明一下CAM挖槽(平行環(huán)切)的計算規(guī)則：
; _3 v) N* Q* e取內(nèi)槽的一半為#4，假設(shè)槽單邊長為60mm，半內(nèi)槽Ｉ為30.
U(#21)為切距.步距
9 B* F6 U* C* c4 Q# O! r#100=#4-#18 (內(nèi)槽－刀半徑)
! N! e& g# a5 p" N$ ~' ?% O#101=#21/2. (切距的一半，準備用余數(shù)與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數(shù))
4 S( }1 ~. W0 Z% q' b- `#103=#102-#101(如果余數(shù)大于切距的一半，將會使用到他)

8 |. S0 x/ t1 Q- d% P以下兵分四路：
甲.IF余數(shù)EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數(shù)EQ#101 (切距的一半)：先做#101，然後用#21加到底
" B+ d8 v! e; W& q, @丙.IF余數(shù)GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數(shù)LT#101. ：先做#102，再用#21加到底
( G* J  b& |3 d1 z- n9 n圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
3 ^8 l, }( I- M1 X0 N7 F1 L

登錄/注冊后可看大圖

  V& |: v  d6 L# w' Y2 w

登錄/注冊后可看大圖

7 {5 \3 o1 X& N, U" Y  O; b
9 e8 K8 l& B9 ^
%
O0003(主程序)
0 z+ \+ d+ Q# t& v$ S, ]; qG91G28Z0.
T1M6
G0G54G90G94G17X0.Y0.
) k! H2 l9 r% q# F7 A, a  h/ E( GG43H1Z100.S1000M3
Z10.
* h- x/ H& k6 _3 {G65P5X0.Y0.I30.R5.U2.Z-2.F800
: L( f& O# @7 Z0 ~% P" |G0Z200.
G91G28Z0.Y0.
+ D! W0 y% S, z" qM0
%

XY工件的中心
* w' a# ^, Q0 W. h' `- tI內(nèi)槽的一半
0 }( z6 |" q: y) x& T/ xR刀半徑
2 S: \; P. d( G- }6 Z# a/ H( DU切距
' L/ p& K2 h: X: ]Z深度

2 L# ?, p7 e6 q$ T3 s8 \: H! t8 U
%
6 \) `2 z  }  ]* e5 z: [. gO0005(副程序)
# H0 U9 b6 f7 E4 ~; n: k2 M#100=#4-#18 (內(nèi)槽-刀半徑)
) I' q) X+ {" F: ]* W% d+ X#101=[#21*.5] (切距的一半)
9 [* q5 \; v. J6 y7 e0 ]# l7 b) n2 i#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數(shù))
9 H* n7 S4 j2 x6 H#103=#102-#101 (餘數(shù)-切距的1/2)

$ s& F0 U2 I! q) ^8 m( z/ kG90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
Z#26F[#9/3.]
% V, y2 G6 Y- F9 z' q/ h7 }
(甲)IF[#102EQ0.]GOTO1
/ G3 u+ v; ^0 _( b& O, U" r6 f% |(乙)IF[#102EQ#101]GOTO1
6 b( t3 z) Z- |9 S* v4 W$ R5 H7 I(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4
& ]. I3 h' T9 O

; Q1 K4 e" T5 ]N1WHILE[#101LE#100]DO1
8 Q- V3 ?+ ~! U# |" Q, W6 OG1X[#24+#101]F#9
Y[#25+#101]
X[-#101+#24]
Y[-#101+#25]
6 Y6 ?, X' d4 c% Q' `& l7 _X[#24+#101]
. H) `/ f) R1 r( T' q0 v* ?$ NY#25
0 E/ o+ h6 W4 FIF[#102EQ0.]GOTO2
#101=#101+#21
, Q0 h% C# s8 |END1
' s0 f/ G2 {; J3 jG0Z30.
, A6 T/ w0 R: q2 n/ ?3 V3 D- T: hM99

N2#27=#21(切距)
. W9 e; C- ], L, `! u2 i1 SWHILE[#27LE#100]DO2
+ h2 [9 G7 L# O+ O: ]! q$ `$ v6 `! xG1X[#24+#27]F#9
Y[#25+#27]
X[-#27+#24]
Y[-#27+#25]
$ Y2 u9 Y0 ]3 `9 n" X) k% v: MX[#24+#27]
Y#25
27=#27+#21
" U" |! o5 }( V  b0 d" VEND2
: C; A0 c( ?, |, Z( o' vG0Z30.
" [2 s# Q' V5 f4 [' @0 FM99
( T1 O/ `8 A# Y  j6 N- g* t
5 h9 ]* f8 p7 u8 mN3G1X[#24+#103]F#9
Y[#25+#103]
X[-#103+#24]
Y[-#103+#25]
  `5 L0 k* ^  M3 TX[#24+#103]
Y#25
; D. d# H* K5 V! R  r
N4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
Y[#25+#102]
1 p+ X) J( }( E5 ]( [5 {X[-#102+#24]
; l6 i* u/ Y" q5 |/ ?, C9 MY[-#102+#25]
. V: I- L4 z+ Y9 X9 JX[#24+#102]
9 L/ {, e( G* ?0 ?% B8 t+ LY#25
#102=#102+#21
END3
G0Z30.
M99
%
: p  e5 [6 _9 h  M, ^
/ Y$ r6 ]' H) j/ [5 A  a1 b' v以上有實際在機臺上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空氣中的小魚

首先，先支持一下

空氣中的小魚

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

空氣中的小魚

回復(fù) 1# 羅蓋仙
# u# d. j1 t& L你這個適合銑平面，建議你改善為可以銑模框的，帶R角的
實現(xiàn)了以上，就增加做框四個面可以帶不同斜度的功能
( C# C. p% N+ g9 q3 H. J5 O實現(xiàn)了以上，就增加加工四個面底部加工不同R底的功能（要有R底加密走刀）
+ R" x$ p9 y" Z9 b; e實現(xiàn)了以上，就增加加工四面面頂部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走邊，走底，插角。。。

若楓

我在聽天書，

羅蓋仙

+ w: e& ]% i9 b7 L+ e
9 ?1 ~& I- t% K  t謝謝指點
/ d5 P$ B$ `4 c4 g8 l, L我本來也想加入XY方向的預(yù)留量.精修次數(shù).精修量等等，可能還要再動腦
Z軸分層銑深的設(shè)置，想簡單的在主程序多呼叫幾次就有效果
& H3 M7 r8 |. @; K0 n. @! v如：
3 @7 B3 u7 e5 a- f8 z( i: AG65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
, i/ k3 I. I1 V8 ~G65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
, ~( n% q% w5 |% W9 M( K" D以上為基本.簡單的設(shè)置
0 @' W  T  D  a- o
如果最後還有內(nèi)槽的外形銑削會更好，所以我這個只是理論
實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,頂!!!

cadme

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

羅蓋仙

回復(fù) 8# cadme
$ _, k0 c. [' t2 d* @5 n
. D, s% C$ T8 x可能是你工作比較忙碌，還要加班沒多余的時間
我比較會忙裡偷閒，悠閒很快樂

lixuejin

確實看不懂 很少用宏