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

羅蓋仙

* M  ~& P  w. [* D小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看

8 a3 }- x2 B' I2 h矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
+ Y$ A  N' A( O) _U(#21)為切距.步距
#100=#4-#18 (內槽－刀半徑)
% x3 @2 V9 F0 c. s( G3 n6 N/ Y; \#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
$ V) b# S! B7 H& T$ v#103=#102-#101(如果余數大于切距的一半，將會使用到他)

! P1 L/ L" g9 B, K$ R. ^4 J' Z以下兵分四路：
: a4 C. X* ^2 F( p' M4 O甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
* |" g1 Q! l/ F圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣

* S- A1 ~# t; P% ~


% a* j# o4 s+ ~, `- d%
" U- O* G' }+ }5 h) AO0003(主程序)
3 Q: Y% D( F3 B# OG91G28Z0.
: w( ]; m, b3 w$ P! Q' HT1M6
, Y8 a& `: d/ w- N; I- aG0G54G90G94G17X0.Y0.
4 D% c7 A/ |3 ?, M2 ~+ q3 G9 F( XG43H1Z100.S1000M3
8 X9 w' s. P9 zZ10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
/ F$ ~1 v& N& F' [8 KG0Z200.
6 D  A. E) G7 M2 T9 nG91G28Z0.Y0.
% n/ @" m0 g" U0 m0 j4 o+ }, YM0
%
2 {/ u8 w' x6 g
XY工件的中心
" d' r& m. j: Y- G! K2 DI內槽的一半
R刀半徑
U切距
* {# J6 V8 |: ]0 D0 ^Z深度
& t& t6 f- j1 w% l; ^0 E4 p
+ Q+ J% ?  ~5 w4 o) Q/ W
4 O/ ]" p: ?9 c1 U; V  M; U%
O0005(副程序)
. X; X, K! M9 y8 D2 t# d& F#100=#4-#18 (內槽-刀半徑)
#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)
! w% T0 m. m; o  a
; ^; o7 s1 E  j" I8 KG90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
Z#26F[#9/3.]
# r' u4 `7 }4 Q6 R
(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
$ j  s; t5 \8 v, ~3 O. {' m6 T9 E(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4


4 k3 P$ `' T  h9 L6 y! u% @N1WHILE[#101LE#100]DO1
  F8 {" J! u# u, F4 ~% j/ g8 b% eG1X[#24+#101]F#9
Y[#25+#101]
X[-#101+#24]
Y[-#101+#25]
X[#24+#101]
Y#25
* O- w/ \0 I$ L' ]6 GIF[#102EQ0.]GOTO2
6 B8 i3 p! L  l1 H#101=#101+#21
" w/ R+ x9 |+ S( f3 C" I8 J: [END1
G0Z30.
' ]. g3 Q2 V: ~4 HM99
/ p. x* H' M$ E3 L7 D/ G
* G; G7 a' Q/ |N2#27=#21(切距)
! w- g! w; X8 zWHILE[#27LE#100]DO2
G1X[#24+#27]F#9
Y[#25+#27]
/ [, v% a) K: t1 Z; V/ zX[-#27+#24]
Y[-#27+#25]
X[#24+#27]
Y#25
+ S7 o& O0 d) o7 g27=#27+#21
END2
G0Z30.
" K; K' ?9 i4 d1 L' OM99

& t; k! G7 R3 v( m+ i2 qN3G1X[#24+#103]F#9
8 [; g: U  I$ {  l8 `4 _4 oY[#25+#103]
X[-#103+#24]
Y[-#103+#25]
8 ~7 t1 s0 Z& E8 U+ {X[#24+#103]
Y#25

$ R2 m! i( e# n' @1 I5 yN4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
Y[#25+#102]
7 h7 X6 S! K# q# \. Z8 f( j1 DX[-#102+#24]
. y+ Q7 d# `4 yY[-#102+#25]
" t& V' L" `2 j3 T/ j( TX[#24+#102]
Y#25
2 }1 [7 x. m, ^3 U# V6 i#102=#102+#21
END3
. q: ^1 l) w8 `8 e1 F3 w1 ^G0Z30.
' i7 O9 g/ T) Z- P2 ?M99
- Q5 ]" ^# A( u7 R8 O- E%

( I1 s7 c# Y( v以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
+ P* ?; d' \2 n* ~: G3 L* k我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
9 b: j+ u  V9 Y+ h) t你这个适合铣平面，建议你改善为可以铣模框的，带R角的
4 y# e' J/ d) @8 b0 P( o1 K& \实现了以上，就增加做框四个面可以带不同斜度的功能
  a+ u3 W& |5 {, G7 `& h- a1 Z实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

3 f4 }1 v; E  S5 y
謝謝指点
$ V4 U5 k# s: c+ Q/ Z2 h2 ^$ C/ V3 \我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
如：
' \, ]: q9 Z  f  Z4 n/ Z1 Z5 xG65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
/ D6 B: Z- d& i$ _2 O" LG65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
) s. R& o" ^! x& I/ C+ t8 b以上為基本.簡單的設置

如果最後還有內槽的外形铣削會更好，所以我這個只是理論
  S8 A5 Y" i: I& p實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme
" z, H7 X2 |) S- V, ~4 c/ S5 E
可能是你工作比較忙碌，還要加班沒多余的時間
0 S* ?0 ^9 m; E1 {  w我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏