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

羅蓋仙

: d" T6 R1 _0 _0 P
4 B2 O6 E) G1 m! o! A. r7 Y' I  H小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
0 ~* l" h% y* H* P找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
5 q% O7 X( a! K# ~! l2 ?& ~# e6 n
6 n  Y) B3 D  P0 O矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

! m* J/ V8 }" j; f/ [- h5 I先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
# @0 G! y7 t5 b3 D; Y1 LU(#21)為切距.步距
8 n, W8 M& N8 s. J* ?#100=#4-#18 (內槽－刀半徑)
8 E# s; K0 A( x$ d# c& U- j! k* B) W#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)

+ k: D/ t5 _, g. j( l8 h/ X( E  `" D以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
  \2 L: G' j, ~) a乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
4 E; p) k# _7 W) |& p4 H丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
" p; G4 l5 M5 v  Y1 d  }" s8 q: n9 H# y丁.IF余數LT#101. ：先做#102，再用#21加到底
/ s8 _' I& h% u" a: Q圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣

" {7 D  J- \3 v4 |; k1 r
% O+ X3 x) y3 W, C- }
+ l+ i+ h8 h  p  E
%
' t$ p7 Q+ r5 G- T5 mO0003(主程序)
G91G28Z0.
" L4 C& P# W2 E9 JT1M6
G0G54G90G94G17X0.Y0.
: n" c' F1 A" w: C, i0 K1 ]G43H1Z100.S1000M3
Z10.
" V2 f/ X6 p1 D) [G65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
5 N. d4 h# E: X! T* X7 \- n6 AG91G28Z0.Y0.
M0
%

XY工件的中心
I內槽的一半
R刀半徑
U切距
Z深度


%
6 N- h; |" H+ L6 u  G( X' KO0005(副程序)
#100=#4-#18 (內槽-刀半徑)
. ]% m, q( W+ K/ K1 l#101=[#21*.5] (切距的一半)
. r4 e! U- t  W0 k" Z1 L#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
* g+ o/ p3 H5 I#103=#102-#101 (餘數-切距的1/2)

G90G1X#24Y#25F[#9*5.]
* }) S8 A( H- V, S$ c* z* d  lZ[#26+10.]F[#9*3.]
" B1 m* _( d: w6 E! B  YZ#26F[#9/3.]

(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4
. ^  |' b8 c1 p- x" u- e

N1WHILE[#101LE#100]DO1
- ~7 L. G% |2 aG1X[#24+#101]F#9
) E. g9 W6 {- O+ |Y[#25+#101]
$ ^" m# `9 ?) p; N/ v% t6 i' T; P! lX[-#101+#24]
Y[-#101+#25]
X[#24+#101]
) |" u; R$ E3 CY#25
" k7 D" G; u* r( R4 F9 ?IF[#102EQ0.]GOTO2
#101=#101+#21
& q" d1 p  n7 ?' q/ ?+ WEND1
G0Z30.
M99

% b4 J' r" b9 Z6 v/ x- a! v& YN2#27=#21(切距)
WHILE[#27LE#100]DO2
G1X[#24+#27]F#9
4 i9 P* I2 c1 F2 Q* LY[#25+#27]
X[-#27+#24]
" n4 @* c3 K1 d& fY[-#27+#25]
X[#24+#27]
/ q2 l8 |/ W. u* OY#25
27=#27+#21
* g* E9 n) X/ [- m+ f1 LEND2
G0Z30.
M99

N3G1X[#24+#103]F#9
, w3 n' }+ B' ?# K/ NY[#25+#103]
9 N' B% h( ?* v. ]' m; L2 iX[-#103+#24]
Y[-#103+#25]
8 U" l; u3 j' y/ WX[#24+#103]
/ a4 Y1 ^5 q$ A2 I1 EY#25

N4WHILE[#102LE#100]DO3
8 R6 c# H9 U/ _G1X[#24+#102]F#9
6 H0 D- I2 k1 Q2 C% AY[#25+#102]
X[-#102+#24]
* Z1 v$ d) k& @5 ]. s- x. S- ~Y[-#102+#25]
X[#24+#102]
Y#25
" r; |, k4 A% C: y0 g#102=#102+#21
5 z- T0 Y+ |" b' f2 F3 R: K0 @; ]& iEND3
1 }& E5 D  g) G; D) W) p, jG0Z30.
M99
9 w( _: l. w1 i1 e%

以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

我记得应该是2004年，我也写过类似的程序，先去翻翻看能不能找出来。
不过后面也如楼主，重写了N遍，最后的最新版本给模块化了，好像是2009年是最新版本，只写了FANUC和TOSUNC的系统，主要用于模架模框区域加工，可以加二维和三维，加工类型比较多，程序能够共用相同系统不同版本，具备容错性能，人性化操作，程序必须配合机床参数方可使用，程序总共大概上W行，由于是商业话的程序，我就不贴出来了，
3 W* @, `* F1 A找个单独简化的贴出来看看吧，不过要先找找，不一定能够找到。

空气中的小鱼

回复 1# 羅蓋仙
3 {3 F% Y8 `4 ^% x你这个适合铣平面，建议你改善为可以铣模框的，带R角的
# C6 Q: I6 w, j% Q实现了以上，就增加做框四个面可以带不同斜度的功能
, S/ K7 h6 ]% N* |8 x实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
* P, {5 ?5 ?5 }; M, U! T实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
' k" p/ P& [2 P6 u" [2 V到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

$ m1 h( J3 P0 M$ p" b* }謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
9 m3 r* A% ]4 ?7 [如：
& w" y3 h  Q2 i! fG65P5X0.Y0.I30.R5.U2.Z-3.F300
/ K; h8 W& {; }5 wG65P5X0.Y0.I30.R5.U2.Z-6.F300
, w) ]- [2 ^+ r2 J$ nG65P5X0.Y0.I30.R5.U2.Z-9.F300
# \$ c9 m, F0 X9 _9 G; `5 D: kG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設置
1 S% K& l7 ]+ O
如果最後還有內槽的外形铣削會更好，所以我這個只是理論
9 B" I6 D4 p* k2 C! X9 z實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

佩服楼主，原理看的明白，但自己一直没有这个耐心。

羅蓋仙

回复 8# cadme
! Z5 w. o; \3 X' W* Y2 }9 P
可能是你工作比較忙碌，還要加班沒多余的時間
我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏