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

羅蓋仙

小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
7 U" {: c  u0 ^* e- g
矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好
5 z0 W3 Q! R' s" X* L6 t  J2 F
先說明一下CAM挖槽(平行環切)的計算規則：
1 V# d' @, A- U7 j- O2 {4 m, g; M, l6 Z取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
4 }0 m1 {1 L3 p$ {' L" B; H#100=#4-#18 (內槽－刀半徑)
4 D* e. k, X+ C#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
6 r5 C" t4 q- M# u9 k8 A#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
1 J" Z: S: A0 a8 |& A#103=#102-#101(如果余數大于切距的一半，將會使用到他)

以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
/ v6 n5 r3 L1 H( z" j乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
6 O9 k, v. o. R$ m. d# X
0 h5 q7 a) e  `! a


%
% A* \" n: J& H! a2 SO0003(主程序)
G91G28Z0.
6 e- ~$ i8 A8 v6 B+ w: LT1M6
: R7 B* B; l0 a. b" {( j6 JG0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
! N  r& @6 l5 `Z10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
" K' X% W7 ~2 j" {/ X3 q; ?* sG0Z200.
G91G28Z0.Y0.
M0
%
3 b. b5 s/ ]+ f' Q; `6 l5 K
0 V8 X& m! Y. v2 w* dXY工件的中心
I內槽的一半
R刀半徑
" T4 d0 \. [8 L' T. @8 r8 l$ XU切距
Z深度
1 j3 K. ]) K: z: _

4 G: Q0 a: M0 g- S# @%
& X9 n2 C5 a% F$ r1 WO0005(副程序)
#100=#4-#18 (內槽-刀半徑)
#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)

3 J6 e9 b0 M7 }G90G1X#24Y#25F[#9*5.]
4 S' D6 _7 M, x' X) d/ ^* fZ[#26+10.]F[#9*3.]
( j9 F9 Y( S4 _0 _' D' X. U- QZ#26F[#9/3.]
* K  m: D. S3 i8 D/ J! E& e5 }
(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4
3 q3 j  o$ k) U* T# @7 o2 }

N1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
Y[#25+#101]
: W5 e( V) ~4 oX[-#101+#24]
: {4 }3 ^% n1 d, m; D' yY[-#101+#25]
X[#24+#101]
! O1 W, z; n0 X8 b( S" f' kY#25
IF[#102EQ0.]GOTO2
2 p, V1 H7 |; I$ s- m5 [; m1 b#101=#101+#21
/ n; c% m) z! u4 Q9 T* w  `END1
G0Z30.
M99
3 f  ]$ L/ \( V' F1 v- g
/ [6 ~# o, u! Q& pN2#27=#21(切距)
( q: W- ~! x% I. Z8 J8 p6 gWHILE[#27LE#100]DO2
4 O$ Z, O* K; P4 l6 dG1X[#24+#27]F#9
+ M( [  h. P- H6 q1 ~- h- {0 TY[#25+#27]
4 u" e1 _* l# GX[-#27+#24]
1 M! ^, L# R- J$ }Y[-#27+#25]
8 p2 \$ i$ P2 f" H# A5 [X[#24+#27]
Y#25
27=#27+#21
END2
G0Z30.
6 I% U0 H# Q* s& JM99

N3G1X[#24+#103]F#9
Y[#25+#103]
' o7 ~2 C4 T2 a# _X[-#103+#24]
Y[-#103+#25]
X[#24+#103]
9 f8 ~3 T( W* R1 ?+ r  |Y#25

N4WHILE[#102LE#100]DO3
+ |7 c- S. w6 t/ zG1X[#24+#102]F#9
/ A3 |1 n3 U& `% u- p$ zY[#25+#102]
1 Q5 U9 }( g6 {* Z) PX[-#102+#24]
Y[-#102+#25]
, f2 {3 f9 g: ?5 O! o' o. w) H% `X[#24+#102]
% N" j/ z0 `5 z0 b$ N$ TY#25
* }+ r5 d& _# A; K# ~6 ~% `$ X#102=#102+#21
. u3 z& g6 D+ ~8 PEND3
G0Z30.
' ~2 r" l0 S# r1 r) I" \M99
+ N% ?7 u  w6 ^& C2 R+ ^; d%
6 O( D. k- y/ ]3 {$ B6 J% @% U& L2 V
以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
你这个适合铣平面，建议你改善为可以铣模框的，带R角的
实现了以上，就增加做框四个面可以带不同斜度的功能
' K8 w, P' b: f* [- g实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
* D- d) e9 z& \: V实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
2 A  x3 \0 k, s+ P: a到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
6 q- ?% Y- d. W* }" F; sZ軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
G65P5X0.Y0.I30.R5.U2.Z-6.F300
9 j: `, Y. P* k* q: a; r6 aG65P5X0.Y0.I30.R5.U2.Z-9.F300
9 e- A0 b, v# M5 g3 P, UG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
: e  I( \% F) c3 W0 D以上為基本.簡單的設置
6 P1 W# S- c0 |8 ]" I( x
如果最後還有內槽的外形铣削會更好，所以我這個只是理論
, ?) @3 t" T  S6 F實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme
, V1 h% v2 b  T4 |& X
可能是你工作比較忙碌，還要加班沒多余的時間
: k1 ^2 z% Y" X8 }+ m我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏