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

羅蓋仙

- y$ C/ q8 k0 J) t' f小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
  E' |* o  c' F* D找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
4 @5 y% g; V+ h. t+ F) N' q
矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好
' u0 _& h7 x) L2 M
1 B3 Y/ p& C  ^# M; E" X先說明一下CAM挖槽(平行環切)的計算規則：
0 M+ |- A- a: l4 V取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
" l8 o3 l& O; ~* E2 q' ?#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
- u, M- R+ X5 R4 Z( ]#103=#102-#101(如果余數大于切距的一半，將會使用到他)

以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
: t7 M  J9 m+ {, }' G6 ~- c丁.IF余數LT#101. ：先做#102，再用#21加到底
) m3 L3 P% }3 e; F' i+ d圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
% I# I. T7 Q5 |



6 B$ f: v  ^7 b  L9 v%
O0003(主程序)
$ \6 B/ V' Q, F! _  A3 k) Q* bG91G28Z0.
T1M6
" t' D6 d& Y# ?3 b) |0 e! cG0G54G90G94G17X0.Y0.
( i/ a" L. {' e! `2 `/ F# }G43H1Z100.S1000M3
Z10.
: f* U7 F4 |7 D/ p: ?8 v. MG65P5X0.Y0.I30.R5.U2.Z-2.F800
& V- H  {' r6 _3 @9 `0 ?6 @) NG0Z200.
G91G28Z0.Y0.
6 A# \2 S) c. G& a2 YM0
%

XY工件的中心
& P. I# \3 g! [( \I內槽的一半
6 B9 Y" a" [# E/ f* H8 OR刀半徑
% }  d7 K2 [1 l  M7 H% bU切距
1 J" p1 Q( }( s6 @, B/ jZ深度

+ h* ~  ]# m8 @
9 }5 Q: N$ r7 m7 U%
, _; x5 u. H9 h; r$ \: z/ {O0005(副程序)
) L% V0 D/ X! F9 ?' j#100=#4-#18 (內槽-刀半徑)
#101=[#21*.5] (切距的一半)
0 l# r; ~, b' a# @& U3 F: ~/ T#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
) k, X# x  B  n) w( }9 r#103=#102-#101 (餘數-切距的1/2)

G90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
Z#26F[#9/3.]
/ i7 o# b5 H; {/ ?) u8 p+ f
(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
7 z# W3 Q% i; h, u) N% K; \(丙)IF[#102GT#101]GOTO3
' ~  j8 [7 d* R- ^! A) x5 N(丁)IF[#102LT#101]GOTO4


N1WHILE[#101LE#100]DO1
+ D6 u- G  x% Q2 P5 R1 aG1X[#24+#101]F#9
% X( b  c2 f- |+ d9 DY[#25+#101]
X[-#101+#24]
# f: \5 T2 K$ M$ d7 s2 NY[-#101+#25]
: F; S7 V; |8 qX[#24+#101]
Y#25
, Y% m- Y" A8 E2 Z; \& WIF[#102EQ0.]GOTO2
0 t& P- U; G, ?#101=#101+#21
END1
8 X) b9 \/ L) CG0Z30.
M99
! I$ W2 _0 t# I: i* ~+ B  E) B
N2#27=#21(切距)
) h$ {, a0 g6 y, G& S& _WHILE[#27LE#100]DO2
( H% Y7 i* G! Q/ jG1X[#24+#27]F#9
) `0 W3 O+ B! E. N; _6 ^* `7 JY[#25+#27]
9 J$ C1 \8 ], h4 Y0 u0 UX[-#27+#24]
Y[-#27+#25]
6 t0 U: L2 A7 g1 T; H2 b# K7 wX[#24+#27]
Y#25
27=#27+#21
/ t  `* o- U0 E+ Q2 ?* M0 yEND2
3 ?* O" I* ]" K1 k4 ZG0Z30.
1 }2 o) C- ~4 {$ z3 L; AM99
) ^: y; l% f7 |6 X; A& j
N3G1X[#24+#103]F#9
& w0 j8 q; r, hY[#25+#103]
X[-#103+#24]
Y[-#103+#25]
X[#24+#103]
Y#25
! |) o, I; E; L% ^- U
  @. P: I- D) i7 {N4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
Y[#25+#102]
- v, I# K% F6 E2 Y/ sX[-#102+#24]
Y[-#102+#25]
X[#24+#102]
9 D/ r3 A- ~. Q( J0 t; oY#25
#102=#102+#21
1 L) h, D) a& @( qEND3
G0Z30.
M99
%

  m$ A' e! B6 n, q' Q以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
, W+ \; C3 n$ z9 C& ^1 j4 X我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
你这个适合铣平面，建议你改善为可以铣模框的，带R角的
: }" E0 T' ~" }6 `实现了以上，就增加做框四个面可以带不同斜度的功能
: z( f3 |# n2 ~. {实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
  t4 ~' D3 v& i1 H# Y) O$ V# K实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

謝謝指点
' k) a2 d3 z0 k, I$ E8 P4 p我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
如：
: i6 s& W8 M+ C* e5 U- @" bG65P5X0.Y0.I30.R5.U2.Z-3.F300
2 a& w, N+ A+ t' @; aG65P5X0.Y0.I30.R5.U2.Z-6.F300
% Q( d; W& k' B3 @6 @& BG65P5X0.Y0.I30.R5.U2.Z-9.F300
+ Q' }; _* B; {; Y/ j: Y" `. fG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設置

1 X, Y- `& P5 i0 u如果最後還有內槽的外形铣削會更好，所以我這個只是理論
# ?7 K8 a! b( J實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme

可能是你工作比較忙碌，還要加班沒多余的時間
' u" F3 X# f1 l( w我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏