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
Steve, You may want to add this to the post. Look at what I added and see if that will work.
// U1 = current H-state // U2 = current H-state index for 2nd and 3rd fixtures // U5 = call checker if tpindx called independently // from a toolchange.
// B rotation for H offsets
@BROTATE
1,180000
2,300000
3,60000
4,90000
5,210000
6,330000
7,000000
8,120000
9,240000
//
// For a given Rotate of the work plane in the model, get
// the appro H-offset
@HROT
0,7
90,4
180,1
//@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> <#FXD> G0 Z20 H0
@WKSYS
#IFCHG(#INDXB)< #FXD> < #MOV> Z20 H0 #ELSE< #FXD> G0 M26 H0
: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
Kevin Clark Programmer Abbott Workholding Inc.
====================================================================== To find out more about this mailing list including how to unsubscribe, send the message "info mfg-smartcam" to [EMAIL PROTECTED] ======================================================================
