here's the missing attachment.
John Acosta
CAM Programmer/Machinist
www.mi-manufacturing.com
MSN Photos is the easiest way to share and print your photos: Click Here
@NOTES
This code generator has been modified from C:\Sm8\MSMF\M_FDL_A.TMP, for a Haas VF2 with Aaxis indexing
Author: Edward Rositas
Modified: 24 APR 2002 by John Acosta
Site: MI Inc.
@CYCLCHG
// Uncomment the next two lines to output their value.
// ... NextSectionName = #SECNAME
// ... NextSectionNumber = #SECNUM
@
// program start
@START
%
O0000
(********TOOL LIST********)
#CALL(TOOLLIST)///////////////////insert this in the tmp where you want the tool data
(#SYSTIME) (#DATE)
(*************************)
#ONBLK
#EVAL(#U7=1)#EVAL(#S1=CHANGE CLAMP)
//(T#TOOL=#TDESC)
#EVAL(#V4=#XSET)#EVAL(#V5=#YSET)#EVAL(#V6=#ZSET)
G54
#IF(#NTOOL<>#TOOL)< T#TOOL M6> (#TDESC)
#EVAL(#U0 = 0)
#MOV #ABSI #PLANE#IF(#WKSCHG<>1)< X#XPOS Y#YPOS>(A#INDXA)
#SPNDL S#SPEED F#FEED #RTNLVL
G43 H#TOOL Z#ZPOS#IF(#U8<>1)< M8>
#EVAL(#U8=0)
@TOOLCHG
< #FXD> M9 < #PLANE>
#MOV G91 G28 Z0
#IF(#U0 = 1)< G28 Y0>
T#TOOL M6 (#TDESC)
G54
#IF(#U0 = 1)< M0 (#S1)>
#EVAL(#U0 = 0)#EVAL(#S1=CHANGE CLAMP)
#MOV #ABSI#IF(#WKSCHG<>1)< X#XPOS Y#YPOS>(A#INDXA)
#SPNDL S#SPEED F#FEED
G43 H#TOOL#IF(#WKSCHG<>1)< Z#ZPOS>#ELSE< Z#ZHOME>#IF(#U8<>1)< M8>
#EVAL(#U8=0)
@END
(TOTAL TIME #CYTIME)
< #FXD> M9
G00 G91 G28 Z0
G28 Y0
G90
M30
#OFFBLK
%
@TOOLLIST
#IF(#U0=1)
#EVAL(#U18=0)
#REPEAT(TOTEL())<
#EVAL(#U16=JTOOL(#U17))
#EVAL(#U19=TOOL(#U17))
#IF(#U19>0,AND#U19<>#U18,AND VIS(#U17)=1)<
#EVAL(#S19=TDESC(#U19))
(T#U16=#S19)>
#EVAL(#U18=#U19)
#EVAL(#U17=#U17+1)>
@
@SUBDEF
O#SNAME
(SUBDEF,#SNAME, NOTE USED BY #FILE)
#ONBLK #ABSI
@ENDDEF
G90
M99
#OFFBLK
@GOSUB
M98 P#SNAME L#SREPT< T#NTOOL>
#ABSI
@FXDDEF
< X#XPOS>< Y#YPOS>
@TPINDX
( INDEX TO A#INDXA DEGREES)
G90 A#INDXA
#EVAL(#V4=#XSET)#EVAL(#V5=#YSET)#EVAL(#V6=#ZSET)
#ABSI#IF(#U8<>1)< M8>
@STPROF
#EVAL(#V0=#ZPOS-#ZST)
#IF(#V0>=0)<#CALL(Z)>#ELSE<#CALL(XY)>
@ENDPROF
<< #MOV> Z#ZPOS>
< #DCOMP>
@RAP
#EVAL(#V0=#ZPOS-#ZST)
#IF(#V0>=0)<#CALL(Z)>#ELSE<#CALL(XY)>
@Z
< #PLANE>< #ABSI>< #FXD>< #MOV>< Z#ZPOS>< S#SPEED>
< X#XPOS>< Y#YPOS>
@XY
< #PLANE>< #ABSI>< #FXD>< #MOV>< X#XPOS>< Y#YPOS>< S#SPEED>
< Z#ZPOS>
@LINE
< #DCOMP#EXC D#TOOL< #PLANE>>< #MOV>< X#XPOS>< Y#YPOS>< Z#ZPOS>< F#FEED>#EXLN
< S#SPEED>
@ARC
< #PLANE>< #MOV>< X#XPOS>< Y#YPOS>< I#XCTR>< J#YCTR>< F#FEED>< S#SPEED>
@XZARC
< #PLANE>< #MOV>< X#XPOS>< Z#ZPOS>< I#XCTR>< K#ZCTR>< F#FEED>< S#SPEED>
@YZARC
< #PLANE>< #MOV>< Y#YPOS>< Z#ZPOS>< J#YCTR>< K#ZCTR>< F#FEED>< S#SPEED>
@HELIX
#IF(#INC2)< (SPIRAL MOVE, RADIAL PITCH = #INC2)>
< #PLANE> #MOV< X#XPOS>< Y#YPOS> Z#ZPOS I#XCTR J#YCTR< F#FEED>< S#SPEED>
@XZHELIX
< #PLANE> #MOV< X#XPOS> Y#YPOS< Z#ZPOS> I#XCTR K#ZCTR< F#FEED>< S#SPEED>
@YZHELIX
< #PLANE> #MOV X#XPOS< Y#YPOS>< Z#ZPOS> J#YCTR K#ZCTR< F#FEED>< S#SPEED>
@ZCLRMV
< #ABSI>< #FXD><< #MOV> Z#ZPOS>< S#SPEED>
@ZCHKMV
< #FXD><< #MOV> Z#ZPOS>< #PLANE>< S#SPEED>
@ZDPTHMV
<< #MOV> Z#ZPOS< F#FEED>>< #PLANE>< S#SPEED>
@FXD1
< #ABSI>< #RTNLVL #FXD F#FEED>#IF(#U6=1)<G60>< X#XPOS>< Y#YPOS>#EXLN
< Z#ZDPTH R#ZCHK>< S#SPEED>
@FXD2
< #ABSI>< #RTNLVL #FXD F#FEED>#IF(#U6=1)<G60>< X#XPOS>< Y#YPOS>#EXLN
< Z#ZDPTH R#ZCHK P#DWELL>< S#SPEED>
@FXD3
< #ABSI>< #RTNLVL #FXD F#FEED>#IF(#U6=1)<G60>< X#XPOS>< Y#YPOS>#EXLN
< Z#ZDPTH R#ZCHK>< S#SPEED>
@FXD4
< #ABSI>< #RTNLVL #FXD F#FEED>#IF(#U6=1)<G60>< X#XPOS>< Y#YPOS>#EXLN
< Z#ZDPTH R#ZCHK>
@FXD5
< #ABSI>< #RTNLVL #FXD F#FEED>#IF(#U6=1)<G60>< X#XPOS>< Y#YPOS>#EXLN
< Z#ZDPTH R#ZCHK Q#PECK>
@DWELL
G04 P#DWELL#EVAL(#TIME=#DWELL/60)
%
