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

羅蓋仙

7 R& K$ a5 x8 h" I* @
" ?0 ?8 M8 ?0 A( L( w- N# j9 F小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
, s& |- A/ p* _2 I8 v6 y
) s" Y  K8 G$ i; h$ ]矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

$ c9 w8 P* S: w% B1 C+ A" Z先說明一下CAM挖槽(平行環切)的計算規則：
2 ^  q! P; z. h取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
#100=#4-#18 (內槽－刀半徑)
7 G+ i  ^0 M" e+ [% N% e; V9 N#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
% m" _4 N, J0 ~! H#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
( @2 Z3 ?) Y$ v- A8 p/ N, {# ?#103=#102-#101(如果余數大于切距的一半，將會使用到他)

以下兵分四路：
+ \, G; F! L* k/ W甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
1 Y/ |1 H$ M& Z( k" }4 g% z; i乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
6 m/ d# J# T, P( S; n. i. z圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
  n( w) i4 F' `

: Y# D( S. i# U- u9 |0 s
. J  n" Y- }8 B
# B1 c7 t) B/ p4 T%
  \+ w" }) j6 x! h( {/ x) oO0003(主程序)
G91G28Z0.
6 ^" S' s4 w5 \0 u- B0 \T1M6
G0G54G90G94G17X0.Y0.
& i$ ?, C# z) H- I! z' u0 _G43H1Z100.S1000M3
6 {: v: K6 W2 N; i8 ^: OZ10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
G91G28Z0.Y0.
, k% S6 I* P  \3 W2 C2 E* LM0
; J9 S: {: X* g%

XY工件的中心
2 p3 N& i0 f$ HI內槽的一半
6 y% t7 N4 c# ~% T: n3 N3 v+ wR刀半徑
U切距
  j0 Z; V; t  ]8 q5 l% PZ深度

' ?4 o( d* O, H3 m
2 I: p( q$ h' o9 {: R%
O0005(副程序)
#100=#4-#18 (內槽-刀半徑)
2 u5 i3 f; G. v1 s( x! c#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
# \  N" x3 V6 ^- A" x- ?#103=#102-#101 (餘數-切距的1/2)
' p) }0 E. m. Y3 y; @, Q
G90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
Z#26F[#9/3.]

(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
4 c! q" i  n, _(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4
& A" o4 b3 H0 k5 B+ o( O" e

N1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
# _3 U" b; M: ]9 B6 X/ pY[#25+#101]
X[-#101+#24]
Y[-#101+#25]
  Q. Z: R6 D) c+ y7 T8 vX[#24+#101]
Y#25
IF[#102EQ0.]GOTO2
7 a( Y* v" ?# X/ e#101=#101+#21
: N- b2 l; x5 M3 }END1
* g! z% n0 I& u# ^( b% V, }$ qG0Z30.
M99

N2#27=#21(切距)
WHILE[#27LE#100]DO2
- S! g0 p3 ^7 S( C+ D% v9 PG1X[#24+#27]F#9
Y[#25+#27]
6 @* n; N5 v; @( u. q; k  \X[-#27+#24]
* g2 d  v: U+ h' S# |% gY[-#27+#25]
X[#24+#27]
Y#25
$ ?: I* o; C& X/ C27=#27+#21
END2
2 p  @6 R+ `- v# X: H$ P; aG0Z30.
M99
7 w" f* `) }3 a2 l$ e) y; i
4 i* q7 B2 S$ m, k. h- Q- HN3G1X[#24+#103]F#9
Y[#25+#103]
X[-#103+#24]
Y[-#103+#25]
X[#24+#103]
Y#25
/ B8 U" H6 a; z
N4WHILE[#102LE#100]DO3
# c4 u9 e# f% O% T6 E& Q+ b. _4 RG1X[#24+#102]F#9
Y[#25+#102]
" J  j; b9 p- x3 V4 pX[-#102+#24]
; y/ D9 b9 }! U0 q$ O$ EY[-#102+#25]
X[#24+#102]
Y#25
#102=#102+#21
: }! ]% l" N* UEND3
  l$ l- {) h3 t0 e/ PG0Z30.
M99
%

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

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
/ C7 M: {9 k4 A3 k5 f# y7 U你这个适合铣平面，建议你改善为可以铣模框的，带R角的
$ b# ]5 X; j3 c( u1 w- }实现了以上，就增加做框四个面可以带不同斜度的功能
实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
, A6 P/ q" U) f2 d$ l. ?0 ^8 i' H实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
7 ?8 z$ R/ z& e1 N8 @: _到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

# N6 T* v+ p' t# W# i謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
: {# Z/ [# T- q4 eG65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
& M! ?$ t* w+ f- y. n& x1 x以上為基本.簡單的設置
2 j! l, l' m+ A4 e9 @+ n( m$ o$ B
如果最後還有內槽的外形铣削會更好，所以我這個只是理論
8 A) Y6 V* c+ u7 c8 B7 g, f實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme

可能是你工作比較忙碌，還要加班沒多余的時間
  i, l7 \- l' s* H: D我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏