You could add something like this in your @WKSYS #IFCHG(#INDXB)< #MOV G90 G49 G28 Z0 M9>
Dave Wolfgang CNC Programmer/Supervisor www.hrindustries.net ----- Original Message ----- From: "Steve Nelson" <[EMAIL PROTECTED]> To: "Smartcam" <[EMAIL PROTECTED]> Sent: Thursday, October 23, 2003 7:54 AM Subject: [mfg-smartcam] Question > Hello group, > I'm having a little problem with the output of my post I am trying to state > in the @ZCLRMV that if work plane is equal to 4 or greater than 4 to go > G0Z20H0 for some reason I can't seem to get it to post correctly, Hope > someone can help Thank you for all the help group I couldn't have done this > with out you. > I added the post and the bad section of the program. see below for more > details > > > @START > #EVAL(#U0=1) > #IF(#U0=1)< START> > :G0 G70 G90 T#TOOL M6 > (MSG,#TDESC) > X#XPOS Y#YPOS S#SPEED #SPNDL T#NTOOL #EXLN > #CALL(TPINDX)#WKPLN B#INDXB > > @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> > #CALL(TPINDX)#EXLN > #IFSTR(#WKPLN=4>)<G0Z20H0>#ELSE<#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 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 <------------------------------------------------------------ This > where I want the G0 Z20 H0, to clear for pallet rotation > B180 > G85X-6.0Y0.5Z-0.7875R-16.6F0.004 H4 > X0.0Y0.5Z-0.7875R-16.6F0.004 H5 > X6.0Y0.5Z-0.7875R-16.6F0.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] ======================================================================
