Add #CALL(TPINDX) to the @START section. ----- Original Message ----- From: "Steve Nelson" <[EMAIL PROTECTED]> To: "Smartcam" <[EMAIL PROTECTED]> Sent: Wednesday, October 22, 2003 7:11 PM Subject: [mfg-smartcam] Post Help????
> 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 > > ====================================================================== To find out more about this mailing list including how to unsubscribe, send the message "info mfg-smartcam" to [EMAIL PROTECTED] ======================================================================
