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

羅蓋仙

: t5 X# d' H/ K/ v, ]* U# ?- Z
/ }2 T9 A( R' O9 [, T! h% H+ v& ^) z3 v& x小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
" m- S+ E: f/ [# D找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
5 Q0 r/ L5 `8 t1 ]% j$ f
矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

! ^9 Y8 `4 q7 z9 K3 Y* m" ^  H先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
* Z9 s( |0 Z# E8 t/ R6 ~' mU(#21)為切距.步距
#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
+ c% E6 j4 b# }" q#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)
$ S2 ]% ]: y. |, `8 x- W% p5 J+ j
+ ~1 c" y3 Z6 k! k0 m* I以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
. i5 L8 A6 D/ c6 [" s丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
3 _" J0 B! ]; L3 h- G( A! u圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣




%
6 _. x( W( W6 SO0003(主程序)
G91G28Z0.
T1M6
G0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
+ ^" ~: h" ]) q- _, {& S8 K7 JZ10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
) u5 x0 v% n  N( Z" O$ f) @& e6 Z9 TG0Z200.
G91G28Z0.Y0.
M0
. ^. t. I) X. s%
: Y1 e2 a) f. r+ R8 [$ q" a' b1 K% t
XY工件的中心
I內槽的一半
R刀半徑
# F. K8 ]7 `* w, R( pU切距
7 t2 K0 l1 q1 h9 W' ?% mZ深度
0 j  n* C/ m6 d2 T$ q( L, w/ Y) C. b
: f8 y: H+ R9 F8 e
$ p& W& [+ C0 u1 V0 E%
O0005(副程序)
4 X/ `! q$ J( n) k! B7 g#100=#4-#18 (內槽-刀半徑)
2 p8 C; y$ P3 j* d' B) q. V#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)

G90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
' x" U9 M# Y8 @) DZ#26F[#9/3.]
* T5 l& r) ]4 V  n, {
(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
  B* @2 `4 H3 N/ N" G(丁)IF[#102LT#101]GOTO4
. _6 }( R3 B  ?# ^

) y# F5 Y3 Z$ R& Y  q9 q& C2 P# `N1WHILE[#101LE#100]DO1
# \" L2 V2 O6 Z  |) M& Y* ~G1X[#24+#101]F#9
1 m* }. \$ r+ `' H. j& `7 B2 PY[#25+#101]
X[-#101+#24]
  N- O  |! H" m; |Y[-#101+#25]
X[#24+#101]
Y#25
- a% u1 v) |1 m3 O' A7 pIF[#102EQ0.]GOTO2
9 ^2 ^! J- F2 J#101=#101+#21
END1
- V) d7 G) n" m$ J2 j' n% rG0Z30.
M99

6 S: J! u  L4 {$ {7 K% I! P1 MN2#27=#21(切距)
/ ^( n0 V/ l/ H( Z7 f( AWHILE[#27LE#100]DO2
G1X[#24+#27]F#9
, M( ]1 T# F: P7 V& o" yY[#25+#27]
1 m5 }$ t/ t, C  \$ K5 s$ F% S5 E$ dX[-#27+#24]
Y[-#27+#25]
X[#24+#27]
Y#25
$ r. h( c# v/ \4 B( u/ {27=#27+#21
END2
% q$ {0 y; {, I4 L9 ~G0Z30.
3 i( f/ Z; V1 H' h1 {! _M99
" g2 T) K3 m( F; j$ J
N3G1X[#24+#103]F#9
* j0 W& z/ |3 z" c% l* P8 U+ MY[#25+#103]
X[-#103+#24]
Y[-#103+#25]
! i0 M1 F1 H7 u1 y6 ZX[#24+#103]
Y#25

N4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
! y! O, ^2 F; H/ _. VY[#25+#102]
+ p: J* k& a7 ]: [+ BX[-#102+#24]
Y[-#102+#25]
9 c5 f. t' M  V8 h' t* YX[#24+#102]
( Y, z* T$ i: P+ JY#25
#102=#102+#21
END3
G0Z30.
M99
0 F8 G( j* V: ^%
; b2 [3 w, J; `7 S! i4 g) b4 ?
  j, S# r+ F) p/ q! H) z0 C; J% m以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
: b8 P& d$ w/ z5 ^8 g9 R你这个适合铣平面，建议你改善为可以铣模框的，带R角的
) `6 |- V7 H5 S" x, v9 p4 V1 B实现了以上，就增加做框四个面可以带不同斜度的功能
, B7 z: N' e( A/ i7 t& t实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
, k( X( L! T0 q- X( P* z" I/ E4 f- n实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
* c  i+ l/ K" ]到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

謝謝指点
& {) m0 \' h; x/ [) }: {我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
* u5 C* E0 ~: m3 B* D7 fG65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
6 k3 w9 e' ^+ o% r: X' \4 b0 E; x/ ]以上為基本.簡單的設置

如果最後還有內槽的外形铣削會更好，所以我這個只是理論
. M! U0 M1 w# m/ o$ ]5 i4 @實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme
  I( ~/ w( v' [' c
7 y: F- S3 R+ v) h! t* Y) I可能是你工作比較忙碌，還要加班沒多余的時間
! u# ]! o$ D( U1 E  L# R我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏