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

羅蓋仙

+ }' K6 K  z4 x小弟兩多年前寫的，那時剛開始被老師教會使用CAM軟體與變數程序，結果發現我對CAM軟體沒有太大的興趣，
; H, d9 Q8 r% \: C; @% {找不到目標寫，邊玩CAM軟體發現CAM的平行環切很有規律我去研究了，於是著筆寫寫看
7 i/ F3 N# k, v) _5 o9 |5 ?1 @
矩形槽(長方形)還不適用，我這個程序只針對正方形槽，這樣比較單純讓網友易懂，長方形原理也一樣我有私自寫好

先說明一下CAM挖槽(平行環切)的計算規則：
) V8 a1 k  t( y, s3 s4 w6 r取內槽的一半為#4，假設槽單邊長為60mm，半內槽Ｉ為30.
U(#21)為切距.步距
  U0 i8 y' P) u5 U" ]1 j#100=#4-#18 (內槽－刀半徑)
$ ~9 J0 ]* Q# T+ U3 k#101=#21/2. (切距的一半，準備用余數與#101做對比的分界)
#102=[#100/#21-FIX[#100/#21]]*#21 (取余數)
" j5 B) o" B" x#103=#102-#101(如果余數大于切距的一半，將會使用到他)
! s  T" Y2 l+ e1 u" ?
以下兵分四路：
0 r( O7 S0 D8 w- F( q, P8 J3 |甲.IF余數EQ0. (剛好整除)：先做#101，再做#21，然後用#21加到底
乙.IF余數EQ#101 (切距的一半)：先做#101，然後用#21加到底
* d- U$ \1 c5 H  }  v7 `, T6 }1 I2 _丙.IF余數GT#101. ：先做#103，再做#102，然後用#21加到底
丁.IF余數LT#101. ：先做#102，再用#21加到底
圖解兵分四路，以及左下図為CAM的路徑，右下図為我的路徑，其實都一樣
& O8 p4 U: L* u

  f7 V# M, z5 s4 o
& c& v( I- Q# g! Y4 T9 L
6 P& t( M# _- [9 f%
O0003(主程序)
G91G28Z0.
T1M6
6 J$ Y9 |4 ?/ N& [4 dG0G54G90G94G17X0.Y0.
1 f6 v& O5 H( I  o( X0 A# V* y5 `G43H1Z100.S1000M3
Z10.
G65P5X0.Y0.I30.R5.U2.Z-2.F800
G0Z200.
G91G28Z0.Y0.
M0
%
8 u' Q5 v7 I  v" R$ p$ a2 F; t
XY工件的中心
+ X) Z4 b& e; @" mI內槽的一半
. i' Y& ~) b- c1 A3 oR刀半徑
) Z" U4 E5 g/ J6 X; kU切距
! R! o7 m+ Z3 Q3 j7 pZ深度

5 w8 q! R" U* T- Z1 a) _& y
%
O0005(副程序)
#100=#4-#18 (內槽-刀半徑)
! j, {  ]; h2 ^* [  Z: {0 U5 L+ \  a/ D#101=[#21*.5] (切距的一半)
5 N$ m3 }- m& s( T5 \* T6 z9 w#102=[#100/#21-FIX[#100/#21]]*#21 (取餘數)
#103=#102-#101 (餘數-切距的1/2)

3 b( ^: I. w' \& u$ t, tG90G1X#24Y#25F[#9*5.]
# o( d7 `# `8 l# O* K% w0 |Z[#26+10.]F[#9*3.]
% I! Z- s0 t6 R# y0 HZ#26F[#9/3.]

(甲)IF[#102EQ0.]GOTO1
8 O% e( e. q; {! I: r(乙)IF[#102EQ#101]GOTO1
: B( _  N4 q! f0 Y8 \8 }(丙)IF[#102GT#101]GOTO3
" b$ {9 @" Z( I(丁)IF[#102LT#101]GOTO4

9 L3 V6 `$ K9 Q# {+ S" K
N1WHILE[#101LE#100]DO1
* q) c) M" W8 C. wG1X[#24+#101]F#9
9 d' d( W* n* A3 m" S: hY[#25+#101]
X[-#101+#24]
Y[-#101+#25]
X[#24+#101]
: D6 Y' z- o( _9 f( \1 J5 E, ~! EY#25
8 u. P' ^2 j  o  x* UIF[#102EQ0.]GOTO2
#101=#101+#21
/ H5 t8 d5 C& BEND1
G0Z30.
M99
, O, g1 `2 b/ p; |+ v  e3 p
, O: h* u# B& i0 tN2#27=#21(切距)
0 E- x- M  h0 [5 m- G0 H. eWHILE[#27LE#100]DO2
2 }# M2 s7 ?2 r( T; wG1X[#24+#27]F#9
; f7 G, G9 v: ^5 k, s9 H' [Y[#25+#27]
* `4 P1 Z# f: ^X[-#27+#24]
  j1 D2 p$ c: w; M( h4 \1 RY[-#27+#25]
X[#24+#27]
5 Y3 [  R" S, o" ~8 ?Y#25
27=#27+#21
! \- v, U) }; P( ]: n; \END2
  G. w. X# L) JG0Z30.
M99
1 |) @& g# i" X: m. x8 c
" d# Y& p# [) |+ qN3G1X[#24+#103]F#9
Y[#25+#103]
4 h5 v, Y* O3 e3 ~2 VX[-#103+#24]
Y[-#103+#25]
- i  ~2 K1 D6 \X[#24+#103]
Y#25
) p+ r- O' M% {5 h8 r& f" z
/ k( Z8 {! L1 q# zN4WHILE[#102LE#100]DO3
G1X[#24+#102]F#9
  M' n4 ^/ `4 l, i! `. XY[#25+#102]
9 f6 E# [& Z2 K5 t' W( k9 r$ U9 z! GX[-#102+#24]
Y[-#102+#25]
5 H" k  C3 {, nX[#24+#102]
Y#25
  h8 I0 b. M! Q5 x' q#102=#102+#21
END3
G0Z30.
' \1 T. P$ [) d0 M$ rM99
! q1 p# H! |# b4 R6 U%

以上有實際在機台上空跑運行過，程序有點長，自己有改良成最精簡的，如果有高手以原則不變把我的程序簡化者，請指點
; W3 B  o$ c# y$ M我想用我的我私下的簡化版(那一套我改的很有信心)與您對照，我上傳的這一套還有很大的改良空間

空气中的小鱼

首先，先支持一下

空气中的小鱼

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

空气中的小鱼

回复 1# 羅蓋仙
2 u: {/ t' x) J你这个适合铣平面，建议你改善为可以铣模框的，带R角的
# }, D; _8 |+ s5 g" o- J实现了以上，就增加做框四个面可以带不同斜度的功能
实现了以上，就增加加工四个面底部加工不同R底的功能（要有R底加密走刀）
实现了以上，就增加加工四面面顶部加工不同R底的功能（要有R底加密走刀）
到了后面可以增加走刀模式刀路，比如，走边，走底，插角。。。

若枫

我在听天书，

羅蓋仙

謝謝指点
我本來也想加入XY方向的預留量.精修次數.精修量等等，可能還要再動腦
% T" l7 d6 S: W$ u) ]Z軸分層銑深的設置，想簡單的在主程序多呼叫幾次就有效果
如：
1 J, J9 I2 H6 M9 f" r1 z, ?G65P5X0.Y0.I30.R5.U2.Z-3.F300
, L& l) Y$ \7 ^. \; ^- ZG65P5X0.Y0.I30.R5.U2.Z-6.F300
G65P5X0.Y0.I30.R5.U2.Z-9.F300
! V3 k$ T+ f' U  z) ^+ P. r% IG65P5X0.Y0.I30.R5.U3.Z-10.F100(有精修的效果)
% u6 c0 c8 }. R) @+ o8 J- p" Y3 w以上為基本.簡單的設置
3 U, U" x- ?. y  {& ]$ p
如果最後還有內槽的外形铣削會更好，所以我這個只是理論
實際使用請當將就用，還是可以用，沒那麼多功能

xinxuan110

高手啊,顶!!!

cadme

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

羅蓋仙

回复 8# cadme

* N; d% C  o: n2 ]3 E4 h3 M5 z可能是你工作比較忙碌，還要加班沒多余的時間
我比較會忙裡偷閒，悠閒很快樂

lixuejin

确实看不懂 很少用宏