如何用SPost(GPost)撰寫海德漢TNC530 G2xx的Cycle循環

相信很多人用CAD/CAM對於輸出 海德漢TNC530的G2xx循環很頭痛.  不管是對話式(Coversational）或者ISO格式
這邊將以ISO格式來舉例應用. 如何使用SPost(GPost)來產生正確的G2xx Q2xx=,....的循環指令!

[ 本帖最后由 sinderal 于 2008-9-27 11:06 编辑 ]

用Optfile開啟or 創建 一個後處理檔案, 此處我用3187
一開始的一些設置請參看之前我所做的教程, 此處將不再贅述.
進入 File Format --> MCD File --> 設置個個位址碼的格式
例如 X, Y , Z.....................均設成 有正負號輸出的 5.3

到File Format --> MCD File -->Genernal Address Output
將 Output At least  One Zero 打勾

到Machine Codes --> Prep G-Codes 設置如下

Operator Messages 設置 ; 來替代 (

並將 其他的均打勾, 並將 Insert Continuation Charater 改成 92 (\)

接下來到 Advanced --> FIL Editor
寫一些 FIL 與 Macros

CIMFIL/ON,SPINDL
Rslt=postf(13)
SPED=POSTF(7,4)      ----- 抓SPINDLE 的值
SPD=INTF(SPED)        ------ 取SPINDLE值的實數
CIMFIL/OFF

[ 本帖最后由 sinderal 于 2008-9-27 10:30 编辑 ]

寫 CYCLE的 FIL

CIMFIL/ON,CYCLE
  XLOC=POSTF(1,3,344)
  YLOC=POSTF(1,3,345)
  DPTH=POSTF(7,6)
  RATE=POSTF(7,8)
  CYTYP=POSTF(7,4)
  CASE/CYTYP
    WHEN/ICODEF(OFF)
      RSLT=POSTF(13)
      CFLG=0
    WHEN/ICODEF(DRILL)                                $$ CYCLE/DRILL
      CHK=POSTF(7,9)
      IF(CHK.EQ.ICODEF(DWELL))THEN
        DWEL=POSTF(7,10)
        CLER=POSTF(7,12)
        CLER2=POSTF(7,14)
      ELSE
        DWEL=0
        CLER=POSTF(7,10)
        CLER2=POSTF(7,12)
      ENDIF
      CALL/CANNED
       Zloc=DPTH+CLER
       DWEL=TEXT/CONVF,DWEL,3,1,0,0,1
   INSERT/'G200 Q200=',omit,CLER,'\$'
   SEQNO/OFF
   INSERT/' Q201=-',omit,DPTH, '\$'
   INSERT/' Q206=',omit,RATE, '\$'
   INSERT/' Q202=+1' '\$'
   INSERT/' Q210=+0' '\$'   
   INSERT/' Q203=+',omit,Zloc, '\$'
   INSERT/' Q204=+',omit,CLER2, '\$'
   INSERT/' Q211=',OMIT,DWEL, '$'
   SEQNO/ON  
   POSTN/IN,X,XLOC,Y,YLOC,M,99

    WHEN/ICODEF(DEEP)                            $$ CYCLE/DEEP
      CHK=POSTF(7,9)
      IF(CHK.EQ.ICODEF(DWELL))THEN
        DWEL=POSTF(7,10)
        PECK=POSTF(7,12)
        CLER=POSTF(7,14)
        CLER2=POSTF(7,16)
      ELSE
        DWEL=0
        PECK=POSTF(7,10)
        CLER=POSTF(7,12)
        CLER2=POSTF(7,14)
      ENDIF
      CALL/CANNED
      Zloc=DPTH+CLER
      DWEL=TEXT/CONVF,DWEL,3,1,0,0,1
      PECK=TEXT/CONVF,PECK,4,1,1,0,1   
   INSERT/'G203 Q200=',omit,CLER,'\$'
   SEQNO/OFF
   INSERT/' Q201=-',omit,DPTH, '\$'
   INSERT/' Q206=',omit,RATE, '\$'
   INSERT/' Q202=',OMIT,PECK, '\$'
   INSERT/' Q210=+0' '\$'   
   INSERT/' Q203=+',omit,Zloc, '\$'
   INSERT/' Q204=+',omit,CLER2, '\$'
   INSERT/' Q212=+0' '\$'     
   INSERT/' Q213=3' '\$'
   INSERT/' Q205=+0' '\$'        
   INSERT/' Q211=',OMIT,DWEL, '\$'
   INSERT/' Q208=3000' '\$'
   INSERT/' Q256=+0.2' '$'      
   SEQNO/ON  
     POSTN/IN,X,XLOC,Y,YLOC,M,99

因為 海德漢TNC530 G2XX的 QXXX參數太多, CAD/CAM無法輸出那麼多的參數值相對應, 所以有些值必須輸入定值, 屆時再由操機者手動更改調整

    WHEN/ICODEF(BRKCHP)                            $$  CYCLE/BRKCHP
      CHK=POSTF(7,9)
      IF(CHK.EQ.ICODEF(DWELL))THEN
        DWEL=POSTF(7,10)
        PECK=POSTF(7,12)
        CLER=POSTF(7,14)
        CLER2=POSTF(7,16)
      ELSE
        DWEL=0
        PECK=POSTF(7,10)
        CLER=POSTF(7,12)
        CLER2=POSTF(7,14)
      ENDIF
      CALL/CANNED
      Zloc=DPTH+CLER
      DWEL=TEXT/CONVF,DWEL,3,1,0,0,1
      PECK=TEXT/CONVF,PECK,4,1,1,0,1   
   INSERT/'G205 Q200=',omit,CLER,'\$'
   SEQNO/OFF
   INSERT/' Q201=-',omit,DPTH, '\$'
   INSERT/' Q206=',omit,RATE, '\$'
   INSERT/' Q202=',OMIT,PECK, '\$'
   INSERT/' Q203=+',omit,Zloc, '\$'
   INSERT/' Q204=+',omit,CLER2, '\$'
   INSERT/' Q212=+0' '\$'     
   INSERT/' Q205=+0' '\$'
   INSERT/' Q258=+0.5' '\$'
   INSERT/' Q259=+1' '\$'
   INSERT/' Q257=',OMIT,PECK, '\$'
   INSERT/' Q256=+0.2' '\$'
   INSERT/' Q211=',OMIT,DWEL, '$'
   SEQNO/ON  
     POSTN/IN,X,XLOC,Y,YLOC,M,99

攻牙與左攻牙指令相同 只有差一個正負號

    WHEN/ICODEF(TAP)                         $$ CYCLE/TAP
      CHK=POSTF(7,9)
      IF(CHK.EQ.ICODEF(DWELL))THEN
        DWEL=POSTF(7,10)
        CLER=POSTF(7,12)
        CLER2=POSTF(7,14)
      ELSE
        DWEL=0
        CLER=POSTF(7,10)
        CLER2=POSTF(7,12)
      ENDIF
      CALL/CANNED
       Zloc=DPTH+CLER
       DWEL=TEXT/CONVF,DWEL,3,1,0,0,1
       PICTH=INTF(RATE)/SPD
       PICTH=TEXT/CONVF,PICTH,3,1,0,0,1
   INSERT/'G85 P01 ',omit,CLER,'\$'
   SEQNO/OFF
   INSERT/' P02 -',omit,DPTH, '\$'
   INSERT/' P03 ',omit,PICTH, '$'
   SEQNO/ON  
   POSTN/IN,X,XLOC,Y,YLOC,M,99      
    WHEN/ICODEF(LTAP)                         $$ CYCLE/LTAP
      CHK=POSTF(7,9)
      IF(CHK.EQ.ICODEF(DWELL))THEN
        DWEL=POSTF(7,10)
        CLER=POSTF(7,12)
        CLER2=POSTF(7,14)
      ELSE
        DWEL=0
        CLER=POSTF(7,10)
        CLER2=POSTF(7,12)
      ENDIF
      CALL/CANNED
       Zloc=DPTH+CLER
       DWEL=TEXT/CONVF,DWEL,3,1,0,0,1
       PICTH=INTF(RATE)/SPD
       PICTH=TEXT/CONVF,PICTH,3,1,0,0,1
   INSERT/'G85 P01 ',omit,CLER,'\$'
   SEQNO/OFF
   INSERT/' P02 -',omit,DPTH, '\$'
   INSERT/' P03 -',omit,PICTH, '$'
   SEQNO/ON  
   POSTN/IN,X,XLOC,Y,YLOC,M,99

剛性攻牙與剛性左攻牙

    WHEN/ICODEF(RIGID)                         $$ CYCLE/RIGID
      CHK=POSTF(7,9)
      IF(CHK.EQ.ICODEF(DWELL))THEN
        DWEL=POSTF(7,10)
        CLER=POSTF(7,12)
        CLER2=POSTF(7,14)
      ELSE
        DWEL=0
        CLER=POSTF(7,10)
        CLER2=POSTF(7,12)
      ENDIF
      CALL/CANNED
       Zloc=DPTH+CLER
       DWEL=TEXT/CONVF,DWEL,3,1,0,0,1
       PICTH=INTF(RATE)/SPD
       PICTH=TEXT/CONVF,PICTH,3,1,0,0,1
   INSERT/'G207 Q200=',omit,CLER,'\$'
   SEQNO/OFF
   INSERT/' Q201=-',omit,DPTH, '\$'
   INSERT/' Q239=',omit,PICTH, '\$'
   INSERT/' Q203=+',omit,Zloc, '\$'
   INSERT/' Q204=+',omit,CLER2, '\$'
   INSERT/' Q211=',OMIT,DWEL, '$'
   SEQNO/ON  
   POSTN/IN,X,XLOC,Y,YLOC,M,99      
    WHEN/ICODEF(LRIGID)                         $$ CYCLE/LRIGID
      CHK=POSTF(7,9)
      IF(CHK.EQ.ICODEF(DWELL))THEN
        DWEL=POSTF(7,10)
        CLER=POSTF(7,12)
        CLER2=POSTF(7,14)
      ELSE
        DWEL=0
        CLER=POSTF(7,10)
        CLER2=POSTF(7,12)
      ENDIF
      CALL/CANNED
       Zloc=DPTH+CLER
       DWEL=TEXT/CONVF,DWEL,3,1,0,0,1
       PICTH=INTF(RATE)/SPD
       PICTH=TEXT/CONVF,PICTH,3,1,0,0,1
   INSERT/'G207 Q200=',omit,CLER,'\$'
   SEQNO/OFF
   INSERT/' Q201=-',omit,DPTH, '\$'
   INSERT/' Q239=-',omit,PICTH, '\$'
   INSERT/' Q203=+',omit,Zloc, '\$'
   INSERT/' Q204=+',omit,CLER2, '\$'
   INSERT/' Q211=',OMIT,DWEL, '$'
   SEQNO/ON  
   POSTN/IN,X,XLOC,Y,YLOC,M,99
   ENDCAS
CIMFIL/OFF  

在 ENDCAS 之前你可以繼續添加 如上面所列的來輸出
如CYCLE/BORE, CYCLE/REAM, CYCLE/BKBORE, CYCLE/BRKCHP, CYCLE/FACE .....等等