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

羅蓋仙

, Q' j. k& N5 X+ x7 i: n
4 L' L  o; W4 ]/ V# q9 {0 K小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
' Q- a/ V/ \: j1 b! H+ y找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
0 e  [& l* y4 }( s, b
9 ?: ~4 Q; S& j3 {矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

5 o- L# k3 R, F4 M( A9 M* A: f先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
; H* K1 X1 o& k7 Z#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
0 Y: O; m- R3 R#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)
2 F) P$ c; b  N( Y
1 B0 G' W8 M" I$ t0 e9 x以下兵分四路：
! R0 X- N- E  a/ S甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
$ S6 y7 Y& o9 }, ~( s4 V, [丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
2 G$ l& J9 n$ ^* x7 g1 f+ Z丁.IF余數LT#101. ：先做#102，再用#21加到底
" Q5 x2 t& v" e5 e圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣

# b. P) N6 A: i& h


7 q% `  l8 D% S. r# |%
O0003(主程序)
G91G28Z0.
T1M6
8 V& N2 m- |) D7 T! `, K9 ]: }G0G54G90G94G17X0.Y0.
: }0 V# C5 ]1 JG43H1Z100.S1000M3
Z10.
! g( L6 z9 p/ ]G65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
G91G28Z0.Y0.
# M1 @# }8 j3 [! }# I( CM0
1 b3 N9 J0 d; k' ~& r) V% S9 Q" g%

XY工件的中心
I內槽的一半
R刀半徑
6 E; A" {5 d1 _; CU切距
+ z& y) }# V- E$ [; [Z深度


%
O0005(副程序)
#100=#4-#18 (內槽-刀半徑)
) j* _( _! `4 ~; @0 n#101=[#21*.5] (切距的一半)
5 B& T# ]; [! p/ `#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)

% Q# A, a) k4 T& f# UG90G1X#24Y#25F[#9*5.]
2 c: C. X6 H* T: z  e( |Z[#26+10.]F[#9*3.]
$ Q0 ~3 I+ S( G9 E. [, yZ#26F[#9/3.]

8 }0 p# L" l+ L( X, p  b; J: i(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4
! R0 e$ P$ C& \! c6 S

N1WHILE[#101LE#100]DO1
; P# R5 ?2 X$ U7 }G1X[#24+#101]F#9
( F& g' x" M% J2 B  f+ xY[#25+#101]
X[-#101+#24]
  K- K) P+ L8 k( K# F1 GY[-#101+#25]
: B' V0 q$ L% o9 o: H8 YX[#24+#101]
Y#25
7 c% s. F  ]( @1 j! wIF[#102EQ0.]GOTO2
8 m8 v- g* X7 k& d#101=#101+#21
2 G3 D# q0 ^' D5 Y3 t# c8 g+ gEND1
G0Z30.
M99
/ W9 g5 _  i0 a
1 \0 X& t0 t! {9 e8 T7 xN2#27=#21(切距)
WHILE[#27LE#100]DO2
( c% t7 l% N. n( S6 C4 w6 bG1X[#24+#27]F#9
Y[#25+#27]
X[-#27+#24]
! Q* t3 ~( E9 {: _Y[-#27+#25]
, l, ?  X$ i9 ~/ |+ X' n9 sX[#24+#27]
/ {7 Z. g; ], M# {" |8 c# tY#25
27=#27+#21
END2
" Z5 W; O( M- Q: s. z( T; ]! z+ VG0Z30.
0 }% f  Y$ E2 z2 v  A0 {% }: F: uM99

2 ?- x: U7 P; j: iN3G1X[#24+#103]F#9
Y[#25+#103]
' F0 F$ \  [9 j2 V; b$ {' `' zX[-#103+#24]
Y[-#103+#25]
: A5 v, t7 I5 W; O6 R8 D5 c( Y3 c5 wX[#24+#103]
Y#25
3 t& n" a+ s1 [, i! r- r
+ r+ f/ e6 b/ |4 k! x; l" M' jN4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
Y[#25+#102]
X[-#102+#24]
+ T- s- Y5 I, N! J+ y  qY[-#102+#25]
7 s. `0 Q9 Q& IX[#24+#102]
5 i4 T0 I0 i% u+ F2 \5 g+ BY#25
7 ]6 Q/ r& i; D/ T" o( q: w+ }/ \  X#102=#102+#21
& I! Q" D. c+ @END3
0 D( t6 E8 |+ E: u0 N3 R' u1 N- [- mG0Z30.
* V6 V% z6 F3 l; Y/ P# \: XM99
%

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

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
你这个适合铣平面，建议你改善为可以铣模框的，带R角的
+ T6 a4 T: Q1 r. e7 V5 z3 Q: n实现了以上，就增加做框四个面可以带不同斜度的功能
  i5 R1 V, G: F3 `5 j7 B实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
3 \) E- `; E$ u实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

0 O  y: k9 U. M! u
謝謝指点
6 S& E% c7 G' s9 E) r# Z3 {0 F" m我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
. {/ t/ e7 j/ c1 u/ v2 h3 h& ^# J" Y2 mG65P5X0.Y0.I30.R5.U2.Z-6.F300
6 I, ]& D* d4 i0 G% e5 |G65P5X0.Y0.I30.R5.U2.Z-9.F300
  I* R- ^# ~  J8 }G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設置
/ Q  g8 K5 U! Q/ Y
如果最後還有內槽的外形铣削會更好，所以我這個只是理論
實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme

* J# L0 G3 o+ p7 m) v8 O* |; ?+ O可能是你工作比較忙碌，還要加班沒多余的時間
, x+ U! R# {; m' G) X) M" f9 g我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏