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

羅蓋仙

小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
1 S' Q0 C6 C* t5 j6 P3 T) z- r
2 h6 F' V% w7 g- T( t2 M3 u9 k矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好
. u# k2 y+ [4 ^* ~1 f- w
先說明一下CAM挖槽(平行環切)的計算規則：
取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
& A! ^  @( N3 N; EU(#21)為切距.步距
3 N& s% D6 o' B#100=#4-#18 (內槽－刀半徑)
! z6 n$ l" q3 W+ m3 v4 v' j, y# O#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
% r  F% T+ y" H#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)
/ n+ a) C. d, r1 o. r8 P; \; d
7 F9 u! E5 U% c' L" ^以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
  \0 h7 N2 [' \' m乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣



7 H; L7 _0 d3 ]
+ ?$ }5 X% T3 [) k%
O0003(主程序)
G91G28Z0.
3 I; R8 @4 ~, Z$ \/ `1 M! q9 Y7 NT1M6
5 ]6 c# f" Y1 WG0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
Z10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
& L# w0 h# P8 Y) \8 U8 ]G0Z200.
G91G28Z0.Y0.
M0
%

/ [2 }" U4 ^" G8 u* E0 `XY工件的中心
! `  {% W, ]( vI內槽的一半
R刀半徑
) s1 I& v/ D* w2 e9 \5 uU切距
1 i: O9 T  J6 x/ T% KZ深度
7 T" o) E6 d6 f  b% O* p6 j% i/ b- l
# H; F/ Q8 S& L, ?/ }" h! X
3 k0 K( _( [4 }  }0 w, i  G%
O0005(副程序)
" E# c( {6 d$ E2 V$ s5 ^& {#100=#4-#18 (內槽-刀半徑)
#101=[#21*.5] (切距的一半)
4 W2 n* Z! {3 n#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
/ P: l( q9 @- k" I& ]! r$ ]8 P#103=#102-#101 (餘數-切距的1/2)
$ `3 u3 I- B# E* R; Z1 V& f& }
8 p9 {, U8 M9 `0 A2 Z& FG90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
Z#26F[#9/3.]
$ K: |6 j9 {/ ?8 f7 F8 Y9 z
(甲)IF[#102EQ0.]GOTO1
0 E# X9 g; ?0 D, n2 ~8 E4 \(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4


; `) @2 I  n- ^. C5 EN1WHILE[#101LE#100]DO1
9 |5 D2 h/ P) I# H$ }4 Q4 B9 aG1X[#24+#101]F#9
Y[#25+#101]
% i# o2 `. a3 ]4 I( ]7 O! B" Q4 rX[-#101+#24]
Y[-#101+#25]
X[#24+#101]
Y#25
IF[#102EQ0.]GOTO2
#101=#101+#21
END1
G0Z30.
# N( T3 |/ B" O' J) ]7 qM99

N2#27=#21(切距)
WHILE[#27LE#100]DO2
. }' V+ c6 x. l7 [# I& G4 g6 \G1X[#24+#27]F#9
5 Q* Z& y2 m+ T6 qY[#25+#27]
X[-#27+#24]
Y[-#27+#25]
X[#24+#27]
Y#25
27=#27+#21
' N' Z, o$ Y" A5 C7 e" jEND2
" t5 t/ Z( P$ w. u" L1 {G0Z30.
M99
/ ]/ _  z" a) L4 k7 V9 O
N3G1X[#24+#103]F#9
Y[#25+#103]
& m( M& p5 f; h- K  F  a) kX[-#103+#24]
3 z5 ~4 A" {  I8 C+ |$ ?: ^Y[-#103+#25]
, h5 x# s: t& j$ sX[#24+#103]
Y#25
2 S( n- I$ s1 I: e8 A
N4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
! J9 t( K5 e% T# G( {3 y% q' pY[#25+#102]
2 b7 ^2 }- L) ]/ Z" h$ }% J" xX[-#102+#24]
! {7 {$ J+ ~2 c; j3 e+ g  wY[-#102+#25]
, Z+ z7 u5 Y. s$ K, NX[#24+#102]
Y#25
#102=#102+#21
) u  I$ x3 R- w" K. k# JEND3
% `; X, ?  z# w, N  |5 q, u: N( \G0Z30.
M99
%

% u) A, n; I" N! b0 I5 ^以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
& x7 D+ a/ M3 L! M  _我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
你这个适合铣平面，建议你改善为可以铣模框的，带R角的
实现了以上，就增加做框四个面可以带不同斜度的功能
) y6 ~" S% c' }( o( ~8 Q: E实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

4 \" j# k+ Y/ `
謝謝指点
9 \8 O+ T1 w/ ?# a# U0 V$ b我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
2 K, b6 K, K) RZ軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
2 S$ u  y! X+ t# U如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
% K/ c  w0 d9 d" kG65P5X0.Y0.I30.R5.U2.Z-6.F300
, ~% l4 j4 o1 F$ e1 h- XG65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
: S" B0 r- v& M& X( l4 q以上為基本.簡單的設置
3 z2 E1 {1 E: j2 A
: I. c" z/ r" R  ?$ u如果最後還有內槽的外形铣削會更好，所以我這個只是理論
實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme
2 k* U# _2 l- M
, o# b2 _" Y3 o3 g+ B可能是你工作比較忙碌，還要加班沒多余的時間
8 c7 S- e- \/ W0 a0 ^4 \我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏