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

羅蓋仙

! ^( |/ [2 Q* h" n  Q9 ?0 e小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
! O/ W; ~& N7 y8 q$ }
! `3 H1 H6 u0 g2 M4 o3 N' q矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好
% u4 J& t& F8 a4 n  Q6 k
先說明一下CAM挖槽(平行環切)的計算規則：
6 Y& o& }4 Q1 }' G7 ~( i9 _取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
8 h, q" W' ]. k" y! M1 c* V0 z#100=#4-#18 (內槽－刀半徑)
#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
#103=#102-#101(如果余數大于切距的一半，將會使用到他)

以下兵分四路：
甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
2 X# g' Q3 v  W3 O% A乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
( J3 V  ], Q1 e& o圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
: T9 f) L$ y- Y0 o% m

9 s1 `! V- B. I' t8 B) k
/ ]! O% {( ^' s* ^* L( P
' T/ g; j% @7 s2 w! u%
6 c# d* \  v# p" jO0003(主程序)
. T8 N+ h" m/ e" H2 kG91G28Z0.
T1M6
G0G54G90G94G17X0.Y0.
' O) H; J9 Z5 g5 c5 z- VG43H1Z100.S1000M3
! f, m1 E2 [% }; c0 g. KZ10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
G91G28Z0.Y0.
  x( b# y& A& n# s$ v6 m5 Q, pM0
%

# X* r' W5 i5 |XY工件的中心
I內槽的一半
R刀半徑
8 j; B; k* Y2 d! T) A, MU切距
Z深度


9 l0 u5 B; o0 Y. v3 T- g%
O0005(副程序)
#100=#4-#18 (內槽-刀半徑)
* I5 ^4 e6 o3 i, S9 Q7 E. d#101=[#21*.5] (切距的一半)
9 I) [/ A: v5 l" j' J8 P/ e#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)

8 \. m- u7 D! V! x( x8 o; Z4 bG90G1X#24Y#25F[#9*5.]
" a- |7 F5 B7 c0 F8 |/ C: f2 WZ[#26+10.]F[#9*3.]
1 Q8 }  r4 |. J- QZ#26F[#9/3.]

9 Z/ W- Q- T2 _( g2 T9 y) Z(甲)IF[#102EQ0.]GOTO1
(乙)IF[#102EQ#101]GOTO1
7 z. p, G6 n9 ^4 A( P9 ?(丙)IF[#102GT#101]GOTO3
(丁)IF[#102LT#101]GOTO4
# O0 |4 x( o4 b! R
6 f& s$ Y# `; W/ T, U" a& G9 u
) x& q# D8 h( J" W+ L& PN1WHILE[#101LE#100]DO1
/ W* P& T4 `! O9 d1 z7 WG1X[#24+#101]F#9
Y[#25+#101]
X[-#101+#24]
/ J+ `0 [: d9 x/ k  CY[-#101+#25]
5 `, w5 [) N( T7 x1 R) }5 bX[#24+#101]
; F( e+ I/ f/ @& E$ v7 x% kY#25
IF[#102EQ0.]GOTO2
#101=#101+#21
END1
' e# d' O8 q0 b4 f, T1 N& [% rG0Z30.
: R6 }# u7 d; z4 r; d& b. qM99
5 J9 O% ?1 o6 n8 _& a) L$ z: Q! ?
1 v3 e/ L9 |6 Z  T3 H+ |4 ?2 eN2#27=#21(切距)
- T3 @" j5 o: \8 Y0 o% HWHILE[#27LE#100]DO2
: C( B9 q' E& ~. o! E5 ZG1X[#24+#27]F#9
Y[#25+#27]
X[-#27+#24]
1 p3 v9 s' a' T% jY[-#27+#25]
X[#24+#27]
Y#25
% Z/ L$ I/ t0 f& E8 R27=#27+#21
& d- X7 |- E' x' d6 C) _* BEND2
G0Z30.
M99
, x4 P+ z+ ^/ d  R  Q) B* J
8 }6 V0 O2 L( Q. p' n7 tN3G1X[#24+#103]F#9
Y[#25+#103]
X[-#103+#24]
1 ~8 b" Q( B' R$ j& EY[-#103+#25]
X[#24+#103]
Y#25
7 S9 m; ]! p# P5 S
8 v6 D2 Z* Y2 P5 F+ U, nN4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
Y[#25+#102]
/ W% C* g! [% v" A) z' fX[-#102+#24]
Y[-#102+#25]
" u" D8 ?7 i, ^# f3 D+ a- d3 VX[#24+#102]
, K" X! b: k% n7 |Y#25
3 Z) p. P% i( ^7 O+ G& W#102=#102+#21
END3
G0Z30.
M99
8 a/ V! ~' q- v" r%
' R# u1 E1 l: r2 R
以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
& u  H3 a9 S% e8 @: s8 a* ~你这个适合铣平面，建议你改善为可以铣模框的，带R角的
实现了以上，就增加做框四个面可以带不同斜度的功能
- [2 N% M- q% u' W, }% R1 @  X; s实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
3 Z" [9 ^9 ?* l* U# s2 O' O实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

4 t) E4 [" Z4 }9 \8 X4 C% m9 z# H! v
謝謝指点
, k0 [9 t) L+ t' N' I% H% m: I我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
7 I. p: `; o- i/ FZ軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
5 I, h' Y0 ?9 Y) u! b如：
G65P5X0.Y0.I30.R5.U2.Z-3.F300
( O! ^% g/ P* X& l8 v! I" gG65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
: {5 u3 M% Z5 l/ c4 s- CG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
( G1 t% `1 d) n2 W以上為基本.簡單的設置
- {, a) x+ K$ c4 q" A$ _
如果最後還有內槽的外形铣削會更好，所以我這個只是理論
# z9 j# A/ u& G% n實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme
- i" k: c0 ]* G1 J# u' M5 m2 r& R
可能是你工作比較忙碌，還要加班沒多余的時間
我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏