If you haven't got it already for about the 100,th time, here it is again. Rick
-----Original Message----- From: William Ray [mailto:[EMAIL PROTECTED]] Sent: Thursday, June 28, 2001 3:46 PM To: [EMAIL PROTECTED] Subject: Re: [mfg-smartcam] Renum.mcl No I got the file but when I run it I get an error "line 15" I will post the error message tomarrow William Ray ----- Original Message ----- From: Michael Senack To: 'William Ray' Sent: Thursday, June 28, 2001 2:38 PM Subject: RE: [mfg-smartcam] Renum.mcl Did a search of my system and no Renum.mcl file anywhere? -----Original Message----- From: William Ray [mailto:[EMAIL PROTECTED]] Sent: Thursday, June 28, 2001 12:19 PM To: [EMAIL PROTECTED] Subject: [mfg-smartcam] Renum.mcl Hi All I lost a macro file Renum.mcl when I switched computers I then downloaded from kdg engineering but it has an error Can someone send me a copy? Also I want to space out the letters in one of my font files When I move the letters in the file it does'nt seem to change the font spacing can someone give me a Tip? Thanks William Ray Ray Machine IncTitle: RE: [mfg-smartcam] Renum.mcl
If you haven't got it already for about the 100,th time, here it is again.
Rick
-----Original Message-----
From: William Ray [mailto:[EMAIL PROTECTED]]
Sent: Thursday, June 28, 2001 3:46 PM
To: [EMAIL PROTECTED]
Subject: Re: [mfg-smartcam] Renum.mcl
No I got the file but when I run it I get an error "line 15"
I will post the error message tomarrow
William Ray
----- Original Message -----
From: Michael Senack
To: 'William Ray'
Sent: Thursday, June 28, 2001 2:38 PM
Subject: RE: [mfg-smartcam] Renum.mcl
Did a search of my system and no Renum.mcl file anywhere?
-----Original Message-----
From: William Ray [mailto:[EMAIL PROTECTED]]
Sent: Thursday, June 28, 2001 12:19 PM
To: [EMAIL PROTECTED]
Subject: [mfg-smartcam] Renum.mcl
Hi All
I lost a macro file Renum.mcl when I switched computers
I then downloaded from kdg engineering but it has an error
Can someone send me a copy?
Also I want to space out the letters in one of my font files
When I move the letters in the file it does'nt seem to change the font spacing
can someone give me a Tip?
Thanks
William Ray
Ray Machine Inc
//The purpose of this macro is to remove all unused steps and tools from a job file,
and
//renuber the tools in the order in which they appear in the data base.
//CAUTION: There will be a problem with jobs that do not have a tool do a process then
//a different tool do a process then back to the first tool. What will probably
happen
//is that the tool numbers will not match the exact order in which the tools first
appear
//in the data base.
#ELMNT=1
#INSRT=0
WHILE(#ELMNT<=TOTEL())
IF(STEP(#ELMNT)>0)
IF(#INSRT=0)
#ACTVT=STEP(#ELMNT)
ELMT_SEQ[BA=1, EL="1", ME=0]
WITH_STEP[ST=#ACTVT, WP="XY_PLANE", OF=2, LV=0, CL=?, PT=?]
PLAN_ALL_REMOVE[LIST=1]
PLAN_ALL_REMOVE[LIST=2]
#INSRT=1
ENDIF
#TLNM=JTOOL(#ELMNT)
#HELLO=(#TLNM+1000)
TOOL_GRP[TL=#TLNM, AR=0]
JOS_CONTEXT_OPEN[BASEITEM=2, USERNAME=#TLNM]
JOS_FIELD_EDIT[FLDNAME="tl_num", EXPR=#HELLO]
JOS_FIELD_EDIT[FLDNAME="ta_usrnam", EXPR=#HELLO]
JOS_CHANGES_PROMOTE[]
JOS_CONTEXT_CLOSE[]
#ELMNT=GRP(GRP(0))
ENDIF
NEW_GRP[]
#ELMNT=#ELMNT+1
ENDW
VAR_REMOVE_ALL[]
#ELMNT=1
#HELLO=1
WHILE(#ELMNT<=TOTEL())
IF(STEP(#ELMNT)>0)
#TLNM=JTOOL(#ELMNT)
TOOL_GRP[TL=#TLNM, AR=0]
JOS_CONTEXT_OPEN[BASEITEM=2, USERNAME=#TLNM]
JOS_FIELD_EDIT[FLDNAME="tl_num", EXPR=#HELLO]
JOS_FIELD_EDIT[FLDNAME="ta_usrnam", EXPR=#HELLO]
JOS_CHANGES_PROMOTE[]
JOS_CONTEXT_CLOSE[]
#ELMNT=GRP(GRP(0))
#HELLO=(#HELLO+1)
ENDIF
NEW_GRP[]
#ELMNT=#ELMNT+1
ENDW
