Steve,
Could it be that you need it to say
#IF(#WKPLN=H4)<etc....
Rick
-----Original Message-----
From: Steve Nelson [mailto:[EMAIL PROTECTED]]
Sent: Thursday, October 23, 2003 4:55 AM
To: Smartcam
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#INDXB>
@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
