macro loop help me

macro loop help me

triphuog
Contributor Contributor
479 Views
1 Reply
Message 1 of 2

macro loop help me

triphuog
Contributor
Contributor

Besides performing a renaming loop, is it possible to do a macro loop? Everyone please help me do that, thank you!

triphuog_0-1589007131596.png

I want to cut the tool automatically with the toolpath foder. and each foder has a separate boundary

 

 

ACTIVATE Toolpath "I1 R2"
QUIT FORM TPLIMIT
EDIT TOOLPATH LIMIT BOUNDARY
EDIT TOOLPATH LIMIT DELETE Y
EDIT TOOLPATH LIMIT BOUNDPLANEOPTIONS BESTFIT_PLANE
EDIT TOOLPATH LIMIT KEEP INNER
EDIT TOOLPATH LIMIT BOUNDARYNAME "IN-OUT"
EDIT TOOLPATH LIMIT BOUNDPLANEOPTIONS ACTIVE_WORKPLANE
ACTIVATE Workplane "B"
PROCESS TPLIMIT
LIMIT CANCEL

ACTIVATE Toolpath "I2 R0,5"
QUIT FORM TPLIMIT
EDIT TOOLPATH LIMIT BOUNDARY
EDIT TOOLPATH LIMIT DELETE Y
EDIT TOOLPATH LIMIT BOUNDPLANEOPTIONS BESTFIT_PLANE
EDIT TOOLPATH LIMIT KEEP INNER
EDIT TOOLPATH LIMIT BOUNDARYNAME "IN-OUT"
EDIT TOOLPATH LIMIT BOUNDPLANEOPTIONS ACTIVE_WORKPLANE
ACTIVATE Workplane "B"
PROCESS TPLIMIT
LIMIT CANCEL

ACTIVATE Toolpath "I3 R0,25"
QUIT FORM TPLIMIT
EDIT TOOLPATH LIMIT BOUNDARY
EDIT TOOLPATH LIMIT DELETE Y
EDIT TOOLPATH LIMIT BOUNDPLANEOPTIONS BESTFIT_PLANE
EDIT TOOLPATH LIMIT KEEP INNER
EDIT TOOLPATH LIMIT BOUNDARYNAME "IN-OUT"
EDIT TOOLPATH LIMIT BOUNDPLANEOPTIONS ACTIVE_WORKPLANE
ACTIVATE Workplane "B"
PROCESS TPLIMIT
LIMIT CANCEL

 

 


ACTIVATE FOLDER "Toolpath\H"

ACTIVATE Toolpath "H1 R2"
QUIT FORM TPLIMIT
EDIT TOOLPATH LIMIT BOUNDARY
EDIT TOOLPATH LIMIT DELETE Y
EDIT TOOLPATH LIMIT BOUNDPLANEOPTIONS BESTFIT_PLANE
EDIT TOOLPATH LIMIT KEEP INNER
EDIT TOOLPATH LIMIT BOUNDARYNAME "HEEL-TOE"
EDIT TOOLPATH LIMIT BOUNDPLANEOPTIONS ACTIVE_WORKPLANE
ACTIVATE Workplane "B"
PROCESS TPLIMIT
LIMIT CANCEL

ACTIVATE Toolpath "H2 R0,5"
QUIT FORM TPLIMIT
EDIT TOOLPATH LIMIT BOUNDARY
EDIT TOOLPATH LIMIT DELETE Y
EDIT TOOLPATH LIMIT BOUNDPLANEOPTIONS BESTFIT_PLANE
EDIT TOOLPATH LIMIT KEEP INNER
EDIT TOOLPATH LIMIT BOUNDARYNAME "HEEL-TOE"
EDIT TOOLPATH LIMIT BOUNDPLANEOPTIONS ACTIVE_WORKPLANE
ACTIVATE Workplane "B"
PROCESS TPLIMIT
LIMIT CANCEL

ACTIVATE Toolpath "H3 R0,25"
QUIT FORM TPLIMIT
EDIT TOOLPATH LIMIT BOUNDARY
EDIT TOOLPATH LIMIT DELETE Y
EDIT TOOLPATH LIMIT BOUNDPLANEOPTIONS BESTFIT_PLANE
EDIT TOOLPATH LIMIT KEEP INNER
EDIT TOOLPATH LIMIT BOUNDARYNAME "HEEL-TOE"
EDIT TOOLPATH LIMIT BOUNDPLANEOPTIONS ACTIVE_WORKPLANE
ACTIVATE Workplane "B"
PROCESS TPLIMIT
LIMIT CANCEL

 

 

 

 

0 Likes
480 Views
1 Reply
Reply (1)
Message 2 of 2

lee_sanders
Alumni
Alumni

Hi @triphuog 

 

FOREACH tp IN folder('Toolpath\I') {
ACTIVATE TOOLPATH $tp.Name
STRING name = $tp.Name
STRING NewName = $tp.Name + '___OLD'
RENAME TOOLPATH $name $NewName
}

FOREACH tp IN folder('Toolpath\H') {
ACTIVATE TOOLPATH $tp.Name
STRING name = $tp.Name
STRING NewName = $tp.Name + '___OLD'
RENAME TOOLPATH $name $NewName
}

 

This macro will loop through all the programs in Toolpaths, folder 'I' and folder 'H' and rename the programs with '___OLD' 


Lee Sanders
Technical Consultant
0 Likes