Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations MintJulep on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

Fixture offset G43

  • Thread starter Thread starter the_real_jat
  • Start date Start date
Status
Not open for further replies.
T

the_real_jat

Guest
wasup


i am in big trouble with my posprocessor. I am using


CIMFIL/ON, SET


IF(POSTF(6,5).EQ.1)THEN


FIXT=POSTF(7,5)


REPEAT/OFF


REPEAT/X,Y,G,FIXT,ALL


ENDIF


CIMFIL/OFF


and now i give a parametric value to my fixture offet in the Pro/NC while defining sequences.


For some reason, my output file gives warnings now. and it doesn't even show the G54 that its supposed to show.


Anyone aware of this?


thanks


~JAT
 
I didn't know the "REPEAT" command could be used for anything but text. But if it works, you might try this instead of your macro.


CIMFIL/ON,SET


WORD1=POSTF(7,4)


IF (WORD1.EQ.(ICODEF(OFSETL))) THEN


TYPE2=POSTF(6,5)


IF (TYPE2.EQ.1) $$ Is it a real number


FIXT=POSTF,7,5)


REPEAT/OFF


PREFUN/FIXT,NEXT


REPEAT/X,Y,G ,ALL


ENDIF


ENDIF


CIMFIL,OFF
 
I tried using the Repeat command, but I couldn't get it to work either. This is what I have in my FIL file. Why don't you try it and let me know how it works for you.


$$ **********************************


$$ S E T


$$ **********************************


CIMFIL/ON,SET


WORD1=POSTF(7,4)


IF (WORD1.EQ.(ICODEF(OFSETL))) THEN


WORD2=POSTF(7,5)


TYPE2=POSTF(6,5)


IF (TYPE2.EQ.1) THEN $$ IF ARGUMENT IS A REAL


WPC=WORD2


WPCMOD=-1


ENDIF


ENDIF


CIMFIL/OFF


$$ **********************************


$$ G O T O


$$ **********************************


CIMFIL/ON,GOTO


DMY=POSTF(20)


IF (WPCMOD.EQ.-1) THEN $$ First GOTO after WPC change


CURX=POSTF(1,3,344)


CURY=POSTF(1,3,345)


CURZ=POSTF(1,3,346)


PREFUN/WPC,NEXT


POSTN/OUT,X,CURX,Y,CURY


POSTN/OUT,Z,CURZ


WPCMOD=0


JUMPTO/G01


ENDIF


DMY=POSTF(21)


DMY=POSTF(13)


G01)CONTIN


CIMFIL/OFF
Edited by: appinmi
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top