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

羅蓋仙

5 o1 `  N9 L: _/ l$ V; M, X小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
1 W0 r+ L% I  v5 L
矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

先說明一下CAM挖槽(平行環切)的計算規則：
$ O. g& _3 S  [" f7 L取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
5 m" |" h& Q) zU(#21)為切距.步距
0 m1 g+ [/ a% n9 z' }) ?#100=#4-#18 (內槽－刀半徑)
# u/ q' t- z9 L) @2 C#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
. H( i/ X  y" I! E$ H% |% v#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)

以下兵分四路：
  x0 V' C* X0 \" H& v1 r" I/ p# L甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
3 p. B% E. }& N8 Q$ ?* o" m丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
1 i+ u% [3 P; ~' A0 M7 r. p圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣



( S/ C7 t+ }8 u' W) a' C' O
%
O0003(主程序)
G91G28Z0.
T1M6
" v. C( n; W" r/ C9 m  n: e! d2 T8 zG0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
' |6 Y# E3 ?3 k0 `Z10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
3 T( r/ P; ?3 U  {) a$ NG91G28Z0.Y0.
M0
%

XY工件的中心
) @7 y6 O2 x& c5 b6 Y! J' pI內槽的一半
R刀半徑
" v+ R, Q# ~  x. z+ VU切距
5 a/ _* ]* P! w) fZ深度
+ B& C+ R2 y7 C* w2 Z
4 U1 ?: p3 \( w
# R% M7 E2 u$ q- O  c5 u%
O0005(副程序)
#100=#4-#18 (內槽-刀半徑)
5 ~4 l0 _5 K' i/ X#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
* q8 `! _8 C7 R; D- R& B* |+ e#103=#102-#101 (餘數-切距的1/2)

G90G1X#24Y#25F[#9*5.]
& I2 l: f6 _, Z1 A( {Z[#26+10.]F[#9*3.]
Z#26F[#9/3.]
0 |& J3 ]# U% k6 |& q
) O9 B) B0 H; V7 i1 N(甲)IF[#102EQ0.]GOTO1
0 w% I, p/ L. D(乙)IF[#102EQ#101]GOTO1
: L. ~$ u8 S8 K(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4


3 F0 V% w- {$ V. f% L. P& ]- i0 ^N1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
Y[#25+#101]
4 Q7 q* F& a9 F% }& f, g: R" c$ xX[-#101+#24]
9 c: P+ j9 M, p" |& m2 M( @Y[-#101+#25]
X[#24+#101]
' G& t6 u6 R# \( z8 MY#25
0 s9 a+ c$ k  |6 z! S) mIF[#102EQ0.]GOTO2
#101=#101+#21
$ A0 }( w5 j. V' R. \6 rEND1
, @) q9 `$ ^% }6 G/ U3 K  j; XG0Z30.
  [- j/ _$ K8 _) zM99

N2#27=#21(切距)
WHILE[#27LE#100]DO2
9 W2 n9 d  V, z9 a5 }G1X[#24+#27]F#9
% x; H9 i9 f! [  [) |/ _Y[#25+#27]
% ~. b0 a+ `- }% r+ ~2 d' ]X[-#27+#24]
. h/ b3 }6 t! F( IY[-#27+#25]
X[#24+#27]
Y#25
27=#27+#21
4 r3 k; Z2 X! z, x( E' [0 J" DEND2
0 d. N6 y' N' B! ~7 AG0Z30.
7 h: X2 }$ K0 lM99

N3G1X[#24+#103]F#9
2 L5 I+ z. Q' x+ n/ |" ^6 u# SY[#25+#103]
X[-#103+#24]
/ g, ]( x0 U* `. T) i/ U% j( k( vY[-#103+#25]
9 H' U5 t0 t, U" qX[#24+#103]
Y#25
) r. x5 Y. R% f
. ^& _$ \6 F" a0 v& `% h5 EN4WHILE[#102LE#100]DO3
$ m) ^- E% Q! s+ B& }G1X[#24+#102]F#9
Y[#25+#102]
. W3 ?  b  x) s* d2 |, A; Q  jX[-#102+#24]
  a+ N. u/ U4 i5 Z0 }) ?Y[-#102+#25]
X[#24+#102]
6 M1 [# A" b: G2 W# A$ dY#25
6 w' i; M& Q8 y9 d0 x4 l2 t' T#102=#102+#21
- n  ?8 [& ^( {6 YEND3
G0Z30.
M99
%

以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
* }6 ^* D: y: J, h. e  K$ G' p我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
( U6 K, v! ]6 c4 C+ K你这个适合铣平面，建议你改善为可以铣模框的，带R角的
实现了以上，就增加做框四个面可以带不同斜度的功能
实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
- }  y2 _% |# r2 l( O8 z/ l实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
' n! d# H" m' y4 n' t, q到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

9 ~0 ]3 I* H5 _. N
謝謝指点
9 x# ^+ T$ u! t# @6 F我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
% R7 O1 }3 \6 F& R: \4 X8 {Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
! _# E' u& j! v' V' q) h/ n: N如：
2 a# h5 ^7 @7 r& I  m: b) lG65P5X0.Y0.I30.R5.U2.Z-3.F300
2 q$ `0 y6 ^$ n' b. z$ t7 g: AG65P5X0.Y0.I30.R5.U2.Z-6.F300
: Q7 k2 K2 o  p, qG65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
+ A8 S' w6 l. i0 }* Y0 z以上為基本.簡單的設置

5 j: [8 j% ^0 |/ B. D4 S如果最後還有內槽的外形铣削會更好，所以我這個只是理論
7 c  k" y, j) [實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme

可能是你工作比較忙碌，還要加班沒多余的時間
我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏