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

羅蓋仙

& o+ g  R) [5 W5 D  m! G. H8 d' V4 Z
小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
9 V+ d0 J- @4 p7 }! l6 x( H  B找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
5 D' n* l1 n! M2 }9 r2 C
5 _5 e" J% A3 m6 d; K: P! u矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好
( i8 J. p! g1 X- k5 t( ]( }6 k4 g& j% y
2 o3 K# r$ H$ k  k- C先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
: H0 D+ `* C, F8 l6 r' q  w4 ~#103=#102-#101(如果余數大于切距的一半，將會使用到他)

以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
! ?: I; R, ~. U, l3 a3 g+ U8 W乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
0 k9 I& ^2 Y" w7 R丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣

6 F" u0 X, \  p+ d$ _' d. k
2 z" k8 b' O. v, m# s

%
O0003(主程序)
( V0 a6 y9 G/ K4 ~6 KG91G28Z0.
$ g1 H9 V$ e3 bT1M6
' V" u6 r; w( B6 ^7 |G0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
Z10.
7 |$ J% W% W/ CG65P5X0.Y0.I30.R5.U2.Z-2.F800
& g; P/ @: D4 E$ |1 L' f& TG0Z200.
G91G28Z0.Y0.
* k* f8 w! ~3 E# }* VM0
%

/ w7 u+ a% ]4 z* |XY工件的中心
I內槽的一半
1 M$ j/ a2 j5 G* sR刀半徑
  f0 z4 D: O% ~  q5 q, d7 nU切距
" \8 }  I. m7 a9 q6 MZ深度
) x/ G- ]: s7 Q8 c

2 B2 o0 G1 u9 j) }8 \%
7 S' D) Y3 Z- F  gO0005(副程序)
$ L1 i5 m2 Z/ f9 I: C! T# R#100=#4-#18 (內槽-刀半徑)
% V0 c" m+ E: w* N/ c# Z: F. \4 D#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)

G90G1X#24Y#25F[#9*5.]
' b  Z# ^, D! V) TZ[#26+10.]F[#9*3.]
- J* @& r* w5 F0 C! F1 n. [5 e( }Z#26F[#9/3.]

(甲)IF[#102EQ0.]GOTO1
! W+ }+ u; D" K; Q0 g& I, V. E(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4
  y4 d5 K- ?/ n2 K* D) l3 `
& K+ g) d  ~0 `! w4 d9 N7 V
) g' T. A3 D; q  TN1WHILE[#101LE#100]DO1
, J$ T+ u; ]: |( ?# a# |3 J, f3 ~  HG1X[#24+#101]F#9
8 u+ N. o! I; U% t' k3 e9 ]! D( mY[#25+#101]
4 }6 J. v7 t- h  k0 AX[-#101+#24]
; {+ e2 b3 b. B0 fY[-#101+#25]
- F+ E7 E4 M1 x7 |  {1 TX[#24+#101]
& F! t9 u1 ^+ R) Q1 \Y#25
IF[#102EQ0.]GOTO2
. a6 I* b6 n; _% e, }#101=#101+#21
END1
G0Z30.
9 `; U6 D0 x. Y- d% F  V8 nM99
1 C/ L+ U9 X9 c0 b
N2#27=#21(切距)
WHILE[#27LE#100]DO2
G1X[#24+#27]F#9
  J3 n2 Y6 M- D: l) bY[#25+#27]
X[-#27+#24]
Y[-#27+#25]
X[#24+#27]
! f5 y6 O) {& y* e5 FY#25
27=#27+#21
* {4 x$ p: J3 K. [  p3 T3 K9 O+ TEND2
G0Z30.
# K1 `3 m; w% w. H+ K+ hM99

. ]* V8 j5 y8 Y( N6 L+ _/ H, \N3G1X[#24+#103]F#9
6 P4 y5 |  h1 Q4 I* k4 C, XY[#25+#103]
3 x1 w3 @3 E7 c7 |" m* o6 k+ UX[-#103+#24]
5 i) @* b6 \- u# L. }4 DY[-#103+#25]
  m4 \: A) }$ U) ?! Z. v: LX[#24+#103]
Y#25

  c) N# C4 b4 K7 d' hN4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
& O( J* f( W' jY[#25+#102]
) Z1 ]6 H( Q/ L7 \1 p8 sX[-#102+#24]
Y[-#102+#25]
X[#24+#102]
Y#25
#102=#102+#21
+ Q, v, \' c! X* Y* H% z) J4 {5 EEND3
. D# r0 Z; y0 `: f7 R$ W6 dG0Z30.
- U0 ?& Y7 _! I- f- K0 [M99
4 w" y+ W- ]; a5 E. K4 _%
- l- P; z/ b% }1 o1 [/ G$ L: I
以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
你这个适合铣平面，建议你改善为可以铣模框的，带R角的
- l& ?! V: e6 J4 l  [9 @4 f9 J- l实现了以上，就增加做框四个面可以带不同斜度的功能
6 [- Z: _% [4 X. @: t* S; A实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
0 h: ^3 C% Y  z: |- t) d* x, c+ o" c到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

謝謝指点
3 B& N( J& P# x3 K; e我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
" r3 {; I# E6 q# c如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
: O7 \# Q/ Y2 W8 EG65P5X0.Y0.I30.R5.U2.Z-9.F300
& m" a3 ~0 L/ N& _5 |1 AG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
! x$ W7 W6 v: z7 w6 o! M6 d以上為基本.簡單的設置

) I; ~- k" D- i如果最後還有內槽的外形铣削會更好，所以我這個只是理論
5 a; E0 F, J* O5 W實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme
2 B: f9 l+ @2 ^2 v- \2 a
( H; }) h8 G5 E6 n4 `- r2 k可能是你工作比較忙碌，還要加班沒多余的時間
我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏