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

羅蓋仙

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

7 ~- C( Z4 b+ \) Z: D# Y3 m8 r* |矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好
( e$ z: O( j4 U( O: |. s* w) d
先說明一下CAM挖槽(平行環切)的計算規則：
, m  v) [% E- V/ U. S5 a( {+ ?取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
$ |' e( D4 Q$ tU(#21)為切距.步距
#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
) O+ e) [. y1 d# U8 x3 ]#103=#102-#101(如果余數大于切距的一半，將會使用到他)
4 U" G) ^2 x+ Q  f( [& p
3 K- Y6 g( c$ M# W! f2 Z以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
6 y  ?5 q' z1 N乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
0 y$ z0 w* A0 c. ^- e9 _丁.IF余數LT#101. ：先做#102，再用#21加到底
4 v: b2 m+ j, ^6 P8 @4 j6 p( |圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
* H9 E4 o( @8 Q; n( ?2 Q6 j8 z
1 O* m( `3 D9 u
, r* P( J8 T9 s. ]) C

%
O0003(主程序)
+ d$ [" ^* {* l! GG91G28Z0.
% x  C' _! _% b2 FT1M6
G0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
Z10.
  F6 X& J! @8 b) i# lG65P5X0.Y0.I30.R5.U2.Z-2.F800
2 i4 {; l6 G! v$ @G0Z200.
/ l; ^8 @! O7 m4 ?2 k* eG91G28Z0.Y0.
M0
%

# K( M( W$ {3 H7 aXY工件的中心
! L; H" H/ l4 ]  l3 f9 HI內槽的一半
R刀半徑
) n; b6 x. D" F- M: I% CU切距
Z深度


' w7 r! x1 h. y' w4 K$ ], ^%
O0005(副程序)
#100=#4-#18 (內槽-刀半徑)
5 q& B5 \5 `% J! [* B#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)

7 g: {0 e  ~$ iG90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
Z#26F[#9/3.]
& ~% j0 r/ P4 h$ [9 c
(甲)IF[#102EQ0.]GOTO1
, s% B: T! V' H5 c3 S(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4
) E* Q7 k9 I2 m1 `; F( S# P
2 y3 w3 U% E# @' f$ x
9 \& B3 h: [7 {* }# G) E1 `2 N) YN1WHILE[#101LE#100]DO1
# X2 p7 s; Z/ i& p, ^% nG1X[#24+#101]F#9
Y[#25+#101]
X[-#101+#24]
3 d) V  w$ x& M. F2 h) F1 K5 xY[-#101+#25]
X[#24+#101]
Y#25
. c  y. q& n: e. `5 Q; B( F1 ^) oIF[#102EQ0.]GOTO2
#101=#101+#21
" O* {7 t2 @3 ]) X; HEND1
3 r: @$ K" I- W* X1 R! CG0Z30.
1 x3 ]& x- S- W# k. [4 b! xM99
. K- g# D) W/ I( R; M
N2#27=#21(切距)
( y* m& a* |$ S0 J) Y: a5 XWHILE[#27LE#100]DO2
6 E" S, E" a. L: T5 _G1X[#24+#27]F#9
8 `! U1 z* y: u! d' U9 yY[#25+#27]
X[-#27+#24]
( ^! w% o0 m2 z$ DY[-#27+#25]
9 R8 M) O( W4 q! |2 M' I% A: ^! ]X[#24+#27]
Y#25
27=#27+#21
4 l7 ]3 M/ c8 w4 j/ p: J# WEND2
$ P2 i) R: h8 Q+ U7 H0 @0 k. eG0Z30.
& k  S4 ]0 E+ b+ A( y9 J  i1 PM99
0 o3 N! h, Q/ J7 _
N3G1X[#24+#103]F#9
' S& z. Q% J: n- s' A! fY[#25+#103]
X[-#103+#24]
0 c+ |( I+ P/ s  q5 {4 fY[-#103+#25]
* M' k2 E. ~8 D* M2 rX[#24+#103]
Y#25

N4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
Y[#25+#102]
$ g: t/ k- X* E, ?X[-#102+#24]
Y[-#102+#25]
X[#24+#102]
Y#25
+ h' h" z2 |3 E#102=#102+#21
END3
, t6 |5 P, T* U  wG0Z30.
M99
1 [$ `5 w) |, b% B%

  z% |4 _& \9 F/ f6 ~以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
& \8 p0 D: Q, f+ c我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
8 ^& [* q( @9 L8 n- f- K& `你这个适合铣平面，建议你改善为可以铣模框的，带R角的
2 Z. g% e" g! {) ]! n实现了以上，就增加做框四个面可以带不同斜度的功能
" ?! h# F5 \) u# j: Z! F% D8 |实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
9 ?9 n* M$ I" U5 I实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
# x$ G5 S. j7 u  G  q* j到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

9 W( k$ D# z& W) P, `; j+ ], E# |* W' g
7 q; p5 D5 N( {( a* Y謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
7 K" @; D- ^7 M' v" N: zG65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
9 E& A; I; h% l4 x8 `3 @6 |G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設置
3 k1 X& i9 q7 {+ _
3 H5 U' b- \) E+ f4 c& g如果最後還有內槽的外形铣削會更好，所以我這個只是理論
; L8 ]( e- w' C- J. H9 F% U7 h實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme
; i  W3 z5 @& f1 ?0 N; }
8 o3 n) K; [, ?% n1 Q可能是你工作比較忙碌，還要加班沒多余的時間
我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏