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

羅蓋仙

+ ^9 J# {4 H. w/ {$ ?
小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
7 u( Z- a  D6 W1 u: H# x6 |9 v* S# n3 t
矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好
5 Z& ^4 r  W; H: Z9 T+ r
: p- e, u$ F* ?0 ]% `  y先說明一下CAM挖槽(平行環切)的計算規則：
% ~' A3 j4 \# m0 b; {/ t9 r取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
* l! U+ O) W" ~1 c( ]! r9 e6 |U(#21)為切距.步距
#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
7 {5 C2 H' E! O0 w5 N#103=#102-#101(如果余數大于切距的一半，將會使用到他)
3 v5 S* y1 s/ r/ u$ K
- Q  V* U0 m, A以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
) @  B" z; D" N8 N4 Z丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣

. e% K2 o# q6 }9 o: _2 |" S7 L

3 i% }1 t( t6 y+ m) t6 [6 _
%
1 W  a( n7 H+ D# `) Y  MO0003(主程序)
5 d5 ]6 J. H. `% Z/ h7 V$ fG91G28Z0.
T1M6
/ T) I; p/ x$ G9 b$ gG0G54G90G94G17X0.Y0.
4 l; R* G& \# |) F% RG43H1Z100.S1000M3
- I$ A. A% s: ?" a9 ^/ DZ10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
7 `) h  C2 u# b& A" D7 LG0Z200.
! B0 R; P4 s/ k3 ^' Q; ~" G1 x9 ?G91G28Z0.Y0.
M0
%

' I1 W) z$ b  NXY工件的中心
( q3 b9 l, O( gI內槽的一半
$ L" h, z; G0 V" r8 U, m+ BR刀半徑
U切距
Z深度
; M& W- g; _' ?& g7 i

%
+ `, n- Q+ j+ S. f4 wO0005(副程序)
+ t! M+ Z9 Y) B# l- e' @& }8 G) I#100=#4-#18 (內槽-刀半徑)
. X0 C: X; W+ g" s- C" `5 ^#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)
0 W+ _" \- [' f% H7 K* c* A
G90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
+ V% o" }0 N! D) TZ#26F[#9/3.]

' p; r4 h' o; p& p$ `' ?9 ~(甲)IF[#102EQ0.]GOTO1
( x5 A( P1 o, N8 w5 x: ]5 ](乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
5 q. s3 X* N; q# C% N$ q. w(丁)IF[#102LT#101]GOTO4

# u4 E3 J# `- Q" e; e
N1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
6 E, ]0 p0 @% \6 }Y[#25+#101]
' h8 d! U+ ^; H4 _7 @X[-#101+#24]
Y[-#101+#25]
X[#24+#101]
Y#25
/ G9 A! {6 @* F- M& B' h3 v/ KIF[#102EQ0.]GOTO2
#101=#101+#21
END1
! ^8 g8 Z; y' L2 E6 i; w! h% GG0Z30.
  h" Z6 _8 x" }' c( ~8 H  jM99

$ _5 b, ~4 }! ~N2#27=#21(切距)
  v" X) m& ]/ V# vWHILE[#27LE#100]DO2
G1X[#24+#27]F#9
" v- h7 g! m& q8 [  R. mY[#25+#27]
# e9 m( I, H% EX[-#27+#24]
Y[-#27+#25]
X[#24+#27]
Y#25
27=#27+#21
END2
* }& r& @0 J% y7 j+ R& S+ ^, ZG0Z30.
M99

9 C# @4 h3 Y# w4 @N3G1X[#24+#103]F#9
* E9 k2 m  z2 [  l% Q& ?Y[#25+#103]
2 ]) R0 F/ e& X5 xX[-#103+#24]
0 x, K# y& j) a( m) z" eY[-#103+#25]
X[#24+#103]
Y#25
' b, q& Z1 @( t9 K/ P
. }0 D- J9 i& D6 \2 u5 ^N4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
Y[#25+#102]
% H; `) }# B7 K8 B9 {- b3 r# M$ |X[-#102+#24]
+ P0 |3 V, n: W, I( k# QY[-#102+#25]
. \/ U+ `* a$ {2 F( h9 @& i, mX[#24+#102]
  d& n/ {! J5 M1 e6 Y( kY#25
#102=#102+#21
END3
G0Z30.
; h7 o8 V9 {3 e) uM99
& g" d4 m, z3 i( c4 D%
3 A5 H9 e9 U' b6 j) C' v7 ]
以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
% F. l6 e9 _$ g我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
1 n" D( I) _; c' D/ M! a, Z你这个适合铣平面，建议你改善为可以铣模框的，带R角的
! @, v) r. @  d" `' z. C* T实现了以上，就增加做框四个面可以带不同斜度的功能
实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
# r6 |: ?' r) C实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
9 ]6 Z! x& ~6 c/ u! z到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
+ H9 q+ d1 r* f  B6 K7 T如：
8 o% k4 M* ~" ?& }0 ~7 f% PG65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
( t$ ~- t" a6 k6 nG65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
/ l0 k- ~* U2 K4 z# J: C以上為基本.簡單的設置

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

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme
& P8 h+ |4 o) x! Z) l% Q% ^
可能是你工作比較忙碌，還要加班沒多余的時間
我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏