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

羅蓋仙

+ A3 z, k! {  }
小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
" w' E  z, z# s2 W* Z找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
% b3 w  \2 M; P% ?6 g* c
矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

+ `* X7 X' q- D3 k1 O先說明一下CAM挖槽(平行環切)的計算規則：
0 X' N8 I- _  t! v0 E4 K取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
5 s# ]4 T- d2 w! C5 |. z7 p#100=#4-#18 (內槽－刀半徑)
; t6 e4 _1 ?1 f4 |9 ?5 ^#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
- V, x1 e: _7 @2 D- P( m! K#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)
  z' F3 m+ Q& D3 C5 P2 N8 O# R
: r& I6 U4 _0 Z! x以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
* U& ^3 Q/ q  o/ y1 I* ]" m0 P乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
! X/ E# f& O1 d0 S1 Z, {, [圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣




; X# c' X! ?& c8 B9 l2 |%
- _* ?" u$ E4 C6 i; ~- m: y& [O0003(主程序)
6 H, S  v1 r  p, s0 n$ G# SG91G28Z0.
6 W9 `0 X4 |; D4 ~- O" p' OT1M6
G0G54G90G94G17X0.Y0.
& w6 t0 m% A5 z3 L+ `: G4 ?* u* K- f- P/ QG43H1Z100.S1000M3
Z10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
9 H' ^4 }, i! eG0Z200.
! e) k3 u! U  X* Z1 r( sG91G28Z0.Y0.
1 Y  q0 u, Z& ~6 L! u4 oM0
%
! K% S7 ~/ x. N
XY工件的中心
/ Y& b( X$ D8 _$ [I內槽的一半
R刀半徑
U切距
( B7 \5 u9 V8 X: m! `& n+ qZ深度


%
O0005(副程序)
, r2 m7 w# k) v' a: _" x#100=#4-#18 (內槽-刀半徑)
#101=[#21*.5] (切距的一半)
#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)

' B3 h  ]# ?. Y  \) R/ H$ k. JG90G1X#24Y#25F[#9*5.]
Z[#26+10.]F[#9*3.]
Z#26F[#9/3.]

(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
(丙)IF[#102GT#101]GOTO3
. A9 o1 U  S0 x: ]2 a(丁)IF[#102LT#101]GOTO4
5 h/ y" `2 g  |+ g8 d$ ?3 O
# A8 b# P; Z0 r2 J; G: ^
! X, w- v+ w' i0 H0 pN1WHILE[#101LE#100]DO1
2 r1 R  j7 d8 ?3 {G1X[#24+#101]F#9
4 F) e' f1 F, S3 r& n& jY[#25+#101]
. O# D0 |! l1 R4 g3 g3 mX[-#101+#24]
2 p. J  \; P; m8 s& W" \" e7 Q! T- z) vY[-#101+#25]
X[#24+#101]
+ d: F: q$ S8 D9 w4 ]Y#25
! `& Q* w/ r  S, LIF[#102EQ0.]GOTO2
#101=#101+#21
0 J2 j0 |$ G' o" j* OEND1
: z8 O( u9 \2 i/ M; EG0Z30.
0 K- O7 }% D( W$ d* pM99
! `/ {; p. @7 j0 Z2 H2 j& ^- J. f
N2#27=#21(切距)
WHILE[#27LE#100]DO2
; X' v% K" Q" J  A, H+ d' X  c- yG1X[#24+#27]F#9
Y[#25+#27]
X[-#27+#24]
Y[-#27+#25]
X[#24+#27]
7 `4 ^: C  {2 D  O) L8 wY#25
27=#27+#21
% Y, d# b9 H. EEND2
) @- Q, u0 a- M$ I) ?: o: d) XG0Z30.
$ B2 g( |. z1 g; n; Y/ JM99
" ^4 \) k# v+ k7 l2 O2 \, h) r
N3G1X[#24+#103]F#9
Y[#25+#103]
( }9 M' V0 W3 G, bX[-#103+#24]
Y[-#103+#25]
8 P1 e  X0 K6 o# J- ], r9 P5 tX[#24+#103]
) I" k& b% e6 U) p" o: QY#25
$ V6 F, `% H+ V1 T) m1 X
! {( h% D' u6 `+ \5 w6 GN4WHILE[#102LE#100]DO3
& [7 }; V1 W. ?9 z4 \3 pG1X[#24+#102]F#9
; E" \7 ~% k9 E! @: R. [Y[#25+#102]
, Q7 G- p- m$ Q  ?X[-#102+#24]
Y[-#102+#25]
% X% K/ x0 q% |* `( ]& f8 vX[#24+#102]
8 w: x, p. [7 F( o9 F0 B1 f5 uY#25
#102=#102+#21
END3
7 z, `" e7 n9 H. I3 S1 p  sG0Z30.
M99
7 T7 w+ V, P; n7 ^# ?: w! N%
% G4 F! b/ g- M
以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
& {% \* r$ ~0 u6 P* J我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
你这个适合铣平面，建议你改善为可以铣模框的，带R角的
实现了以上，就增加做框四个面可以带不同斜度的功能
1 \* h' E+ N8 s7 \' S) J实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
3 Y9 C. g8 T5 o+ m4 Q8 P到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
+ F) d: l' X; T  cZ軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
0 x5 M& j( ?: _/ W+ e: D/ |G65P5X0.Y0.I30.R5.U2.Z-6.F300
# A& l3 k- }$ d* NG65P5X0.Y0.I30.R5.U2.Z-9.F300
G65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
8 Y1 C, v# F4 B  W: A- f以上為基本.簡單的設置

如果最後還有內槽的外形铣削會更好，所以我這個只是理論
) v$ q0 ?1 t. n) F2 K, v實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme
, G  l: y7 W$ b, u& Q
, s$ `% z2 ]5 Q1 ~& d, y可能是你工作比較忙碌，還要加班沒多余的時間
3 R; u$ X0 Y$ C3 \  k9 \& {! x1 {我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏