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

羅蓋仙

, O+ x) M; F( V, V5 p
小弟兩多年前寫的，那時(shí)剛開(kāi)始被老師教會(huì)使用CAM軟體與變數(shù)程序，結(jié)果發(fā)現(xiàn)我對(duì)CAM軟體沒(méi)有太大的興趣，
找不到目標(biāo)寫，邊玩CAM軟體發(fā)現(xiàn)CAM的平行環(huán)切很有規(guī)律我去研究了，於是著筆寫寫看

矩形槽(長(zhǎng)方形)還不適用，我這個(gè)程序只針對(duì)正方形槽，這樣比較單純讓網(wǎng)友易懂，長(zhǎng)方形原理也一樣我有私自寫好

先說(shuō)明一下CAM挖槽(平行環(huán)切)的計(jì)算規(guī)則：
取內(nèi)槽的一半為#4，假設(shè)槽單邊長(zhǎng)為60mm，半內(nèi)槽Ｉ為30.
U(#21)為切距.步距
#100=#4-#18 (內(nèi)槽－刀半徑)
#101=#21/2. (切距的一半，準(zhǔn)備用余數(shù)與#101做對(duì)比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數(shù))
- @" V$ C$ Z* |4 O#103=#102-#101(如果余數(shù)大于切距的一半，將會(huì)使用到他)
4 \% O, U% d, {( n* C* Z. \. X
) @+ k8 c) h( ?$ R! C+ N以下兵分四路：
0 D4 R" i/ J* D4 {甲.IF余數(shù)EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
' w# |: y: F* [& p, l. E& z乙.IF余數(shù)EQ#101 (切距的一半)：先做#101，然後用#21加到底
4 x  v0 a' ]- G" P" K2 w, N2 C2 d丙.IF余數(shù)GT#101. ：先做#103，再做#102，然後用#21加到底
* b; U2 W7 m1 g' ~丁.IF余數(shù)LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實(shí)都一樣

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

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

( S1 n' ^& B' r' G6 [4 F% M

%
O0003(主程序)
4 v4 o$ i  {- }( g1 K, ?  {6 n& vG91G28Z0.
  p( l- h: G9 O  `4 a9 `; AT1M6
G0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
/ B  L( c' c$ d9 T0 nZ10.
7 @: B- s+ _; D; {" N9 ?G65P5X0.Y0.I30.R5.U2.Z-2.F800
2 t" A: p* C6 f" ZG0Z200.
& K. w! q; ^, \6 ]+ e. [0 j% JG91G28Z0.Y0.
/ Y' r7 U; W& r% x5 c0 lM0
  u# T. }/ E! V8 e) N%

/ R! P' G* r! ~2 D$ T3 F" v, NXY工件的中心
2 v! ~6 Y" j. r9 W+ M, D7 sI內(nèi)槽的一半
R刀半徑
2 V3 \( Q  A& M4 G. Z/ t; CU切距
Z深度

+ y3 x5 O; @' l" l2 C9 u3 {7 p
9 a1 J3 d- C$ I; d: M  L%
9 E* _+ m7 L! i( \* U0 S0 ZO0005(副程序)
  b: m- T& g; G) s#100=#4-#18 (內(nèi)槽-刀半徑)
#101=[#21*.5] (切距的一半)
! P7 `$ k$ U  B#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數(shù))
" j2 l% c" m9 h- D3 l: g! s* B#103=#102-#101 (餘數(shù)-切距的1/2)

5 C* H' p$ w: lG90G1X#24Y#25F[#9*5.]
3 s/ ~7 Z; Y" p. q, v* oZ[#26+10.]F[#9*3.]
Z#26F[#9/3.]

0 Y5 q8 {% n7 U+ F(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
" z$ [2 H. _3 ?5 m' N7 O9 m(丁)IF[#102LT#101]GOTO4


( q) _  q6 d& Y, S5 {- ]# P  a7 zN1WHILE[#101LE#100]DO1
( V5 o9 e, H( t4 s* w# l7 {/ [3 qG1X[#24+#101]F#9
7 _' ~8 V2 J( v) NY[#25+#101]
X[-#101+#24]
Y[-#101+#25]
+ O5 {0 n( S1 SX[#24+#101]
; ^# N: U" H- a' s" C7 d5 \6 HY#25
IF[#102EQ0.]GOTO2
#101=#101+#21
END1
6 s  \5 B( T$ m- [0 f# KG0Z30.
M99
, L4 l+ e! M) r& x2 [
N2#27=#21(切距)
$ ]( E$ Q" [4 U4 a# }1 oWHILE[#27LE#100]DO2
8 V% E, Y! r7 E8 o* ~G1X[#24+#27]F#9
Y[#25+#27]
X[-#27+#24]
) d) }* I0 V! a- A# A$ B3 s  |* f7 XY[-#27+#25]
; H* J& W8 U$ D/ I" @. c: Q- sX[#24+#27]
1 [# p, L) ~& D0 K5 mY#25
27=#27+#21
, i& |' e) @: `END2
G0Z30.
* T9 o/ `) x  g0 N+ s$ QM99

N3G1X[#24+#103]F#9
Y[#25+#103]
X[-#103+#24]
: `- g2 ]& ~" c3 fY[-#103+#25]
9 F# w. d8 `# a( r* Q) W& j, IX[#24+#103]
/ ]. C) w: K; O" s1 ZY#25
7 l+ h4 b! F1 x) ~6 l
N4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
Y[#25+#102]
X[-#102+#24]
) s9 J# V& D) dY[-#102+#25]
8 }& j- L/ |$ `9 L$ y) J2 U; R# {X[#24+#102]
' A8 X4 ]. I0 g) p/ FY#25
1 O) h5 n* N! ~, L9 @#102=#102+#21
END3
+ j4 n! k' w3 X2 |$ G6 O( VG0Z30.
; a$ ^) J1 h; F2 Z0 {- zM99
8 \. k/ ^8 T2 f2 {%
) |) k( z9 \8 K2 `+ N
" o  A7 V* J" j/ @! A以上有實(shí)際在機(jī)臺(tái)上空跑運(yùn)行過(guò)，程序有點(diǎn)長(zhǎng)，自己有改良成最精簡(jiǎn)的，如果有高手以原則不變把我的程序簡(jiǎn)化者，請(qǐng)指點(diǎn)
) U/ D  F, x5 u" L, m我想用我的我私下的簡(jiǎn)化版(那一套我改的很有信心)與您對(duì)照，我上傳的這一套還有很大的改良空間

空氣中的小魚

首先，先支持一下

空氣中的小魚

我記得應(yīng)該是2004年，我也寫過(guò)類似的程序，先去翻翻看能不能找出來(lái)。
; Z" \6 n( n4 R) ^  ?$ w4 V不過(guò)后面也如樓主，重寫了N遍，最后的最新版本給模塊化了，好像是2009年是最新版本，只寫了FANUC和TOSUNC的系統(tǒng)，主要用于模架模框區(qū)域加工，可以加二維和三維，加工類型比較多，程序能夠共用相同系統(tǒng)不同版本，具備容錯(cuò)性能，人性化操作，程序必須配合機(jī)床參數(shù)方可使用，程序總共大概上W行，由于是商業(yè)話的程序，我就不貼出來(lái)了，
, }+ X+ X- J! C; o1 e5 u找個(gè)單獨(dú)簡(jiǎn)化的貼出來(lái)看看吧，不過(guò)要先找找，不一定能夠找到。

空氣中的小魚

回復(fù) 1# 羅蓋仙
* |! M2 C; L: [% a( t% b% B# |+ J1 v" U你這個(gè)適合銑平面，建議你改善為可以銑模框的，帶R角的
實(shí)現(xiàn)了以上，就增加做框四個(gè)面可以帶不同斜度的功能
5 P; I2 ^( `" P! S實(shí)現(xiàn)了以上，就增加加工四個(gè)面底部加工不同R底的功能（要有R底加密走刀）
0 b4 a/ ~% I6 j8 h; l) s. M* H實(shí)現(xiàn)了以上，就增加加工四面面頂部加工不同R底的功能（要有R底加密走刀）
- O: X% a9 o' h9 B: H% G. C* D' h到了后面可以增加走刀模式刀路，比如，走邊，走底，插角。。。

若楓

我在聽(tīng)天書，

羅蓋仙

0 z' Z4 v2 b- E( w+ [
: {7 s% p4 j. @, n謝謝指點(diǎn)
我本來(lái)也想加入XY方向的預(yù)留量.精修次數(shù).精修量等等，可能還要再動(dòng)腦
Z軸分層銑深的設(shè)置，想簡(jiǎn)單的在主程序多呼叫幾次就有效果
如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
! Z3 G- l# [& S- IG65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
7 @: o" I9 A7 F9 r5 x, w2 `# {* A以上為基本.簡(jiǎn)單的設(shè)置

8 n# b+ q8 i1 U) P- D$ _2 F1 V/ z如果最後還有內(nèi)槽的外形銑削會(huì)更好，所以我這個(gè)只是理論
7 \6 c+ }* i% d/ C1 S& v- T+ `實(shí)際使用請(qǐng)當(dāng)將就用，還是可以用，沒(méi)那麼多功能

xinxuan110

高手啊,頂!!!

cadme

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

羅蓋仙

回復(fù) 8# cadme
- p+ P& K1 e" }/ O6 m5 k0 @
* {+ |) D- C) D  }$ C- X4 K! {, `可能是你工作比較忙碌，還要加班沒(méi)多余的時(shí)間
我比較會(huì)忙裡偷閒，悠閒很快樂(lè)

lixuejin

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