G83方式用G1去鑽孔

m1738264

IF (G01 == 3) //G83方式用G01鑽孔
        IF (CJ == 1)  //正常
        
                 Xin = CYC_PECK * I_CURPOS ;
                 Yin = CYC_PECK * J_CURPOS ;
  @4 f/ u* _. @  F. M                 Zin = CYC_PECK * K_CURPOS ;
                 // calculate final depth 計算最終深度
- ?7 r. z0 A$ P& F( n                 XDepth = X_CURPOS - CYC_DEPTH * I_CURPOS;
                 YDepth = Y_CURPOS - CYC_DEPTH * J_CURPOS;
- F6 M' I$ x$ g4 r                 ZDepth = Z_CURPOS - CYC_DEPTH * K_CURPOS;
                 // calculate first clear height! 計算第一個清除高度
" i# F& P0 R7 F" Q4 I3 ~                 XClear = X_CURPOS + CYC_CLEAR * I_CURPOS;
                 YClear = Y_CURPOS + CYC_CLEAR * J_CURPOS;
8 o% a8 U  V' e" @! P" i, r                 ZClear = Z_CURPOS + CYC_CLEAR * K_CURPOS;      
                        
6 b( R& e6 ~9 R" h  |; j5 G  f                PeckNumber = INT_(CYC_DEPTH/CYC_PECK) + 1 ;
                RestPeck = FRAC_(CYC_DEPTH/CYC_PECK) ;      
                Counter = 1 ;
                        
5 Z0 o; _, g1 X       REPEAT
6 f4 H+ V( Z+ ^! V. `      
$ d; O& c! p* F9 D' [7 D4 `* \6 U       OUTPUT $ ;
                IF_SET (CODE_LIN_FAST) OUTPUT CODE_LIN_FAST ; END_IF ;
+ q4 X! X0 P) ^- s0 |% C                IF (Counter == 1)
                                                
                      OUTPUT "X" XClear "Y" YClear  ; // first clear height 第一個清除高度
# W. d/ T6 d) g: f0 n- e! n                        OUTPUT \J "Z" ZClear ; // 鑽孔開始安全高度
                ELSE
*                        OUTPUT " X" XdClear " Y" YdClear " Z" ZdClear ; // next clear height 下一個清除高度
1 c7 T" w' p6 u/ C! g) D$ M                         OUTPUT "Z" ZdClear ;
, V- ?: Q1 y0 U6 m( l                        END_IF;
; r1 W2 `7 l6 l& _                        // calc next drill depth 計算下一個鑽孔深度
              XTemp = X_CURPOS - Counter * Xin ; YTemp = Y_CURPOS - Counter * Yin ; ZTemp = Z_CURPOS - Counter * Zin ;
              OUTPUT $ CODE_LIN_FEED "X" XTemp "Y" YTemp "Z" ZTemp "F" MCH_FEED; // drill current peck 目前啄鑽
3 i! a. V9 z+ h4 E*              OUTPUT $ " " CODE_LIN_FAST " X" XClear " Y" YClear " Z" ZClear ; // retract to first clear point
              OUTPUT $ CODE_LIN_FAST "Z" ZClear ; //每次提刀到鑽孔開始位置
3 o& K: b8 D! u$ l# Q                        // calculate next clear height CODE_LIN_FAST=G00 計算下一個清除高度
              XdClear = XTemp + CYC_CLEAR * I_CURPOS;
2 @" b% i7 O) g( N# I              YdClear = YTemp + CYC_CLEAR * J_CURPOS;
, c7 l; Y& P4 G6 C" |1 u- G              ZdClear = ZTemp + CYC_CLEAR * K_CURPOS;
- z3 \% a5 f4 o- S              Counter = Counter + 1 ;
( D2 ~  B5 t; J              UNTIL (Counter == PeckNumber);
              IF (RestPeck > 0) // last peck in case of uneven distribution
( Y, E/ K0 y" k& a              OUTPUT $ "X" XdClear "Y" YdClear "Z" ZdClear ; // last clear hieght 最後清除高度
0 `. |: e) ]8 Z, _9 H( @) z% n              OUTPUT $ CODE_LIN_FEED "X" XDepth "Y" YDepth "Z" ZDepth "F" MCH_FEED; // drill last peck3
# b( W' ~$ }# u, c. [              END_IF ;
              OUTPUT $ CODE_LIN_FAST "X" X_CYC_DZINIT "Y" Y_CYC_DZINIT "Z" Z_CYC_DZINIT; // retract to init point
) a1 D% d- g& Z! x4 F, I         END_IF ; //CJ=1

7 I# f( J" U( h4 K% k) t' S這是分享給大家的~~如果要整合~~要定義一些東西喔~~我目前已經寫出上下左右的後處理了~~但是目前只有針對發那科~並且把g81跟g83用g01的方法寫入90度頭裡面~~歡迎大家研究看看

I雕兄I

厉害，学习了，以后希望大神多发一些GPP2的源码知识。

enliang

万向G83