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

羅蓋仙

( I3 b& U4 O9 y/ c0 @, Q: l3 r小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
9 G) i/ c7 S2 q" g0 S& h/ z9 A找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看

9 G8 I" }$ e. n1 Q' T  D矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好
& ], m* J. d& F
先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
7 Z! s, [. T, Q6 `#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
+ J3 Z8 k+ m3 S# s#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)

以下兵分四路：
0 A! W# L6 z% M2 B$ p甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
% X2 [; J3 A1 h7 G5 p乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
& \$ Q. q3 h! @1 w( T圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
& t* r1 T9 J' a, ~; N* h$ l7 H) k4 q

登錄/注冊后可看大圖

登錄/注冊后可看大圖

  W+ D1 |3 f# F( x- r4 ~" i# J

) K) l' b: W! l( M- l( ]& a1 `%
* M2 }; |, _6 a( d8 r! @" `O0003(主程序)
G91G28Z0.
T1M6
G0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
Z10.
' a9 d  r0 K4 _, E" G& ^G65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
% A$ J7 Z: O& j2 [4 iG91G28Z0.Y0.
M0
%

XY工件的中心
I內槽的一半
' m2 r1 E. x7 z- q- F' m* }- ?R刀半徑
+ A, e) Z" M1 F$ M2 `U切距
. q) o9 m& v6 L5 p  c8 P/ aZ深度
2 w' I  b, o( G0 J5 k% |. m% |
% I6 M* p( F3 x2 S- z
%
O0005(副程序)
6 n6 Y/ e9 j+ U" S& Y" {/ q#100=#4-#18 (內槽-刀半徑)
#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)

G90G1X#24Y#25F[#9*5.]
3 w* r" {8 h; O4 l" I/ WZ[#26+10.]F[#9*3.]
Z#26F[#9/3.]
8 n, R' U! L. E! b) ?/ A; f
(甲)IF[#102EQ0.]GOTO1
. J" E! V6 X: w; @! s* @(乙)IF[#102EQ#101]GOTO1
: S' ]# I& U8 w( N3 k( v* ?' n(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4

- R5 q: M8 V8 u/ x) C# B
: Z: m/ _9 Z5 D: ]4 T9 v7 oN1WHILE[#101LE#100]DO1
& K# l: c* |+ K0 _G1X[#24+#101]F#9
# G- I/ ~% t- x$ x/ LY[#25+#101]
( Q+ L/ y0 Y8 Z4 F7 W  H1 w' KX[-#101+#24]
Y[-#101+#25]
" a% [, @, R1 a* g7 pX[#24+#101]
' A. s! u1 u2 U* _5 q0 [6 mY#25
/ P; m+ T- S" pIF[#102EQ0.]GOTO2
#101=#101+#21
END1
0 g, O' n3 i' Q+ G$ V; L+ eG0Z30.
M99

N2#27=#21(切距)
0 a8 }. \" `% l8 kWHILE[#27LE#100]DO2
G1X[#24+#27]F#9
  J. i& u4 ^4 w; e' NY[#25+#27]
) p( k0 e' T6 h9 J! r9 k7 PX[-#27+#24]
Y[-#27+#25]
6 a. A  ^+ o8 g# S. i5 k9 eX[#24+#27]
Y#25
27=#27+#21
END2
5 G8 Y: s/ ]: m9 s2 l4 fG0Z30.
+ E  y/ c* M% ~2 `* _( @M99
5 G8 U8 G; C# r0 ~; V' Z
9 T& z+ V* Y9 {( V9 N( o+ `  u4 EN3G1X[#24+#103]F#9
Y[#25+#103]
6 b; H( J- I" V- I/ ]( F, jX[-#103+#24]
Y[-#103+#25]
X[#24+#103]
Y#25
8 |7 X  e0 W9 V; x. h0 y0 C
( R" X* k9 `# J+ A* m* a' @, p; yN4WHILE[#102LE#100]DO3
4 U& E( W% y" R( `( d; {G1X[#24+#102]F#9
Y[#25+#102]
% m* b! _; g, C7 n3 |9 fX[-#102+#24]
Y[-#102+#25]
X[#24+#102]
" ~# H: w% W2 d8 t2 Z+ ?- ?Y#25
#102=#102+#21
5 J3 r7 S0 s5 |END3
& I0 F* C! ^3 c5 cG0Z30.
M99
# ]) O  s! }. U! ]- S: {%

6 t- K( R9 C* o4 M" ^, K# a' j( `以上有實際在機臺上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空氣中的小魚

首先，先支持一下

空氣中的小魚

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

空氣中的小魚

回復 1# 羅蓋仙
2 P6 F  ]2 v: v" d你這個適合銑平面，建議你改善為可以銑模框的，帶R角的
( t+ S! w8 R- z3 E" c! w/ @* W實現了以上，就增加做框四個面可以帶不同斜度的功能
實現了以上，就增加加工四個面底部加工不同R底的功能（要有R底加密走刀）
實現了以上，就增加加工四面面頂部加工不同R底的功能（要有R底加密走刀）
) N8 e. _# z1 r. d4 O到了后面可以增加走刀模式刀路，比如，走邊，走底，插角。。。

若楓

我在聽天書，

羅蓋仙

謝謝指點
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
/ r( K8 B7 ]/ i! [  XZ軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
- l+ d+ `# O; n; P如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
5 O/ a4 u; p( Y% W% @  H# cG65P5X0.Y0.I30.R5.U2.Z-6.F300
7 h% {# ^" Y8 r, }7 C5 n! YG65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設置

2 c% b0 z! H& p# L( U如果最後還有內槽的外形銑削會更好，所以我這個只是理論
實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,頂!!!

cadme

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

羅蓋仙

回復 8# cadme

7 t5 d$ W+ t$ z6 T  Q1 a可能是你工作比較忙碌，還要加班沒多余的時間
9 O7 H# Y3 y! @我比較會忙裡偷閒，悠閒很快樂

lixuejin

確實看不懂 很少用宏