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

羅蓋仙

3 B* G. \3 A3 d$ p1 J" C4 P% c" y. A
小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
& J6 g2 B' M8 a0 u- U9 o8 ~. x' {
矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

先說明一下CAM挖槽(平行環切)的計算規則：
1 c% F( [) {0 L. f$ b: y取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
#100=#4-#18 (內槽－刀半徑)
; M" H9 A1 D! o  T3 k8 n#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)

- y: x& i1 W+ W0 d/ F- L$ d以下兵分四路：
6 f# s2 [) a; m! X0 e甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
8 C( t0 k$ ^" ^' h丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣


$ b3 X0 ?8 ?- Z+ o& `5 g2 C

%
3 T# o$ i1 W+ IO0003(主程序)
G91G28Z0.
T1M6
# E3 r% Z; F+ ?  CG0G54G90G94G17X0.Y0.
& c  Z0 D, J+ @: z; D4 d5 \G43H1Z100.S1000M3
Z10.
: j+ M0 Z' [/ G* k6 t2 WG65P5X0.Y0.I30.R5.U2.Z-2.F800
0 p. R: J5 m4 M, c* y" W8 iG0Z200.
G91G28Z0.Y0.
6 G' ~. _8 W5 m/ S& tM0
%

0 A3 A3 O# Y) \7 F/ K4 h0 o  Q0 g" uXY工件的中心
I內槽的一半
  o& Y$ w: Q+ x$ O0 y% wR刀半徑
U切距
3 w+ \5 z2 W1 r9 {/ w; ^Z深度


%
! V6 R) i1 i! {: t0 P7 e4 x( NO0005(副程序)
! i6 }& [: h9 K1 g2 k#100=#4-#18 (內槽-刀半徑)
. a8 {/ }$ u, Z) O. P! J& r! W/ }#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
1 a% x" U5 B' |) E* \" Y  a#103=#102-#101 (餘數-切距的1/2)
0 k# @1 h9 E3 ^0 I( `& a
( [; t* V; H" N4 F% _G90G1X#24Y#25F[#9*5.]
+ H" e/ d2 ?. N$ p% VZ[#26+10.]F[#9*3.]
7 {; d: a4 K* P1 C8 |3 n0 ~) AZ#26F[#9/3.]
# s: h6 X! A* H& |% L, Z
(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
$ w' [! M3 w- v- N9 B(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4
% e& D/ u4 T0 p; u1 @( ~, [
$ R6 Q% l0 }6 d- ~2 A8 r8 q
N1WHILE[#101LE#100]DO1
% [1 t2 z( t; f2 H2 E: e, \. U, wG1X[#24+#101]F#9
Y[#25+#101]
X[-#101+#24]
Y[-#101+#25]
& N! h, K, R; r  E! F+ lX[#24+#101]
Y#25
2 j- E7 j/ ]1 V, C8 u; ^IF[#102EQ0.]GOTO2
% b2 ?5 ?- G) C# x+ q- u1 j% N5 V#101=#101+#21
END1
6 E3 W& v1 [: ]7 \5 LG0Z30.
M99
, K3 X& X( F' |2 m3 S3 z+ p2 r
) ]$ V. f& b0 |* N+ M0 C& }N2#27=#21(切距)
WHILE[#27LE#100]DO2
3 F2 P, W: v" DG1X[#24+#27]F#9
Y[#25+#27]
X[-#27+#24]
Y[-#27+#25]
. H( n% H% q+ u4 _# nX[#24+#27]
Y#25
27=#27+#21
END2
G0Z30.
M99
# q" U/ j4 [' r' _& L- p1 ]0 d
N3G1X[#24+#103]F#9
Y[#25+#103]
X[-#103+#24]
Y[-#103+#25]
X[#24+#103]
2 s: c3 @3 v' p% S+ }- Z: V( Y% YY#25

N4WHILE[#102LE#100]DO3
" n/ o0 a& r4 l- O9 a8 y" TG1X[#24+#102]F#9
Y[#25+#102]
X[-#102+#24]
Y[-#102+#25]
X[#24+#102]
; _# |8 _- O( m% P$ k5 |3 a# dY#25
#102=#102+#21
. G/ f7 a3 Y, g- EEND3
1 Q# l8 m' P, B, ]$ mG0Z30.
M99
  N8 ^3 J& ^" P%

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

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
+ E+ z4 e) c1 |你这个适合铣平面，建议你改善为可以铣模框的，带R角的
5 p+ k% P+ K; h/ A' ~' `, O实现了以上，就增加做框四个面可以带不同斜度的功能
$ Y. ?+ S) @! v. x; n) M实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
3 g# X9 ]# q* ~1 a: q9 PZ軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
如：
/ h8 R1 D3 i  H. u0 v, TG65P5X0.Y0.I30.R5.U2.Z-3.F300
; v4 a$ V8 L; j8 e+ X: A& iG65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
" |6 F& R% y/ s3 l6 c以上為基本.簡單的設置

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

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme

" R6 p) n( p$ w5 B) K# ~可能是你工作比較忙碌，還要加班沒多余的時間
+ C6 [( Z  k6 O5 h# o# \我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏