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

羅蓋仙

/ `$ I# ^& q) o. C1 ?8 ^
/ w6 ^2 Z+ N) l) x* a- T% U小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
4 h% ?4 ~6 c5 A! `# v  r找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
) r: ~& V0 F# E3 x3 p
+ k3 ?# D  o- R7 @5 U* z矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

, v& ?; f7 {6 x- O. \* [* |2 Z先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
% N4 i, q6 T. Q, C- C% ~# xU(#21)為切距.步距
#100=#4-#18 (內槽－刀半徑)
" Q/ @1 O9 T; Y0 f+ V' ^5 i2 }#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
6 m# ]8 S% Q9 E- C/ f9 Y7 r#103=#102-#101(如果余數大于切距的一半，將會使用到他)
" U5 n$ ^& a* f: b; ~$ u# e. }
以下兵分四路：
8 t& ^5 O( M$ O8 Q甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
6 C. Q; @% Q& y- C丁.IF余數LT#101. ：先做#102，再用#21加到底
, Z7 D7 }* w" s/ C+ D# v! ?圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣


6 K# d/ u7 q; K% B
/ _8 J  C# h0 p  s
%
8 W( n3 J: x: a0 D0 a% U# O) j2 rO0003(主程序)
$ N8 b6 m1 P& X3 ^# g! N  FG91G28Z0.
- h1 I6 R* f) B( {: k7 XT1M6
/ K# ]7 h8 L2 d5 E' F: N) z( DG0G54G90G94G17X0.Y0.
/ C# }) v# A5 {! BG43H1Z100.S1000M3
Z10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
* q  z# [3 @# s5 \, \G0Z200.
. r" g/ m; V$ t7 H. W5 [2 uG91G28Z0.Y0.
) q8 e! F' o! GM0
5 s5 g* {$ X/ k* f. Z7 e%
2 a" r7 f4 \/ k
' Q/ j4 J& c4 C- V# s) a0 s) SXY工件的中心
I內槽的一半
+ k( Q8 n# G; w- u1 q8 xR刀半徑
1 |8 |* o+ I& @$ V: G5 j0 v, BU切距
Z深度
4 O; m7 j: T9 j. C0 E! F, z5 }2 x

4 l, U0 C( f$ i# \0 e%
2 y; \& X! v7 e  GO0005(副程序)
#100=#4-#18 (內槽-刀半徑)
0 |8 W( K, G1 z( [# c#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)
( q4 z6 v' R% N0 W7 c
* I8 @2 a7 @; n+ f: _% k2 L4 SG90G1X#24Y#25F[#9*5.]
# _- H5 D" ^; ~- c+ ?8 jZ[#26+10.]F[#9*3.]
. l, N$ }& g; _- b; W4 P) LZ#26F[#9/3.]
, h, b3 C" c6 u
(甲)IF[#102EQ0.]GOTO1
" C. n8 m* ~8 Y: b6 t% E. P3 y(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
4 V- F: I$ m- Z" z(丁)IF[#102LT#101]GOTO4
+ y: X2 I# w2 a( ?4 }
8 m( t- w1 |3 R+ m1 P2 m5 R
1 N5 V: v2 o( |) xN1WHILE[#101LE#100]DO1
9 G( e3 n8 H9 Y/ T, }3 M/ T; zG1X[#24+#101]F#9
Y[#25+#101]
2 n% f( A- u8 @! {, V" p9 P; m. XX[-#101+#24]
Y[-#101+#25]
, x1 s# S" v# pX[#24+#101]
Y#25
% t& I* M  o/ u6 u8 ]; LIF[#102EQ0.]GOTO2
#101=#101+#21
END1
% ^* }2 \$ T( A  OG0Z30.
M99
1 X6 ~9 L8 p# U& r$ _7 q
N2#27=#21(切距)
  Z; s; T# N0 O+ LWHILE[#27LE#100]DO2
" |! z# {, O# c9 LG1X[#24+#27]F#9
Y[#25+#27]
: |' R4 k$ O; S9 UX[-#27+#24]
Y[-#27+#25]
0 u7 w! p8 t! P4 `X[#24+#27]
$ P* a! Q) y8 P/ p' @) zY#25
27=#27+#21
END2
G0Z30.
M99

; ~! N6 f+ P: b5 M# I9 {9 sN3G1X[#24+#103]F#9
Y[#25+#103]
5 O5 z. _- i2 B. K$ v. r" e' ]) MX[-#103+#24]
Y[-#103+#25]
X[#24+#103]
Y#25

% `) f( K" {* s6 @' ?N4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
0 j0 z: n: h7 J- ?: oY[#25+#102]
X[-#102+#24]
Y[-#102+#25]
X[#24+#102]
5 x% ~4 Q- p8 ]7 S5 ~Y#25
- S( w* `& u  D' P- {6 J  L#102=#102+#21
- t5 N4 g) W# N% f) T0 _4 H4 vEND3
( f' E0 p. n# s' \5 CG0Z30.
- q/ r9 E6 j2 c* _4 c! N+ jM99
0 @1 _% D8 O2 A, [5 @& B, m1 X% ?%

以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
8 h( K! [8 E  W+ a( ]3 T( ^我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
3 B' r; E2 k; @  O. B+ R, ?5 @你这个适合铣平面，建议你改善为可以铣模框的，带R角的
9 }' h0 U6 N  b$ A3 k. q8 `! f实现了以上，就增加做框四个面可以带不同斜度的功能
实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

6 r& z2 m) m" g1 M謝謝指点
4 e& K8 w" r# p5 b& N5 C我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
' t. ]; T" x+ u. T8 kZ軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
如：
& S# d7 V2 C: \) D- L1 ?; l* rG65P5X0.Y0.I30.R5.U2.Z-3.F300
3 q1 ^1 w5 t! t3 S" b7 HG65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
( q  k+ ^1 \& g4 q! X以上為基本.簡單的設置
1 v; ]: L) S% |7 j( o8 s' n
, S1 X! f2 p) G5 r如果最後還有內槽的外形铣削會更好，所以我這個只是理論
實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme
/ K8 }$ T9 s- e/ @/ S
# G$ ]' c1 G* u( c可能是你工作比較忙碌，還要加班沒多余的時間
我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏