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

羅蓋仙

小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
1 o* u$ p! a! w- D找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看

矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好
( z5 @, u3 c7 T  f7 W) Y- d4 ?
# ~% D/ @1 |' C) l" r先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
% |6 n+ Y- _( I" c6 _#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
. i+ ~3 e( {# T! O* u. I1 ^#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)
  q" r$ Y6 @5 l, ^/ r
以下兵分四路：
( X6 }& g3 [+ Z' `9 v- [甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
* M2 Z% p5 |/ Z/ x5 H乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
/ |0 A/ G. G( v丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
" \) Q4 s* N- ~4 d: b- A; A圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣

* s$ S7 {  }, X" R+ r
4 U; g9 }" X' G  q/ Y

7 P. y2 w6 t4 Z$ G, V9 v) f4 K/ n%
O0003(主程序)
G91G28Z0.
" ?; W# l/ n* P2 p- u2 l4 W$ lT1M6
3 Z' Z& n9 w9 J# I3 K. O! FG0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
Z10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
' k0 l: q+ r6 O$ ?. j$ TG0Z200.
% o2 E( U5 a% B) K9 \) D. x& ]7 bG91G28Z0.Y0.
0 O3 S# x; g$ T4 ~) HM0
%

9 x% x# |; o: f2 N9 J8 ^XY工件的中心
$ h+ {( @) a5 C7 h& {I內槽的一半
R刀半徑
U切距
Z深度
) _7 |+ K/ m5 s/ t: q% E

% v# Q. {* M% S% N%
& ~) W. U; w! [- nO0005(副程序)
7 p7 b- E' }  G* C9 i#100=#4-#18 (內槽-刀半徑)
+ R3 Y# K  M+ c- P, d1 I#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)

3 D1 Y9 o9 ]1 DG90G1X#24Y#25F[#9*5.]
! G! i8 t. c2 v# i  D; RZ[#26+10.]F[#9*3.]
% j" |5 }. P) S+ o: GZ#26F[#9/3.]
1 T! e; m8 n  C' w  \
(甲)IF[#102EQ0.]GOTO1
+ P9 M1 }9 W2 y2 X* O2 G  o(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
( t0 ~, u" i' L" a; r(丁)IF[#102LT#101]GOTO4

# W0 y4 ?7 p' X; M; j* L. b2 i
. h8 A3 K: f$ v+ U1 p+ tN1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
& d% _( c8 P1 o' m2 ]: T) [Y[#25+#101]
X[-#101+#24]
Y[-#101+#25]
. t$ g6 T& d6 k- JX[#24+#101]
2 f# S1 ^1 H8 S: }9 O2 IY#25
IF[#102EQ0.]GOTO2
- @# [4 x  V- w4 \& \#101=#101+#21
END1
7 \- G" R+ p9 z+ _" eG0Z30.
* h$ T9 I9 H' s: s7 t% q+ m  oM99

N2#27=#21(切距)
3 [' i9 {' [$ B  z7 U1 pWHILE[#27LE#100]DO2
G1X[#24+#27]F#9
8 w# B9 z9 a0 WY[#25+#27]
& t7 o& Q3 u( W; I% HX[-#27+#24]
, B! U6 ?% r- N4 Q# K2 e" ~Y[-#27+#25]
X[#24+#27]
+ F8 x% a" k& [3 j, F8 gY#25
  g' Z. u% `; |27=#27+#21
END2
9 o; P! @! U& H1 P2 @. ~( o1 mG0Z30.
M99
5 j& G% {; A1 F3 Z1 m
7 l7 [& G% R6 B; q6 I1 jN3G1X[#24+#103]F#9
Y[#25+#103]
# d- J7 I& J3 @$ ]+ M2 AX[-#103+#24]
: [- N7 F% i4 O; s/ I( z* b0 F9 ]Y[-#103+#25]
' m/ T0 C, k2 B% ]/ Q1 a  g3 oX[#24+#103]
5 ~4 z9 G* f- G4 p- O. |Y#25

N4WHILE[#102LE#100]DO3
; T/ f) n; N' bG1X[#24+#102]F#9
Y[#25+#102]
X[-#102+#24]
3 F! H+ E; j$ u+ I0 j: h" KY[-#102+#25]
X[#24+#102]
% F2 r3 s, z, D, D4 w2 C& V4 ~4 BY#25
#102=#102+#21
END3
9 o; h6 T0 e/ i" x2 IG0Z30.
M99
4 R8 d# A4 v5 c- F%
* Z7 _8 `& M# q% v8 B7 J  p/ Z9 B
以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
, p+ @/ m  d" E* P4 Z. B我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
你这个适合铣平面，建议你改善为可以铣模框的，带R角的
) W+ s. \& w' h实现了以上，就增加做框四个面可以带不同斜度的功能
0 ^3 |3 s! ?  k5 N* `0 \实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
" ]0 r3 ^4 m# J# u4 G2 ~( P/ G; l到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

* d9 l% }% g- D: z( n
( I2 s  [6 A) `& h. W) k: m4 Y謝謝指点
$ J7 @2 s* S, E8 V我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
) K7 S  L0 ~, L& r. ZZ軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
. ]+ l" i3 O0 e$ U% R7 u如：
3 S8 X( S4 E1 Z0 H) M9 A2 Z3 r5 Z+ }G65P5X0.Y0.I30.R5.U2.Z-3.F300
( ~' H% T) ^$ t& w3 h- j3 e9 J. Z1 {G65P5X0.Y0.I30.R5.U2.Z-6.F300
0 w' M5 I) f  sG65P5X0.Y0.I30.R5.U2.Z-9.F300
. r+ `7 {9 u; @& SG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
/ z, y. \7 K% E以上為基本.簡單的設置

; ?" e& F5 @5 ]9 @. _如果最後還有內槽的外形铣削會更好，所以我這個只是理論
+ R3 s" B7 c! j9 `實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme
! `3 N& z; p! C4 U+ a
可能是你工作比較忙碌，還要加班沒多余的時間
  |# R6 ~" j+ S9 t; Q我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏