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

羅蓋仙

8 [" H* Z+ a& }5 }
小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
3 p- {, j) F& B$ Q. E
6 s  v  ~* h/ Y9 j3 p矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

先說明一下CAM挖槽(平行環切)的計算規則：
0 `' W" J& a& V5 s取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
/ M* a. ^' r! _* Z* p. ]0 l#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)
+ W. S" T6 U' o  p/ l
6 o9 E% E0 P% w8 ~以下兵分四路：
& m; b9 J* Y  F2 N4 O. k  p' V9 B甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
$ S' _, T# n2 F1 J乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
. i7 K; z1 y5 H8 U, L' d丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
* N$ J$ j* k% ?丁.IF余數LT#101. ：先做#102，再用#21加到底
, P6 ]% l& I  S9 o7 v) u圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
, K# C: n3 s; q, ?  |4 P

# [9 F; Y% D: V+ O1 i6 B1 Y

%
O0003(主程序)
G91G28Z0.
6 F; o% ~+ ?: y1 nT1M6
9 Q- j4 `  k+ F3 hG0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
Z10.
8 L1 m4 g! s% P; l) ~G65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
G91G28Z0.Y0.
M0
* [: P0 x  n6 [! q%

* ?% B  f* d. a, ]+ h% \XY工件的中心
I內槽的一半
R刀半徑
U切距
8 _1 d( s2 E5 `1 o' ^5 `. Q/ I7 tZ深度

( ]0 K! L* r: p' v7 j& R# z/ N
1 \" V( y/ L$ w% t% F! Z%
" [; g& [" p( U9 }O0005(副程序)
, [0 T5 f% T. C#100=#4-#18 (內槽-刀半徑)
0 z* o+ k- d; F- f#101=[#21*.5] (切距的一半)
8 w/ _! e, H; o+ L$ [$ `# M( E0 B6 x" n#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
/ s( [* ?, |9 M" _$ u6 C2 n1 }#103=#102-#101 (餘數-切距的1/2)

G90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
Z#26F[#9/3.]

(甲)IF[#102EQ0.]GOTO1
' Y! G+ W# {" X, S(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
9 @* Z. M% T; C( ?' N(丁)IF[#102LT#101]GOTO4

5 C- e' }  u% N* W! H$ d7 J
& h* p+ @& n% `4 I+ {N1WHILE[#101LE#100]DO1
; \. U5 ~# \9 l/ [G1X[#24+#101]F#9
4 A1 d& S# ~, i( Y! u. e* ]- CY[#25+#101]
X[-#101+#24]
Y[-#101+#25]
X[#24+#101]
Y#25
3 l+ z/ c% K( w2 ^9 ^: FIF[#102EQ0.]GOTO2
# b$ h% V" }- [& U#101=#101+#21
END1
  E4 W$ z# L! w: A) zG0Z30.
M99
* y% t4 J# s  p% f5 T
' q# E5 i  r! [N2#27=#21(切距)
WHILE[#27LE#100]DO2
G1X[#24+#27]F#9
Y[#25+#27]
: y; H9 I9 M. A, p" P0 aX[-#27+#24]
Y[-#27+#25]
4 h9 D, e, r9 ~, `X[#24+#27]
Y#25
7 {8 `' |0 d- |4 J- N4 \27=#27+#21
END2
5 y; S, c1 E  V: QG0Z30.
& ?3 B! Q  t  VM99

N3G1X[#24+#103]F#9
8 x- L5 B0 R. p) X8 s8 U" g, o/ WY[#25+#103]
8 w7 B/ m) i5 t" z& D' F4 GX[-#103+#24]
Y[-#103+#25]
X[#24+#103]
Y#25

N4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
& Y, b1 x, Z0 rY[#25+#102]
, m: L- e, M$ JX[-#102+#24]
1 z2 V0 |+ A' l2 k* v+ j9 aY[-#102+#25]
X[#24+#102]
5 j! Y# E6 m0 N. Q) ]/ Q7 v( aY#25
3 q% P  N" ]5 K4 s+ v#102=#102+#21
END3
G0Z30.
M99
%
: X; v% `6 x2 z- Q" d9 _
6 s6 K, i; B+ @+ U! a0 ?# v5 Z& c; @3 h以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
# r4 d5 E; q, n2 @  k. u4 X我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
你这个适合铣平面，建议你改善为可以铣模框的，带R角的
实现了以上，就增加做框四个面可以带不同斜度的功能
3 R* o! o$ m. _  `% d, B: |; H实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

- ^& A6 q: ?4 a6 E
  _* |$ R8 F# z/ i( |謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
$ q3 b0 r* X' j7 ?& n& ~Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
: }) V7 F6 W( F3 }* h, @如：
* [0 J2 f4 L0 P$ F: H0 IG65P5X0.Y0.I30.R5.U2.Z-3.F300
5 J3 K6 X3 d6 |0 `4 Z8 s/ AG65P5X0.Y0.I30.R5.U2.Z-6.F300
! K0 ^$ p+ M( N( g# r: HG65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
% L9 n) s( i  v以上為基本.簡單的設置

6 r9 K; l: Q+ M$ P2 k9 N1 t如果最後還有內槽的外形铣削會更好，所以我這個只是理論
8 R) `" j; ~2 m3 G- t實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme
; G) P& p% Z( q$ J
2 U  g* D, ]0 L* }- G- K, t可能是你工作比較忙碌，還要加班沒多余的時間
我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏