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

羅蓋仙

% K# e1 j0 e1 a0 v$ |小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
2 b( R) A' A9 X' F8 j; s' a4 K找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
: @; ^( g1 R7 j5 X! l; N
# X& h7 c: z" J& \9 D矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

先說明一下CAM挖槽(平行環切)的計算規則：
1 Z- o4 y' r& v$ N* \取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
2 w& X1 @% z- z7 P1 e. t( M#100=#4-#18 (內槽－刀半徑)
4 J! A2 C& Y$ k#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
8 w2 r. E5 W  B) E. h#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)

以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
/ I+ H" P8 d% u8 r, e. \乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
9 {  S/ ?5 `! a# E; T( \/ j丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
+ }9 {% ?& W5 n

登錄/注冊后可看大圖

登錄/注冊后可看大圖

. w' Q2 [! Y% ^
%
O0003(主程序)
G91G28Z0.
8 I: s0 H3 W0 Y3 H% MT1M6
G0G54G90G94G17X0.Y0.
% T9 n2 x, B! n& I% j( X& _G43H1Z100.S1000M3
Z10.
. E" w" ?3 E1 @# B% [  s+ N# w& XG65P5X0.Y0.I30.R5.U2.Z-2.F800
9 O: e7 J9 @- p4 k/ Z: ZG0Z200.
3 |- a/ K. A3 S! B! LG91G28Z0.Y0.
M0
%
8 q5 Z" \" s. G; v! b- K* D
XY工件的中心
I內槽的一半
R刀半徑
U切距
) i4 V3 u9 B+ g# N$ Q0 ]8 J. {Z深度

0 ^9 L$ u; V7 A& u) {3 O' D
& K% b% B* a* [4 F. L%
" K0 z( ?( F/ ^( b3 w/ P4 C% l5 MO0005(副程序)
: T# ~8 f8 c; @7 y+ E$ g4 _7 F#100=#4-#18 (內槽-刀半徑)
( Q1 w6 `( T3 O2 D#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)

G90G1X#24Y#25F[#9*5.]
$ j3 a$ [. x8 y* a  ~Z[#26+10.]F[#9*3.]
Z#26F[#9/3.]
2 [4 S1 g" G$ Q4 v
! X' w  i# @' `(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
! V9 z2 I5 W) i: l(丁)IF[#102LT#101]GOTO4
7 N' @4 O, N7 h" w, a4 Y

: [# m/ D0 U. C& U7 QN1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
! Y* R) W7 k8 B# v/ ?Y[#25+#101]
/ D$ a' ?7 \" ?" Q2 @X[-#101+#24]
Y[-#101+#25]
X[#24+#101]
6 B  J+ J+ e) [% fY#25
IF[#102EQ0.]GOTO2
7 G+ _6 b# ?  e3 a#101=#101+#21
/ [$ j# h" @( Q! i2 g1 ^6 {5 m3 DEND1
G0Z30.
1 @; {( G5 W' f) ]) q6 GM99

8 W( ?0 ]2 T5 `8 v) L/ pN2#27=#21(切距)
WHILE[#27LE#100]DO2
( _8 f0 h. Y7 M' \G1X[#24+#27]F#9
Y[#25+#27]
  D( I5 g" y1 x5 g, L& R1 q* lX[-#27+#24]
Y[-#27+#25]
X[#24+#27]
Y#25
# }1 P4 M* b) ~) {# [, O27=#27+#21
END2
; }2 N1 w) \  m1 W+ ?- FG0Z30.
M99
5 R* O5 {6 K2 E8 S% ]. U9 P5 W
N3G1X[#24+#103]F#9
0 S6 B3 t* T: c  ]Y[#25+#103]
% @1 K7 P# g6 A' {- o. G+ kX[-#103+#24]
3 _2 R& ?8 w$ @8 w  e5 Q- t& K& ^Y[-#103+#25]
X[#24+#103]
Y#25

# H2 H5 L: t% M: I% AN4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
2 t+ }1 B0 B. [7 a; J( BY[#25+#102]
) C8 E, _$ w. R* I- f0 ^X[-#102+#24]
/ d4 ?. q! k" s" O$ K, HY[-#102+#25]
: M+ K* ]9 I* X, s# W2 l& K8 AX[#24+#102]
# o7 Q6 a4 y6 B  i/ _Y#25
3 ?" J8 ]2 L5 d5 R1 Z& y1 C#102=#102+#21
6 A, Z$ V& b$ Y2 H$ ^$ i: p6 sEND3
. J) A" B, M6 N! |" V! F7 eG0Z30.
$ k# h( V9 Q  I* G$ P; S' F% f7 LM99
%

  c# `  [9 N3 R3 N  V以上有實際在機臺上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
7 E7 V8 f. e7 B9 F4 W3 k我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空氣中的小魚

首先，先支持一下

空氣中的小魚

我記得應該是2004年，我也寫過類似的程序，先去翻翻看能不能找出來。
不過后面也如樓主，重寫了N遍，最后的最新版本給模塊化了，好像是2009年是最新版本，只寫了FANUC和TOSUNC的系統，主要用于模架模框區域加工，可以加二維和三維，加工類型比較多，程序能夠共用相同系統不同版本，具備容錯性能，人性化操作，程序必須配合機床參數方可使用，程序總共大概上W行，由于是商業話的程序，我就不貼出來了，
找個單獨簡化的貼出來看看吧，不過要先找找，不一定能夠找到。

空氣中的小魚

回復 1# 羅蓋仙
你這個適合銑平面，建議你改善為可以銑模框的，帶R角的
實現了以上，就增加做框四個面可以帶不同斜度的功能
實現了以上，就增加加工四個面底部加工不同R底的功能（要有R底加密走刀）
實現了以上，就增加加工四面面頂部加工不同R底的功能（要有R底加密走刀）
& F4 {, w4 M# w: R3 K到了后面可以增加走刀模式刀路，比如，走邊，走底，插角。。。

若楓

我在聽天書，

羅蓋仙

2 O- K# D/ S# @2 n9 V( c: L謝謝指點
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
! P( ]: H5 v" ~7 H, S9 e如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
6 M$ a' h+ \$ u  t1 wG65P5X0.Y0.I30.R5.U2.Z-6.F300
, |5 B8 h& s4 Q2 E; \" _! C9 zG65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
" ?9 n) W- I, w9 V" d$ a& _以上為基本.簡單的設置
1 ^. H# g2 R9 H7 b- s
8 C, H# P3 G: e2 @8 g! M如果最後還有內槽的外形銑削會更好，所以我這個只是理論
, \  p/ a+ \5 r實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,頂!!!

cadme

佩服樓主，原理看的明白，但自己一直沒有這個耐心。

羅蓋仙

回復 8# cadme
- B4 N' `4 b+ Y0 K
, L- B& ^" \+ d/ [1 k可能是你工作比較忙碌，還要加班沒多余的時間
我比較會忙裡偷閒，悠閒很快樂

lixuejin

確實看不懂 很少用宏