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

羅蓋仙

小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
( X: o- b- u1 @1 N
矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
+ c1 C4 }  A9 d" b- \# l/ w+ J# b( }#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
& e4 C8 V3 ?: {* A: E. y6 R#103=#102-#101(如果余數大于切距的一半，將會使用到他)

+ m9 _: q- f  j! E: Z* \以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
; @: g- r* m( u) p, E乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
3 F2 E/ \% _) k- k; o7 ]丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
& I! \( D  G0 r( @) ~8 r, y丁.IF余數LT#101. ：先做#102，再用#21加到底
' C& ~+ g4 \( S圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣



8 S+ J. H! o# [8 i" X
%
% i! {* ?6 O9 ^5 @' ?: g) e+ V* LO0003(主程序)
G91G28Z0.
T1M6
G0G54G90G94G17X0.Y0.
( J" \& v$ ^+ S6 hG43H1Z100.S1000M3
8 @+ t- p# v; Q) E2 ]+ S% V9 ^Z10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
G91G28Z0.Y0.
1 b1 S4 y: Q8 E" M/ f0 F- TM0
%

* {: [1 {8 N  H; K8 }7 q* p! cXY工件的中心
+ l* _! g# k& D  [; [I內槽的一半
: ^7 {% r: ?& w/ V+ _# AR刀半徑
) o, A% y3 g+ {/ e  TU切距
* u- R) Y& l$ U% [" x6 KZ深度
' N4 P. N. p+ @- }  W3 n9 x

& n5 v" r( r4 O, s' [: W%
O0005(副程序)
#100=#4-#18 (內槽-刀半徑)
7 J( A; i2 v/ L: M: u$ ~: O; V#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)
9 n! t4 s, b- U% z1 j) l6 T: h
G90G1X#24Y#25F[#9*5.]
* ^, H' M1 h7 c1 K* G% w& u: D. D5 F; BZ[#26+10.]F[#9*3.]
2 Q6 ]' `( {( P: I/ {0 k8 hZ#26F[#9/3.]

(甲)IF[#102EQ0.]GOTO1
' @$ l. T" L& u(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4
! A" {9 ]' o& R% {

- K+ t2 P8 v! m# C$ G2 y$ GN1WHILE[#101LE#100]DO1
' N1 H) ~. ~0 \& [' y% O* m( nG1X[#24+#101]F#9
0 L0 H5 ^) ^, f& N  d( p- |Y[#25+#101]
X[-#101+#24]
Y[-#101+#25]
/ a; b, B4 U. }5 e( s3 MX[#24+#101]
Y#25
IF[#102EQ0.]GOTO2
#101=#101+#21
. M" R6 ?5 w3 m5 oEND1
G0Z30.
7 E0 m9 b* e/ v" zM99
( m! ?, m" j7 z  R% R
N2#27=#21(切距)
9 L+ P' }0 Z& x$ }9 W- ?WHILE[#27LE#100]DO2
G1X[#24+#27]F#9
Y[#25+#27]
X[-#27+#24]
Y[-#27+#25]
* c$ d8 V+ S  b& Z" Q9 uX[#24+#27]
Y#25
27=#27+#21
END2
8 E' T/ f( M4 l& ~6 ~1 r, o* b8 T# [. |G0Z30.
& Z; V" H) f) U( F) oM99
# l2 Y2 w1 \( p3 o: ~1 g
# x$ S8 ]) g0 P1 O; PN3G1X[#24+#103]F#9
6 _3 S! m! R* |3 eY[#25+#103]
X[-#103+#24]
Y[-#103+#25]
( p+ R" U% {" i4 S# RX[#24+#103]
Y#25

N4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
Y[#25+#102]
0 E+ V% U0 @; {% e6 [) `X[-#102+#24]
( ]( A( Z2 ?* S) m9 ZY[-#102+#25]
X[#24+#102]
Y#25
1 Q, n7 P) I+ @( J$ ~7 t3 a#102=#102+#21
! Y. ?5 k8 r, |END3
6 \' t* k/ Z% |  d- QG0Z30.
M99
%

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

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
, O; d! y# ^* M  W! M, i- |你这个适合铣平面，建议你改善为可以铣模框的，带R角的
' U! Y. d% J2 _7 K$ R4 {实现了以上，就增加做框四个面可以带不同斜度的功能
实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
7 W* i/ J; W, X5 H, G0 P& f实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
, P: t; M6 l- p8 V: q9 L0 _到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
8 M& x, {9 ~- P3 T. Q: OG65P5X0.Y0.I30.R5.U2.Z-9.F300
# A5 O& V9 F5 h) K! SG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設置
- F8 p* L  ]  n6 A- K" ~- I* b! {/ g% I
% w+ \, n. l: ]2 D如果最後還有內槽的外形铣削會更好，所以我這個只是理論
實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme

可能是你工作比較忙碌，還要加班沒多余的時間
( ~7 o5 b) V1 g我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏