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

羅蓋仙

小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
0 Q+ k# V/ _" B. ]+ E* w' }; A. o找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
: N8 [0 h* b: E$ Y7 }
& V3 I- y% \' R" r矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好
1 ~  Z2 Q. y  u3 B" L" V, E) {
' h% I, B% P& p* g先說明一下CAM挖槽(平行環切)的計算規則：
0 q3 c+ t$ Q( ?& O- I取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
  M# W; Z( Z/ r9 `#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)
; b2 H. T9 r- E
2 c$ O8 o! R- R以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣

登錄/注冊后可看大圖

% x, b  @  X) E0 B

登錄/注冊后可看大圖

7 F' D$ L" K/ S

6 h0 c2 y5 j3 x% m/ u%
O0003(主程序)
G91G28Z0.
T1M6
7 V, U3 ~' L9 N1 DG0G54G90G94G17X0.Y0.
. V2 _" Y* W6 Y& u5 \; }% iG43H1Z100.S1000M3
Z10.
& }* ~: }3 v0 s9 G* ~. l8 J7 eG65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
* _3 e6 f2 y) PG91G28Z0.Y0.
M0
# C1 ]$ ~$ X1 m%

XY工件的中心
I內槽的一半
& r1 N, `0 J$ w/ {' m& aR刀半徑
& ]. U, x* P# W  p+ ?U切距
Z深度

( g0 V" ?. J; V3 h" l) w
6 {# C7 |8 i2 W# L%
4 J3 P5 x5 d5 _# C% d# @/ @O0005(副程序)
+ ~6 B) A" v6 Q' o! o#100=#4-#18 (內槽-刀半徑)
#101=[#21*.5] (切距的一半)
. ^& l! B! A" _, Q. N1 M#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)
3 ~9 K* R6 P/ a: I4 R% V
) N( W$ s  r1 T0 x, H( uG90G1X#24Y#25F[#9*5.]
' ?, U# |- V+ p* w; D. A. a7 ~+ eZ[#26+10.]F[#9*3.]
6 I) `* P. x8 ~. b" Q, Y& M; `  HZ#26F[#9/3.]

(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4

6 e8 }' a. D* n( a& ~) L
6 H  I# k# L/ w0 |# M" N, sN1WHILE[#101LE#100]DO1
G1X[#24+#101]F#9
# q0 }- t& b0 j! _; v  [Y[#25+#101]
( V% Y4 Y# K3 J( u0 i9 PX[-#101+#24]
5 k2 ~! d# J2 iY[-#101+#25]
8 R; d& V1 D1 L+ z6 @3 C4 r5 OX[#24+#101]
- _' K* ?: Q; m2 A7 y2 [Y#25
IF[#102EQ0.]GOTO2
#101=#101+#21
END1
G0Z30.
' P" `% b; j0 AM99
  A3 p4 l. w& I2 Y- a, K
1 ^- O6 n+ I  m1 BN2#27=#21(切距)
6 J; e; p+ h5 G  W0 GWHILE[#27LE#100]DO2
G1X[#24+#27]F#9
7 S* \0 b5 J- r" aY[#25+#27]
* }" Y; c' `, r$ T! ]0 mX[-#27+#24]
Y[-#27+#25]
+ G: R7 r0 X9 ?7 ]2 w. yX[#24+#27]
Y#25
27=#27+#21
END2
# \5 J! @5 T( t& G% M; GG0Z30.
M99

; G: h- U0 [+ q: z- f& G" aN3G1X[#24+#103]F#9
) M# [8 z* ]/ b8 o6 ?$ r: _Y[#25+#103]
X[-#103+#24]
9 c5 k( u/ n* B5 Z9 ]) V3 CY[-#103+#25]
X[#24+#103]
Y#25

5 ?3 F7 ?: `8 AN4WHILE[#102LE#100]DO3
: g" p4 K9 F0 o# @. y4 {7 UG1X[#24+#102]F#9
, k9 `6 Y7 @9 S+ FY[#25+#102]
# N3 X4 k4 z* V& ~3 d5 L# b0 qX[-#102+#24]
Y[-#102+#25]
X[#24+#102]
0 B& I9 T4 ~1 k5 B. u3 TY#25
#102=#102+#21
* G  k3 L& y1 A/ ^- Y3 Y' WEND3
G0Z30.
9 @8 M0 i; }: J! C8 a$ ^M99
$ J( A& [* u8 Q6 H1 V; F2 C, G%
6 n: |% ^! o; o$ W% m3 I3 [* x
以上有實際在機臺上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空氣中的小魚

首先，先支持一下

空氣中的小魚

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

空氣中的小魚

回復 1# 羅蓋仙
你這個適合銑平面，建議你改善為可以銑模框的，帶R角的
% m- d9 @+ W- R& W' Q0 |  U* p實現了以上，就增加做框四個面可以帶不同斜度的功能
+ ~7 V. z+ T  I: o實現了以上，就增加加工四個面底部加工不同R底的功能（要有R底加密走刀）
' N* |- I1 @: d7 O7 r) u5 x實現了以上，就增加加工四面面頂部加工不同R底的功能（要有R底加密走刀）
7 Y% s( T( h" }1 K. `+ j# D到了后面可以增加走刀模式刀路，比如，走邊，走底，插角。。。

若楓

我在聽天書，

羅蓋仙

3 y) L2 a1 U  r! A' t" D' P: M
謝謝指點
, f/ x; [' M) L# j. z! q3 u我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
* U# x. x' R- A2 }6 ?& j4 kZ軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
: Y! O" v2 n$ x3 P5 c1 X如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
% R0 ~% f4 D" h$ L5 G  W  ^! RG65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
以上為基本.簡單的設置
9 c- d9 b3 S4 m; @! D; M5 O
如果最後還有內槽的外形銑削會更好，所以我這個只是理論
實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,頂!!!

cadme

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

羅蓋仙

回復 8# cadme
" s* a3 j1 y  c$ f" Y3 F- K9 {3 w% @
: X+ y* ^% D6 E可能是你工作比較忙碌，還要加班沒多余的時間
* U) G6 T( |- ]8 U+ ?我比較會忙裡偷閒，悠閒很快樂

lixuejin

確實看不懂 很少用宏