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

羅蓋仙

- L6 b8 D# Y; O+ H, f. S) L+ F. J
小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
, U, s# y0 p2 _4 p6 r' C
$ p& I$ X$ n; t: e1 Y矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好
/ S+ }4 Q) [1 J1 l7 E, t( O( L9 [
: M# l  k3 Y" _) b6 w1 }先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
& U$ {, g9 G  d: q#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
' U! d8 R1 Z5 z4 _* [6 A9 o) @0 X$ f( y#103=#102-#101(如果余數大于切距的一半，將會使用到他)

1 w: n- v. k( `: g6 y% c以下兵分四路：
" ]6 s! i# C- G; W" p甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
; e7 n5 U$ O0 L( l! r丁.IF余數LT#101. ：先做#102，再用#21加到底
& C- C" \2 ?* w1 s圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣

: Z8 A+ n) ^- j+ Y
6 z( y/ J+ D* q* v1 k
; T8 T- B% n/ M% W$ |% [
%
O0003(主程序)
G91G28Z0.
T1M6
6 H8 X/ U9 o* D) ^9 F" SG0G54G90G94G17X0.Y0.
+ }7 p& t0 y4 lG43H1Z100.S1000M3
Z10.
  T2 x; k2 h$ ?6 \G65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
1 o# w% Q" _' h: ^; uG91G28Z0.Y0.
* s* Z2 \! A) r# y2 YM0
%

XY工件的中心
: T& k: R6 |& y2 J1 DI內槽的一半
R刀半徑
U切距
Z深度
2 |$ E  q5 G" C% x. N
$ i' I: K$ x) ^4 {. C! a) _
%
O0005(副程序)
* I: `- y7 o0 e3 d% Q#100=#4-#18 (內槽-刀半徑)
#101=[#21*.5] (切距的一半)
% N4 X2 c. ?3 {#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)

, `1 ~$ K  P' qG90G1X#24Y#25F[#9*5.]
, }' d' ~5 S% @# a% u$ _Z[#26+10.]F[#9*3.]
  P4 u1 j- m6 b( e4 J$ [( ]Z#26F[#9/3.]
) I( C2 J" L& |0 v( n- c( V
9 {  N+ w9 o7 H9 {8 {: ~(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
/ G3 L$ `! i. D  L: A(丙)IF[#102GT#101]GOTO3
# B* C: ~+ |5 R( r) J' x(丁)IF[#102LT#101]GOTO4
" T: G) F, F) I( c2 Z

N1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
Y[#25+#101]
- i- a$ M# H  V4 z  g6 MX[-#101+#24]
% w! [7 P3 K; H" AY[-#101+#25]
X[#24+#101]
6 M; E3 @) j: g) h. \Y#25
% W/ G% }, o4 UIF[#102EQ0.]GOTO2
1 K: u5 E2 ~( v#101=#101+#21
! p( X6 L, H$ _9 ?9 \END1
  K: E! N! L3 i# U; C; M( fG0Z30.
# V0 U2 k! |+ R% MM99
  s- t' y$ _# f+ }& j( _+ M
N2#27=#21(切距)
WHILE[#27LE#100]DO2
G1X[#24+#27]F#9
Y[#25+#27]
X[-#27+#24]
Y[-#27+#25]
X[#24+#27]
& N$ x7 u. U) @! I% iY#25
27=#27+#21
6 i: R8 u9 p- z# c. p4 g- }1 q# Z; CEND2
9 A0 ]1 q9 h3 y/ B3 M4 l- qG0Z30.
0 y0 `1 ?( C; x  a: h! p) KM99
1 z% E: p( p4 I5 z! Q' @2 y0 ?
N3G1X[#24+#103]F#9
Y[#25+#103]
X[-#103+#24]
Y[-#103+#25]
X[#24+#103]
9 }+ w7 Y  q% s+ i& L0 p+ sY#25

N4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
3 \- Q  v$ K4 T8 z# `* ~! Q* z8 SY[#25+#102]
0 V7 q9 B3 h( w, I* p# t9 y4 \X[-#102+#24]
5 Y, C/ c9 u. m5 F* C1 {Y[-#102+#25]
" B- v9 d" d- w( \. TX[#24+#102]
Y#25
: o+ N$ P3 ?8 m& A#102=#102+#21
" s9 x1 u8 H$ A6 Q) kEND3
1 _1 Z" C& u* ]% \! c* q# x& n. VG0Z30.
M99
%

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

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
你这个适合铣平面，建议你改善为可以铣模框的，带R角的
% W- R! ?0 N* Y- _0 ?' l实现了以上，就增加做框四个面可以带不同斜度的功能
% X8 [5 @" _5 H$ N! y8 \- ?6 H$ h3 w实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
$ X$ S: N3 r$ V# S0 X到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

謝謝指点
! ?- h* g7 h' S我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
' G9 ^* a, P1 v% s, L( K  d) Z0 LZ軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
! Y! d# d1 L! l: B9 h) B" t+ G# T如：
7 T4 z4 I4 r8 R+ G3 S' y  Y; HG65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
! t  t/ v  f! C$ E/ nG65P5X0.Y0.I30.R5.U2.Z-9.F300
& [8 y; a; f: z8 @2 K! |G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設置

  x2 [$ J0 a) H如果最後還有內槽的外形铣削會更好，所以我這個只是理論
4 k: r( h. F4 u1 d  I實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme

: r1 I0 A0 Y( F( j2 s' S: {7 r可能是你工作比較忙碌，還要加班沒多余的時間
4 H9 ^( Q1 a2 O# l: n9 s1 t3 `& D' B我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏