@COMMENT Hardinge Conquest 42 - Fanuc style code @ @DECLARE //#OUTCND //outputs conditional status //#OUTSEC //outputs @section names //#OUTREF //outputs processing errors //#OUTRPT //outputs an error report file @ @START % O#FILE G65 P9150 H2.0 G20 G99 G00 G40 M98 P9001 #IF(#TOOL=1)< T0101> #IF(#TOOL=2)< T0202> #IF(#TOOL=3)< T0303> #IF(#TOOL=4)< T0404> #IF(#TOOL=5)< T0505> #IF(#TOOL=6)< T0606> #IF(#TOOL=7)< T0707> #IF(#TOOL=8)< T0808> #IF(#TOOL=9)< T0909> #IF(#TOOL=10)< T1010> #IF(#TOOL=11)< T1111> #IF(#TOOL=12)< T1212> #IF(#TOOL=121)< T0121> #IF(#TOOL=222)< T0222> #IF(#TOOL=323)< T0323> #IF(#TOOL=424)< T0424> #IF(#TOOL=525)< T0525> #IF(#TOOL=626)< T0626> #IF(#TOOL=727)< T0727> #IF(#TOOL=828)< T0828> #IF(#TOOL=929)< T0929> #IF(#TOOL=1030)< T1030> #IF(#TOOL=1131)< T1131> #IF(#TOOL=1232)< T1232> G50 S4500 #IFSTR(#TLID=BARSTOP)< M05>#ELSE< #SPMODE S#SPEED #SPNDL> #IFSTR(#TLID=BARSTOP)< M09>#ELSE< /M08> #MOV X#XPOS Z#ZPOS @ @TOOLCHG <#RESET(#FXD)> M09 < N#FMT(#TOOL,T4.0) M98 P9001> M01 #IF(#TOOL=1)< T0101> #IF(#TOOL=2)< T0202> #IF(#TOOL=3)< T0303> #IF(#TOOL=4)< T0404> #IF(#TOOL=5)< T0505> #IF(#TOOL=6)< T0606> #IF(#TOOL=7)< T0707> #IF(#TOOL=8)< T0808> #IF(#TOOL=9)< T0909> #IF(#TOOL=10)< T1010> #IF(#TOOL=11)< T1111> #IF(#TOOL=12)< T1212> #IF(#TOOL=121)< T0121> #IF(#TOOL=222)< T0222> #IF(#TOOL=323)< T0323> #IF(#TOOL=424)< T0424> #IF(#TOOL=525)< T0525> #IF(#TOOL=626)< T0626> #IF(#TOOL=727)< T0727> #IF(#TOOL=828)< T0828> #IF(#TOOL=929)< T0929> #IF(#TOOL=1030)< T1030> #IF(#TOOL=1131)< T1131> #IF(#TOOL=1232)< T1232> #IFSTR(#TLID=BARSTOP)< M05>#ELSE< #SPMODE S#SPEED #SPNDL> #IFSTR(#TLID=BARSTOP)< M09>#ELSE< /M08> #MOV X#XPOS Z#ZPOS @ @END M09 M98 P9001 M05 #IF(#NTOOL=1)< T0101> #IF(#NTOOL=2)< T0202> #IF(#NTOOL=3)< T0303> #IF(#NTOOL=4)< T0404> #IF(#NTOOL=5)< T0505> #IF(#NTOOL=6)< T0606> #IF(#NTOOL=7)< T0707> #IF(#NTOOL=8)< T0808> #IF(#NTOOL=9)< T0909> #IF(#NTOOL=10)< T1010> #IF(#NTOOL=11)< T1111> #IF(#NTOOL=12)< T1212> #IF(#NTOOL=121)< T0121> #IF(#NTOOL=222)< T0222> #IF(#NTOOL=323)< T0323> #IF(#NTOOL=424)< T0424> #IF(#NTOOL=525)< T0525> #IF(#NTOOL=626)< T0626> #IF(#NTOOL=727)< T0727> #IF(#NTOOL=828)< T0828> #IF(#NTOOL=929)< T0929> #IF(#NTOOL=1030)< T1030> #IF(#NTOOL=1131)< T1131> #IF(#NTOOL=1232)< T1232> M30 % @ @STPROF < #MOV X#XPOS Z#ZPOS>< #DCOMP> @ @RAP #RESET(#FXD,#ZPASS,#FEED) < #MOV X#XPOS Z#ZPOS>< #DCOMP> @ @LINE #MOV< X#XPOS>< Z#ZPOS>< F#FEED> @ @ENDPROF @ @ARC #MOV< X#XPOS Z#ZPOS>< I#XCTR K#ZCTR>< F#FEED> @ @FXD1 #EVAL(#V5=#XCTR-#XPASS)#EXLN < #FXD> X#XPASS< Z#ZPASS>< R#V5>< F#FTHRD> /M08 @ @FXD3 < G00 X#XPOS > < #FXD>< X#XPASS>< Z#ZPASS>< F#FEED> @ @FXD4 M49 G32 Z#ZPASS F#FTHRD G04 X0.3 M04 G32 Z#ZPOS F#FTHRD M48 @ @FXD5 #EVAL(#V7=#SPEED/2500) G04 U#FMT(#V7,D1.2) #EVAL(#PECK=#TLDIA*.5) #EVAL(#V4=#PECK) #EVAL(#V5=#TLDIA*1.1) (K = Z END POSITION, B = PECK DRILL RAPID RETURN) (W = FIRST DRILL DEPTH INFEED, C = MIN. DRILL DEPTH) (A = DWELL AT RETRACT) G65 P9136 K#ZPASS B.01 F#FEED W#V5 C#V4 A#FMT(#TLDIA,D1.2) #MOV X#XPOS Z#ZPOS @ @DWELL G04 U#DWELL#EVAL(#TIME=#DWELL/60) @ @STOP M05 M00 /M08 #SPNDL G04 U1.0 @