m1738264 发表于 2016-8-13 07:20:06

G81鑽孔用G1方式

      IF (G01 == 1)//正常鑽孔模式
*   SET_ONMCH_FEED;

* IF_SET (CYC_RETR)OUTPUT CYC_RETR" " ; END_IF ; 取消輸出G98 G99
IF_SET (MOTION_CODE) OUTPUT MOTION_CODE" " ; END_IF ;

IF_SET (X_CURPOS)OUTPUT "X" X_CURPOS " " ; END_IF ;
IF_SET (Y_CURPOS)OUTPUT "Y" Y_CURPOS " " ; END_IF ;
IF_SET (Z_CYC_DEPTH) OUTPUT "Z" Z_CYC_DEPTH " " ; END_IF ;
IF_SET (Z_CYC_CLEAR) OUTPUT "R" Z_CYC_CLEAR " " ; END_IF ;
IF_SET (CYC_PECK)OUTPUT "Q" CYC_PECK " " ; END_IF ;
IF_SET (CYC_DWELL)OUTPUT "P" CYC_DWELL " " ; END_IF ;
IF_SET (CYC_XSHFT)OUTPUT "Q" CYC_XSHFT " " ; END_IF ;
IF_SET (MCH_FEED)OUTPUT "F" MCH_FEED " " ; END_IF ;
END_IF ;
* 使用G1鑽孔

IF (G01 == 2)//G81方式用G01鑽孔
OUTPUT"G00Z"Z_CYC_DZINIT;
      OUTPUT$;
   OUTPUT "X" X_CURPOS;
      OUTPUT "Y" Y_CURPOS;
      OUTPUT$;
   OUTPUT "Z" Z_CYC_CLEAR;
   OUTPUT\J;
      IF_SET (MOTION_CODE)    OUTPUT "G01";    END_IF;
      OUTPUT "X" X_CURPOS;
   OUTPUT "Y" Y_CURPOS;
      OUTPUT "Z" Z_CYC_DEPTH;
      OUTPUT "F" MCH_FEED" ";
       END_IF ;

PS:這只是片段~~請加入在鑽孔循環(CYCLE:)內~~還有開頭那邊請加鑽孔的開關INTERACTION (MULTI_CHOICE)"鑽孔模式/正常/G81=G01/G83=G01"   G01 = 1 ;不會整合的請不要使用~因為不同的代碼~會有定義的問題~會出現很多的錯誤~


kklldehuoze 发表于 2016-8-13 14:41:01

{:soso__3409329614010722382_4:}

710279284 发表于 2016-8-13 20:29:19

？？可以实现G1钻孔？

710279284 发表于 2016-8-13 20:31:51

G83怎么实现用G1模拟钻孔

m1738264 发表于 2016-8-14 18:15:48

710279284 发表于 2016-8-13 20:31
G83怎么实现用G1模拟钻孔

我已經發表了在文章區

710279284 发表于 2016-8-15 21:02:35

m1738264 发表于 2016-8-14 18:15
我已經發表了在文章區

在哪里？怎么找不到，发我一份可以吗？
页: [1]
查看完整版本: G81鑽孔用G1方式