As you can tell I'm not very experienced with post creation. Could you take a look at this post and highlight where I'm going wrong? In the @START section I can't get the post to output the correct pallet rotation (SEE PROGRAM BELOW POST) for some reason and also imp not sure how to get the spindle to clear in -Z- during pallet rotation see red highlighted area? But it does seem to be getting closer? Thanks for all your help on this, Steve Nelson
@START<---------------------------------------How do I add logic to this section so it will start at the right index position #EVAL(#U0=0) #IF(#U0=1)< START> :G0 G70 G90 T#TOOL M6 (MSG,#TDESC) X#XPOS Y#YPOS <B#INDXB> S#SPEED #SPNDL T#NTOOL #WKPLN @TOOLCHG #IF(#U0=1)< TOOLCHANGE SECTION> G0 Z20 H0 <#FXD> :G0 G70 G90 T#TOOL M6 B#INDXB (MSG,#TDESC) X#XPOS Y#YPOS S#SPEED #SPNDL T#NTOOL #WKPLN <#MOV>Z#ZPOS M8 @TPINDX #IF(#U0=1)< TPINDX> //#IF(#WKPLN=H4>)<#EVAL(G0 Z20 H0)> #IFSTR(#WKPLN=H1)<#EVAL(#INDXB=0)> #IFSTR(#WKPLN=H2)<#EVAL(#INDXB=0)> #IFSTR(#WKPLN=H3)<#EVAL(#INDXB=0)> #IFSTR(#WKPLN=H4)<#EVAL(#INDXB=180)> #IFSTR(#WKPLN=H5)<#EVAL(#INDXB=180)> #IFSTR(#WKPLN=H6)<#EVAL(#INDXB=180)> #IFSTR(#WKPLN=H7)<#EVAL(#INDXB=90)> #IFSTR(#WKPLN=H8)<#EVAL(#INDXB=90)> #IFSTR(#WKPLN=H9)<#EVAL(#INDXB=90)> #IFSTR(#WKPLN=H10)<#EVAL(#INDXB=270)> #IFSTR(#WKPLN=H11)<#EVAL(#INDXB=270)> #IFSTR(#WKPLN=H12)<#EVAL(#INDXB=270)> @END #IF(#U0=1)< END OF PROGRAM> G0Z20.0 M1 (MSG,WASH PALLET WITH COOLANT HOSE) M52 Z12B90 M00 :G70 Q999M52M2 @SUBDEF #IF(#U0=1)< SUBDEF> % (SUBDEF,#SNAME,NOTE:USEDBY#FILE) #ONBLK#ABSI @ENDDEF (ENDOFSUB) M30 #OFFBLK% @GOSUB #IF(#U0=1)< SUBGO> (GOSUB,PROG=#SNAME,RPT=#SREPT) @STPROF #IF(#U0=1)< STPROF> <#ABSI><#FXD><#MOV><#DCOMP#EXCD#DOFF><X#XPOS><Y#YPOS><Z#ZPOS><#WKPLN><B#INDX B> @ENDPROF #IF(#U0=1)< ENDPROF> #MOVZ#ZPOS @RAP #IF(#U0=1)< RAP> <#ABSI><#FXD><#MOV><#DCOMP><X#XPOS><Y#YPOS><Z#ZPOS> @LINE #IF(#U0=1)< LINE> <#MOV><X#XPOS><Y#YPOS><Z#ZPOS><F#FEED> @ARC #IF(#U0=1)< ARC> <#PLANE><#MOV><X#XPOS><Y#YPOS>I#XCTRJ#YCTR<F#FEED> @XZARC #IF(#U0=1)< XZARC> <#PLANE><#MOV><X#XPOS><Z#ZPOS>I#XCTRK#ZCTR<F#FEED> @YZARC #IF(#U0=1)< YZARC> <#PLANE><#MOV><Y#YPOS><Z#ZPOS>J#YCTRK#ZCTR<F#FEED> @HELIX #IF(#U0=1)< HELIX> <#PLANE>#MOV<X#XPOS><Y#YPOS>Z#ZPOSI#XCTRJ#YCTR<F#FEED> @XZHELIX #IF(#U0=1)< XZHELIX> <#PLANE>#MOV<X#XPOS>Y#YPOS<Z#ZPOS>I#XCTRK#ZCTR<F#FEED> @YZHELIX #IF(#U0=1)< YZHELIX> <#PLANE>#MOVX#XPOS<Y#YPOS><Z#ZPOS>J#YCTRK#ZCTR<F#FEED> @ZCLRMV #IF(#U0=1)< ZCLRMV> <#ABSI><#FXD><<#MOV>Z#ZPOS> @ZCHKMV #IF(#U0=1)< ZCHKMV> <#FXD><<#MOV>Z#ZPOS> @ZDPTHMV #IF(#U0=1)< ZDPTHMV> <<#MOV>Z#ZPOS<F#FEED>> @FXD1 #IF(#U0=1)< FXD1> <B#INDXB> <#FXD><X#XPOS><Y#YPOS><Z#ZDPTHR#ZCHK><F#FEED> #WKPLN @FXD2 #IF(#U0=1)< FXD2> <B#INDXB> <#FXD><X#XPOS><Y#YPOS><Z#ZDPTHR#ZCHK><F#FEED> #WKPLN @FXD3 #IF(#U0=1)< FXD3> <B#INDXB> <#FXD><X#XPOS><Y#YPOS><Z#ZDPTHR#ZCHK><F#FEED> #WKPLN @FXD4 #IF(#U0=1)< FXD4> <B#INDXB> <#FXD><X#XPOS><Y#YPOS><Z#ZDPTHR#ZCHK><F#FEED> #WKPLN @FXD5 #IF(#U0=1)< FXD5> <B#INDXB> <#FXD><X#XPOS><Y#YPOS><Z#ZDPTHR#ZCHK><F#FEED> #WKPLN @DWELL #IF(#U0=1)< DWELL> G04F#DWELL Output program from post above. :G0 G70 G90 T270 M6 (MSG,6.000 DIA. FACE MILL) X-6.0 Y5.8 B0 S350 M3 T240 H4 <------------------------This should be B180 ???? Z18.0 Z16.6 G1Z-16.5F7.5 Y0.5F15.0 G0Z18.0 X0.0Y5.8Z18.0H5B180 Z16.6 G1Z-16.5F7.5 Y0.5F15.0 G0Z18.0 X6.0Y5.8Z18.0H6 Z16.6 G1Z-16.5F7.5 Y0.5F15.0 G0Z18.0 Z18.0 X-6.0Y5.8H1B0 Z16.6 G1Z16.5F7.5 Y0.5F15.0 G0Z18.0 X0.0Y5.8Z18.0H2 Z16.6 G1Z16.5F7.5 Y0.5F15.0 G0Z18.0 X6.0Y5.8Z18.0H3 Z16.6 G1Z16.5F7.5 Y0.5F15.0 G0Z18.0 G0 Z20 H0 :G0 G70 G90 T240 M6 B0 (MSG,1.620 DIA. BORE) X6.0 Y0.5 S700 M3 T240 H3 Z16.7 M8 G85Z-0.7875R16.6F0.004 H3 X0.0Y0.5Z-0.7875R16.6F0.004 H2 X-6.0Y0.5Z-0.7875R16.6F0.004 H1 G80Z16.7 B180 G85X-6.0Y0.5Z-0.7875R-16.4F0.004 H4 X0.0Y0.5Z-0.7875R-16.4F0.004 H5 X6.0Y0.5Z-0.7875R-16.4F0.004 H6 G0Z20.0 M1 (MSG,WASH PALLET WITH COOLANT HOSE) M52 Z12B90 M00 :G70 Q999M52M2
<<attachment: winmail.dat>>
