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
<<attachment: winmail.dat>>
