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

羅蓋仙

6 M& D/ Q. {; L7 F& Y6 ^- u  s小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
8 ~- _4 s; G5 }$ D' T  S找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
  I& s' z# p( R$ \% y& ?2 m
矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好
& u$ y" {* H  q7 w0 v. C, Q
. q! g8 p5 f' V$ e; c' x先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
8 n! M7 G( C' \#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)

以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
" M8 C7 ]  Z2 w$ O; N# O  D) l丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
: c; M# |( z3 W; w) @丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
- d/ P( V1 T/ e- {



%
) N+ h; b6 S$ Y5 {- ?' X9 XO0003(主程序)
G91G28Z0.
& y' B8 ^' N# F  {+ q* \# AT1M6
$ c3 h1 L  C  rG0G54G90G94G17X0.Y0.
5 X- G$ q8 t( f) ^+ J; ]! MG43H1Z100.S1000M3
0 I+ r+ b: g$ ?. R, g! qZ10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
) h$ z) {# g6 Y0 J' \G0Z200.
; N/ d3 I" \! z$ L; h2 X, I* z' hG91G28Z0.Y0.
: s! v- m- x0 u: |M0
: g6 d6 Q$ r+ E/ ?& c%
' n5 H0 X% v9 J+ v
6 x' I4 v% |9 q/ b! F5 ^8 [8 LXY工件的中心
I內槽的一半
R刀半徑
1 H% Z: T% c0 J. d" ?U切距
Z深度
" K% Z( |. |* j" U/ X( D

" A4 e% o3 W5 ^$ \%
O0005(副程序)
" o$ h5 G& j4 e. ~7 F. _#100=#4-#18 (內槽-刀半徑)
8 }& c( }; t+ u. `( r! v0 L; x) S#101=[#21*.5] (切距的一半)
/ H+ y( L1 q: r: _* G8 G#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
& |$ F# d3 o( w* X8 E#103=#102-#101 (餘數-切距的1/2)
+ }; R4 ]2 W+ F" ~7 A" {$ P& y! X
G90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
Z#26F[#9/3.]
. ?) U8 {: R1 b' G" o7 F) L
/ \- q/ t, s$ u9 Z# l4 Y(甲)IF[#102EQ0.]GOTO1
6 I( H7 t- i( q# b( Y(乙)IF[#102EQ#101]GOTO1
% M/ M5 k) p% a2 x. d) o(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4
9 t) o% Z5 @( z  ~8 U
" V+ B7 a; A+ H( i' }! V% l
2 K/ I7 D$ w4 ~2 H1 ZN1WHILE[#101LE#100]DO1
/ W% \3 W' ]# E2 j7 n" G# MG1X[#24+#101]F#9
Y[#25+#101]
; o5 g, p% }1 j" }5 RX[-#101+#24]
. `' a) }7 o6 k" ]- l4 yY[-#101+#25]
- h1 C# {" ]. V& l* _X[#24+#101]
! e* d: n! f; R$ jY#25
IF[#102EQ0.]GOTO2
#101=#101+#21
- r, c7 P5 q! d7 pEND1
G0Z30.
M99

N2#27=#21(切距)
" R! q$ H8 |5 [/ f; A& uWHILE[#27LE#100]DO2
G1X[#24+#27]F#9
Y[#25+#27]
X[-#27+#24]
Y[-#27+#25]
X[#24+#27]
Y#25
$ X: Y( A# _4 i  J9 c. }- F0 N& M27=#27+#21
9 ^6 k! {6 C8 G5 r' {% h; b/ |+ b9 Q) [END2
% O: N0 b, x) X: b& {3 `( y" ]G0Z30.
M99

N3G1X[#24+#103]F#9
Y[#25+#103]
8 a4 h8 ?. k# H7 @; MX[-#103+#24]
8 ^, Y: L$ M! r& q* AY[-#103+#25]
X[#24+#103]
9 O4 |; {, R# ]  w+ jY#25

4 c% F  o; }% @' c' N9 yN4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
Y[#25+#102]
+ b: s5 P& a9 h7 ]' k% Q) b* UX[-#102+#24]
# S8 f' r+ o7 ?" _' f7 ~Y[-#102+#25]
X[#24+#102]
3 m9 M4 O7 K! H9 w/ cY#25
#102=#102+#21
END3
G0Z30.
M99
%
/ f3 V% e# i. E
以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
: [% y/ l9 c1 y* V3 M! M2 r% {3 M我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
5 i4 E$ g* y, e" d4 a, W0 l, C你这个适合铣平面，建议你改善为可以铣模框的，带R角的
1 h- L8 m, A, s& D! G* n6 r. g实现了以上，就增加做框四个面可以带不同斜度的功能
0 S7 e5 h/ \& H0 H实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
) W( W4 J8 V, j& E& H2 c实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

5 g3 L+ d5 q4 v& b) \4 B5 }# V謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
4 V* b$ I( g1 [' N4 I  n& ZZ軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
6 k5 p* h# v6 F1 u% V9 z& GG65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
) [; n# [: D+ r4 B  KG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
* y8 f9 l" M7 s+ x7 e, B7 g以上為基本.簡單的設置
  E4 G& O3 Q+ U! ^% o
% M0 j& k. [7 S. n如果最後還有內槽的外形铣削會更好，所以我這個只是理論
& H1 J' A+ M# U2 [: h( i; a實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme
6 L0 ^+ _0 ~! [0 P
2 B; X7 Y' A1 p7 W* J. S. h1 @可能是你工作比較忙碌，還要加班沒多余的時間
我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏