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

羅蓋仙

- a: O/ j( P0 @
小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
7 w, ]# h% v" R( `/ ]: W9 ^
  b3 S, r% J* ?矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
3 ^) F# `/ i1 mU(#21)為切距.步距
#100=#4-#18 (內槽－刀半徑)
$ H& [# u! j6 ?+ F" h* P#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
; v! K/ o( N& ~. e#103=#102-#101(如果余數大于切距的一半，將會使用到他)

' w! R9 @) E" ^6 s& N9 t7 b以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
% r4 Q5 e% L% _  }1 \丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
8 |$ k9 k- x1 Q% y+ |$ s
! P; Q8 W  P9 c4 D. p* I/ r
6 m9 v" \* X2 D$ ?2 d6 q2 w
0 k. y$ G0 _5 t
/ N) s* ]$ t, {# Q%
: E6 s7 k" @  f9 e+ q, o  Z+ u5 Y/ LO0003(主程序)
* i1 ^9 L, U! I- ~8 M; v) l# r$ g6 AG91G28Z0.
T1M6
. l" O$ N( Y" r7 ^& F7 r* uG0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
Z10.
: ^; w  o# Z: K3 |! [) ~5 M( nG65P5X0.Y0.I30.R5.U2.Z-2.F800
1 {+ e+ D" h( q0 n0 sG0Z200.
G91G28Z0.Y0.
M0
8 R1 N; `& {- j; d  `%
4 S9 f8 C* ]* Z4 y* n0 W- h2 |
XY工件的中心
I內槽的一半
R刀半徑
U切距
Z深度
( l, N4 n4 W4 Z1 ?1 W

%
3 R+ x& V3 U8 y, e( l$ @4 dO0005(副程序)
3 H2 d$ h/ q' b! N# W# z3 X+ ?9 A#100=#4-#18 (內槽-刀半徑)
#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
' w; e9 B4 C; ~+ F& `#103=#102-#101 (餘數-切距的1/2)
& a* J- Q4 M* L, i3 W" Y
+ {( a# t# A3 ^G90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
, G5 k) l, w2 S# bZ#26F[#9/3.]

4 V" Y( o' `0 Y  r/ _6 j(甲)IF[#102EQ0.]GOTO1
. H7 `2 \; H/ D: I* y(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
3 C  `/ @6 P; ?+ c  O(丁)IF[#102LT#101]GOTO4
4 f) _0 l5 J0 G1 Z7 ~6 c

) _  y- f. H+ p# [N1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
Y[#25+#101]
X[-#101+#24]
9 `5 v; _2 X! ?Y[-#101+#25]
; I/ q. _2 v8 V& D. @" [1 uX[#24+#101]
3 \1 ?9 X1 H- y$ ~Y#25
2 ?; C. [: A5 lIF[#102EQ0.]GOTO2
#101=#101+#21
END1
& W! `3 `; Z# o  b  ~- ?, iG0Z30.
/ ?# t& h5 q9 f6 Y9 ]M99
3 Z: Q) M- N0 q
N2#27=#21(切距)
( m4 \+ _' U0 f0 ~% HWHILE[#27LE#100]DO2
$ d2 N- C' x5 O' u6 f" {G1X[#24+#27]F#9
Y[#25+#27]
) H% o% Q0 X% i# MX[-#27+#24]
Y[-#27+#25]
; ?* Q  ~- W* `4 r$ pX[#24+#27]
. O& T) ?; E* ^3 T1 G; e1 p. B2 yY#25
# n& `4 }5 |: E/ a( x, |; Q( y27=#27+#21
; `3 K. q% c5 y4 |END2
G0Z30.
M99

N3G1X[#24+#103]F#9
Y[#25+#103]
X[-#103+#24]
Y[-#103+#25]
! E5 J4 C7 y3 lX[#24+#103]
Y#25
' r6 x' k% g: B5 o# S  Y3 s/ N
N4WHILE[#102LE#100]DO3
. g9 X; T( P6 C! k  ?4 }G1X[#24+#102]F#9
Y[#25+#102]
( q% p+ D4 A+ T, gX[-#102+#24]
/ {' L) Z5 I- g. x3 x+ |4 q5 UY[-#102+#25]
3 a. F1 p! h0 Q" [X[#24+#102]
* Z+ Y, }" V  F& S) u/ _Y#25
* S# h+ ?/ f) ~' I( \$ C3 I#102=#102+#21
END3
G0Z30.
M99
%
; f; j' Z% X8 D3 h3 n
. p; y- y! B4 A! W, ~以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
3 e, J1 L% L' v. ^我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
! ?" `9 G2 T7 }+ [4 e8 B你这个适合铣平面，建议你改善为可以铣模框的，带R角的
实现了以上，就增加做框四个面可以带不同斜度的功能
' g4 A- Q. n1 y8 D0 m7 H( k实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

0 O- T  L* P+ I
謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
. A% \. O0 h  i8 r7 \Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
如：
( H  y: e/ E- D/ {G65P5X0.Y0.I30.R5.U2.Z-3.F300
/ K* K' a! L7 K4 B" g! G+ ]; iG65P5X0.Y0.I30.R5.U2.Z-6.F300
6 [- K9 M9 b/ f$ l. H% T: nG65P5X0.Y0.I30.R5.U2.Z-9.F300
* k& _" _# W; RG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
- Q, R" T) D' O- e3 `: k5 x" l以上為基本.簡單的設置
: X3 w% T/ \, }! s  O1 W
如果最後還有內槽的外形铣削會更好，所以我這個只是理論
7 R7 Y( L) V# }6 h/ m實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme
+ ~8 ~# P7 q& \; K
可能是你工作比較忙碌，還要加班沒多余的時間
; D& S+ A  }+ n7 ?我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏