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

羅蓋仙

: c8 @0 t$ d3 Q6 c
0 v* O8 P! R& K  Q; j小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
0 G$ {7 [0 h6 W+ ]2 y. }0 p找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看

矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好
! c' v. ^6 Y& z( D( q
; Q8 P$ D0 Z  |0 S. y/ G4 _先說明一下CAM挖槽(平行環切)的計算規則：
; N" i& ^, O- S+ l! k取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
2 f+ d# L( k& C1 E#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
1 z0 P- L4 |: O: M/ S+ n+ V' a#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
/ n+ m5 ?0 w" \6 ^#103=#102-#101(如果余數大于切距的一半，將會使用到他)

以下兵分四路：
7 d4 b' `' I+ l& S# i- r/ r甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
8 [$ `$ [6 U# ~8 \6 D乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
) i  X, V  c/ U4 B' i/ H圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
; R$ q/ [* n; y  ^3 p; S; p0 O& ~


& x) H0 o2 z/ U- d4 N
%
9 T, T# J, E- t% `O0003(主程序)
7 d) p1 }1 `* a* W6 m( Q6 q, {G91G28Z0.
T1M6
G0G54G90G94G17X0.Y0.
G43H1Z100.S1000M3
Z10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
G91G28Z0.Y0.
M0
" y! P" K; _9 [' [; P%
3 q% H" M8 }2 I) H1 _  o
+ `% c( d4 }. o9 HXY工件的中心
% ^* w$ I7 @* }. r  FI內槽的一半
R刀半徑
U切距
3 h+ w( P) h5 k7 s4 \9 ^Z深度

' ~* z4 Y- k9 d! n( b: a" u9 ~4 b$ l
%
5 h8 ~. K1 n% _* f: ^* H7 tO0005(副程序)
#100=#4-#18 (內槽-刀半徑)
1 \- e- ^# h1 F: _2 k#101=[#21*.5] (切距的一半)
! w7 z7 R; d  }#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
# h& H- O9 B6 {: h$ X4 j- D( s#103=#102-#101 (餘數-切距的1/2)
+ a0 G+ }+ S+ |1 }& U2 O1 r
) Q6 p7 u- U; t9 T+ Q* Y) C( ?G90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
9 [" l% a: i% ^3 f% }% QZ#26F[#9/3.]
2 Z0 F' J+ o* C: U3 m* o. u8 n
(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
& a, X+ X9 l* Z7 N, o! l  I(丙)IF[#102GT#101]GOTO3
: t! l! x: n# G( a) x" w(丁)IF[#102LT#101]GOTO4
5 G( ~9 ]" W: g) j
9 A5 ~% B" S2 L/ n5 j
N1WHILE[#101LE#100]DO1
; D( r: f( b0 ]G1X[#24+#101]F#9
Y[#25+#101]
X[-#101+#24]
Y[-#101+#25]
# j6 q1 ]3 l% iX[#24+#101]
# _0 o1 h# F1 v# WY#25
9 G8 z8 E2 y) @4 J* E# C, G/ d* R9 RIF[#102EQ0.]GOTO2
#101=#101+#21
END1
G0Z30.
M99
+ m( M- B& Z& {$ Y
N2#27=#21(切距)
- z. s4 j# O3 x4 Q1 d! eWHILE[#27LE#100]DO2
2 N; F6 q$ H% K: AG1X[#24+#27]F#9
Y[#25+#27]
X[-#27+#24]
Y[-#27+#25]
X[#24+#27]
6 l' m% i1 D( nY#25
27=#27+#21
: x! o1 o4 h, S  D* k' M- t2 J: z/ oEND2
G0Z30.
M99

" w) t0 p' P' ]: w' a/ xN3G1X[#24+#103]F#9
* N  \" u6 `4 s' @( W: K2 qY[#25+#103]
X[-#103+#24]
Y[-#103+#25]
X[#24+#103]
/ {0 h- {5 e0 c  D$ K; ]/ WY#25
1 z: f' [, U3 a8 ]% y
" f+ n: q2 d5 a7 VN4WHILE[#102LE#100]DO3
  l" Q' i4 ~. |+ H: O; VG1X[#24+#102]F#9
0 x  y+ J5 G4 p7 i& J$ ?9 X* Z9 uY[#25+#102]
8 r$ H' g2 X# ?4 ]9 KX[-#102+#24]
2 Y4 d1 ~5 v: e1 ?) vY[-#102+#25]
X[#24+#102]
: t7 ]4 x2 C/ FY#25
/ J1 \7 q8 q* b5 `9 Z9 B#102=#102+#21
+ M- r' W& ^; U: _+ zEND3
G0Z30.
M99
%
% G2 t" j$ n- H1 J
- d& C$ A  p: W4 O& w; o  \2 _' y  C以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
" i9 j; K$ `* f& C9 {; H3 d我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
你这个适合铣平面，建议你改善为可以铣模框的，带R角的
实现了以上，就增加做框四个面可以带不同斜度的功能
; j' w" k( _/ ]9 z0 j实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
& h0 j+ n' e. ?  Y$ H2 a到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

; f- [- }$ K- E! w5 M
謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
0 g' h, f5 s0 Z9 \0 g8 ~Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
& t, [8 n# _0 i如：
4 Q8 A- X2 J( h! j+ o, {4 l3 c, zG65P5X0.Y0.I30.R5.U2.Z-3.F300
0 R8 g3 j3 B+ O& E. c1 X/ I2 LG65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
% J  g) B7 Q% J8 e- nG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
7 _: f) Z$ n! \% t5 u& [以上為基本.簡單的設置
) W1 ^) v( o+ u" \2 @
) j0 n" a$ b1 u& F. W7 o& x0 ^如果最後還有內槽的外形铣削會更好，所以我這個只是理論
實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme

0 j$ M/ [, i- S7 y9 W( h可能是你工作比較忙碌，還要加班沒多余的時間
" Q, S) X! M/ a0 w7 `" ~# }我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏