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

羅蓋仙

# F0 {- G, o1 i  f* v4 V
) @- v. y  C2 ^& c+ i( g小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
8 w4 V0 V! K# v9 Q找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看

& B; E: k' D4 C  z矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

4 f* U) o% v- t0 F- u先說明一下CAM挖槽(平行環切)的計算規則：
8 ]( }4 {5 |; B0 ^0 c9 ?取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
* |; r2 H- p, o, D#103=#102-#101(如果余數大于切距的一半，將會使用到他)

4 `$ y2 P+ h% a  z以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
! H* l, b3 t3 r- l5 S# C5 t丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
  X& j% r& R) w1 r丁.IF余數LT#101. ：先做#102，再用#21加到底
# y* b  t) I" u" o. }* D圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
7 F/ h8 V( \" H% I! C( J- v. w
: c: w$ W4 [/ Q3 K! @

$ T4 }$ O8 _& L& S; A" O
%
% ?6 I/ O" D: F8 f( |( UO0003(主程序)
9 F; ^) P+ E2 f9 Y5 s: i' J$ r' WG91G28Z0.
T1M6
) C2 ~* _9 Y" Y0 ]G0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
Z10.
3 |6 a4 O- a  R. w2 tG65P5X0.Y0.I30.R5.U2.Z-2.F800
/ b6 P3 w7 K- x5 I* z) S9 g" z. s9 oG0Z200.
; q6 U8 g  ?/ ~, N# E* O* eG91G28Z0.Y0.
M0
%

# A; b* W# g  FXY工件的中心
I內槽的一半
R刀半徑
U切距
( B+ s: U6 A4 X, r& NZ深度


- ]( h% x6 v7 c" |%
O0005(副程序)
#100=#4-#18 (內槽-刀半徑)
" V! p) T/ b8 N1 u( H#101=[#21*.5] (切距的一半)
2 i  Y. j% x& N% @" M#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)

G90G1X#24Y#25F[#9*5.]
7 L2 q$ K' L: s" N& g1 DZ[#26+10.]F[#9*3.]
0 R6 K$ M8 g/ j$ HZ#26F[#9/3.]

* x5 I6 h8 C+ X' a' Y(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
4 V4 t' T4 j* P6 `(丙)IF[#102GT#101]GOTO3
0 `0 u2 R5 S' n# x2 ]0 ?& E(丁)IF[#102LT#101]GOTO4
1 e2 }& c. q: B. c: q% B! w) r$ _
" u6 _) `0 i. j+ M3 a" u
N1WHILE[#101LE#100]DO1
0 \0 ]7 J3 M3 O$ M4 v& hG1X[#24+#101]F#9
: K. B) b% p0 t( B/ z- i  x6 S/ AY[#25+#101]
X[-#101+#24]
4 y% o7 _# {1 {* n% i' oY[-#101+#25]
X[#24+#101]
, ^6 q+ k  g& L) `9 ?8 r! c6 y! }2 oY#25
* [! W4 }# N+ y7 \7 V8 y) o. e$ aIF[#102EQ0.]GOTO2
#101=#101+#21
, @3 M3 n2 [8 C& f% dEND1
& E8 u( K: L+ m, g! AG0Z30.
M99
  z3 ^1 T  {8 ~! L( |. t0 P" r7 b. ]
! l& k* [; B1 U; zN2#27=#21(切距)
9 E) }( f  a9 l( u3 j0 h4 s: EWHILE[#27LE#100]DO2
G1X[#24+#27]F#9
1 z2 \* n7 }/ qY[#25+#27]
X[-#27+#24]
5 {+ Q+ m! M. E6 ?7 C3 d1 C  ]0 VY[-#27+#25]
X[#24+#27]
Y#25
8 @( Y6 l: D2 b8 N27=#27+#21
- b! ?8 H/ Y. e, [- o. aEND2
3 }4 `7 M9 f" A! G- {4 yG0Z30.
' |, A) V7 r) a& Y+ O8 VM99
7 q: K5 Z9 a% h/ A5 g6 I
N3G1X[#24+#103]F#9
) a1 o: s* _% p7 O1 s( P, AY[#25+#103]
! w8 |! T5 P* nX[-#103+#24]
Y[-#103+#25]
X[#24+#103]
Y#25

N4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
Y[#25+#102]
+ Y! `" Q( s! H" c/ M2 c2 y% ]+ u; HX[-#102+#24]
Y[-#102+#25]
/ Q/ z/ U" W  Y0 L# ]- jX[#24+#102]
Y#25
" ?9 w) c) ^( G& w  \3 J/ S* h#102=#102+#21
END3
G0Z30.
, Y8 Y. l4 N% F/ f: }+ r4 _9 {M99
( Y6 T5 v  {1 R) q+ P%
9 [7 q" h, c1 u1 l( {8 b
以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
你这个适合铣平面，建议你改善为可以铣模框的，带R角的
实现了以上，就增加做框四个面可以带不同斜度的功能
实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
6 E5 F0 `8 E2 ], l% w* ?- M实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
7 m" G) D6 i/ u$ j% |到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

' s, W0 W% X6 Y* O$ c
" B1 O2 L" Q0 F' k. c/ u謝謝指点
+ ]' t8 a) Z: ]0 F- V我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
- Q+ `) R2 U1 m9 \. VG65P5X0.Y0.I30.R5.U2.Z-6.F300
* o" V& m0 B4 H% s9 e3 hG65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
( Z1 C6 {6 r6 C5 v2 |; `* O以上為基本.簡單的設置
  P; B5 h5 U$ B- s+ ?3 ?
如果最後還有內槽的外形铣削會更好，所以我這個只是理論
實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme

) K8 L9 ]( N7 f可能是你工作比較忙碌，還要加班沒多余的時間
) F% s- f) r) E4 {/ Q) \我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏