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

羅蓋仙

小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
5 e- F6 k7 X% Z: W5 c/ i* l
: _# H" B& m4 C* n8 K' q矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好
+ Z9 b7 i% p; P/ V9 \
先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
5 f5 o5 \7 _7 D+ E3 E  H) ^U(#21)為切距.步距
+ j) X+ s' {* S' c5 @+ I#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
2 e* H4 w1 e$ S3 e#103=#102-#101(如果余數大于切距的一半，將會使用到他)

, O% S! m% g% T6 _: {! X! A4 s以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
; t! h9 B( F: X, Y7 {乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
4 o7 M1 X- M8 I, T; |8 W* h丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣

# \% s, ^  J, D9 Q# {

: B- _! [3 ]+ l0 C& ]7 E" g
%
) J+ w2 ]! [( u9 h( vO0003(主程序)
G91G28Z0.
T1M6
6 M( N& E6 L$ F0 cG0G54G90G94G17X0.Y0.
. L$ I" |/ C$ q# Q# n; y! ^G43H1Z100.S1000M3
Z10.
& h2 Q+ ^, N: H, cG65P5X0.Y0.I30.R5.U2.Z-2.F800
8 i4 t' i% W  N0 ^) a1 }6 j% PG0Z200.
G91G28Z0.Y0.
9 d) L% |! Z2 U1 D8 h! Z8 F) fM0
" d* h% a2 \6 o5 {% [; b3 w%

% X0 e/ Z- o% R7 L$ t# |- G/ tXY工件的中心
; v& ^" N/ [8 ]! FI內槽的一半
R刀半徑
U切距
) T+ J# e1 Z: j" hZ深度


. y* q9 s! T# g& B) A%
. c% Z1 U5 y) J( B8 CO0005(副程序)
- B# p, p8 b8 X: n8 r/ J#100=#4-#18 (內槽-刀半徑)
#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)
7 ?  k2 _4 \5 q) s+ t, {3 n
G90G1X#24Y#25F[#9*5.]
) l' W0 t7 }+ S% {3 x  G# C$ kZ[#26+10.]F[#9*3.]
Z#26F[#9/3.]

& x8 J. _; N( k! s(甲)IF[#102EQ0.]GOTO1
: _, u* `+ ~$ s% \(乙)IF[#102EQ#101]GOTO1
6 A0 V! {- q& W( G9 S$ x. l& h) g(丙)IF[#102GT#101]GOTO3
4 E/ ?$ ]# `0 @' ?(丁)IF[#102LT#101]GOTO4
3 g8 a, L7 Q( l# \- _: [7 d& e4 p- F

N1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
3 Z% z6 {: \' h) R% X+ DY[#25+#101]
- {5 f1 ]! q- LX[-#101+#24]
! v- h5 \! ^- F/ M3 }Y[-#101+#25]
; D  |% H1 _" E, X5 n$ G( HX[#24+#101]
Y#25
* \6 u1 H2 c3 ?" u+ N* CIF[#102EQ0.]GOTO2
9 l' F# o# L* E0 A5 h9 d#101=#101+#21
END1
G0Z30.
) V6 |' h( h0 F) r0 k) lM99

N2#27=#21(切距)
WHILE[#27LE#100]DO2
G1X[#24+#27]F#9
Y[#25+#27]
X[-#27+#24]
Y[-#27+#25]
X[#24+#27]
Y#25
: E7 N( t. J" m" f2 ~% o8 Y27=#27+#21
END2
% B/ }# e. f" QG0Z30.
M99

) Y8 X2 g( m+ i5 c" D# _N3G1X[#24+#103]F#9
Y[#25+#103]
& {8 |& z' N. k$ x. ]X[-#103+#24]
Y[-#103+#25]
X[#24+#103]
Y#25

N4WHILE[#102LE#100]DO3
# ~" w; _* o0 G* z' ~4 U" cG1X[#24+#102]F#9
Y[#25+#102]
X[-#102+#24]
! P: N% j( f9 A8 q$ k5 _6 IY[-#102+#25]
X[#24+#102]
8 f! P/ t7 u3 O1 {7 Q+ uY#25
#102=#102+#21
5 k: U* p3 m; A7 |! M! z, UEND3
G0Z30.
M99
%
4 m6 g/ l0 E, L; x% l1 T
以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
9 a" U  t# e% o! m# r9 q我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
你这个适合铣平面，建议你改善为可以铣模框的，带R角的
实现了以上，就增加做框四个面可以带不同斜度的功能
实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

" y9 a: C# R) N3 U) D
謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
+ b+ h2 Z$ v# N, K1 p" QZ軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
0 y) Q' x! Z0 y, l如：
$ _% e0 i$ @3 _1 FG65P5X0.Y0.I30.R5.U2.Z-3.F300
. t* |( _6 o4 \8 n/ O2 m' g4 vG65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
0 M5 x; j8 R( N+ G/ {8 mG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
1 B' h7 ~' _( Z4 |4 w以上為基本.簡單的設置
1 @# x9 N1 k5 ]* E
如果最後還有內槽的外形铣削會更好，所以我這個只是理論
2 e6 U# h, o# p. T9 R實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme
' a% ]* ]( ]" L( M
. [+ F5 s& ?6 ^2 e2 O5 c可能是你工作比較忙碌，還要加班沒多余的時間
: m  L: {" K1 S我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏