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

羅蓋仙

5 |( k% c' Y4 K9 {; @3 X6 c
" k* t) Q, H. k% r6 v$ L( e小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看

! @7 V& R9 Q: s; w9 k矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好
& ~# e" b% H) B% R
" g/ m; `5 q/ A  j( @- C) |: _先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
. v. Y/ x9 q  Q( X2 ~) UU(#21)為切距.步距
5 g- p: t9 @) q& f9 f#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)
$ j/ V) l: V4 t6 x
以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
7 l4 I6 `2 _* V" t& k( x* b7 _乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
( N% s+ a; R( R/ P2 a! Y; L% _4 b3 L* l丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
6 L3 `1 [8 P1 b8 A: q# |  A; Z丁.IF余數LT#101. ：先做#102，再用#21加到底
& T0 b0 e+ k& w: s& n, K5 U3 a圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣

" P) h2 h6 y; g# b+ U) u

1 M' d5 r4 }, g. k, h% u
2 L6 \: @. x6 ]7 {; D1 O7 `%
O0003(主程序)
G91G28Z0.
# F: N! h) R4 e1 g+ _+ g) [1 RT1M6
G0G54G90G94G17X0.Y0.
7 F4 y' S7 b) q7 j$ H# kG43H1Z100.S1000M3
& f; J! v, c) v/ c$ q: HZ10.
. [1 s7 l1 o2 ZG65P5X0.Y0.I30.R5.U2.Z-2.F800
- C& V  @2 h8 s0 U. {G0Z200.
G91G28Z0.Y0.
1 P) C) U7 H& a0 k3 N5 \! r7 P% iM0
%
; A, O# q4 d4 N& e
8 W; [+ V+ _; W2 D+ B" sXY工件的中心
I內槽的一半
R刀半徑
7 F+ ?" s  V; _8 Y2 GU切距
Z深度
5 s: g( o( E3 f
6 _- {. z( ^: ?8 [3 Q" v1 F# L
%
: X2 w" S4 m8 E4 b+ a: ?O0005(副程序)
5 M4 i% d, h8 ~  p6 l#100=#4-#18 (內槽-刀半徑)
4 o: L! s9 X) @: M1 R$ v#101=[#21*.5] (切距的一半)
  [; _# D7 i6 T; U$ K  ~/ c#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)
* U9 R" P5 X" @1 O! w
+ w7 ^. k* G3 aG90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
Z#26F[#9/3.]
; j* o" K1 U7 }, y4 J5 {. r. k
(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4
0 h7 S3 S6 R* B& e2 H5 A& Y

1 V$ z2 ~/ n! y& H. k9 Z5 {$ m% |N1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
Y[#25+#101]
$ H% g9 a5 z! R! ]4 q2 gX[-#101+#24]
$ }0 _% q! t( R& m& TY[-#101+#25]
, y+ d& H( p8 [3 k" N8 ^X[#24+#101]
5 l" j+ o# j! U  Z; G2 C, `Y#25
IF[#102EQ0.]GOTO2
% Q6 h; G% H; f" P+ n0 w% v#101=#101+#21
) a1 o/ V  X, y0 e" Y, HEND1
G0Z30.
M99

4 D0 K  e8 q% A* Y# FN2#27=#21(切距)
WHILE[#27LE#100]DO2
G1X[#24+#27]F#9
% `3 n& A8 z9 n. ~  d' xY[#25+#27]
X[-#27+#24]
; f$ F, E. t& LY[-#27+#25]
: V; S. \8 H7 a1 j! XX[#24+#27]
8 m. a4 F& n. [/ G. rY#25
27=#27+#21
! G, d( X% F7 h& [- G* TEND2
/ a  ?, I& n( s7 G- O$ a, {G0Z30.
$ `+ q) a' G8 D  R, H1 E& V5 r8 t; ^M99
& T0 s. A! i3 Z# P, I0 h
' F3 `& s% \. j* o+ ~N3G1X[#24+#103]F#9
Y[#25+#103]
+ h8 ]1 M1 N6 R; b7 t  VX[-#103+#24]
+ c0 ^0 y, P+ ^# t: s+ I& IY[-#103+#25]
* o! B! }, p* {: c& BX[#24+#103]
8 P! u4 t' C: r6 `7 ]: L1 [Y#25
& ~; Q  W: b6 ?! _
9 @! @; H4 T$ ~6 ^# H. GN4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
1 c# i4 i  J3 n  [) y5 HY[#25+#102]
X[-#102+#24]
1 d3 F3 k. f- OY[-#102+#25]
5 R" o: p6 w4 g* v( VX[#24+#102]
Y#25
. j9 Y+ ~/ E. h5 t( z/ ]7 s( E) w. u#102=#102+#21
END3
2 }$ x$ ]. ?) {G0Z30.
6 U& T9 Q. f% ^! ^! R  [M99
" a" ~. E5 P3 S4 H4 l4 V' R%

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

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
; q/ `; k% i' L4 {& d4 E, d, |% X你这个适合铣平面，建议你改善为可以铣模框的，带R角的
实现了以上，就增加做框四个面可以带不同斜度的功能
+ |: t7 z8 W* P; E. v- R实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

% U: {: ?$ B+ _
3 ^9 ~; o. N1 y6 Y5 o謝謝指点
0 z* c& A) Z; V: n2 s我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
) N6 Y9 \( c1 v/ K+ G. x" c+ G/ a9 E/ m+ DZ軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
) A4 @/ L  k! Q% i( AG65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
* O: C6 n* S% j. u( J% z* F% Z/ SG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
: `' S% U4 R, `. w; |- X以上為基本.簡單的設置
% k& D# \/ c) a3 n& p8 p" B8 v8 Z
2 T6 v( X. G+ P4 K如果最後還有內槽的外形铣削會更好，所以我這個只是理論
0 R' P( |8 c  G實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme
0 M+ s( p- o7 w0 X& i  \
可能是你工作比較忙碌，還要加班沒多余的時間
# q3 ]& w$ ?4 w4 ?6 w我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏