Macro remove text block

[Anonymous]

Hi everyone, I have this simple macro to add a certain block of text on all the tool paths of an NC program which in this specific case is a programmed stop.
I would like to know if there is also a way with a macro to remove them all from the nc program.

[lee_sanders]

Hi @Anonymous 

This seemed to work for me

STRING Remove = INPUT ENTITY NCPROGRAM "Seleziona NcProgram"
ACTIVATE NCPROGRAM $Remove
EDIT NCPROGRAM $Remove REMOVE ITEM 1
EDIT NCPROGRAM $Remove REMOVE ITEM 2

[Anonymous]

Hi, it doesn't work clear the text block but also the toolpath.
I was interested in erasing only the blocks of text.

[lee_sanders]

Hi @Anonymous 

Can you share an example PM project?

[Anonymous]

Yes

[lee_sanders]

hi @Anonymous 

here is a workaround, this relies on the programs and text block being added sequentially.

I'm trying to get a more robust method

// count stores the number of programs in the NC program
INT count = 0
// counter is based on there being a text block before and after each program
INT counter = 0

STRING nc_program = INPUT ENTITY NCPROGRAM "Seleziona NcProgram"

// enter the number of programs in the NC program
string prompt = "Enter number of programs in NC"
$count = input $prompt
$count = $count *2

WHILE $counter < $count {
EDIT NCPROGRAM $nc_program REMOVE ITEM $counter
$counter = $counter + 2
}
// deletes last text block
EDIT NCPROGRAM $nc_program REMOVE ITEM $counter

[Anonymous]

Hi, I tried your macro, also delete the nc programs together with the blocks of text.

[lee_sanders · Accepted solution]

hi @Anonymous 

please try this below, this will remove ALL text blocks from the NC programs 

FOREACH $item in components(entity('ncprogram','')) {
if ($item.roottype=='nctextblock') {
EDIT TEXTBLOCK $item.Identifier REMFROMNCPROG
}
}

[Anonymous]

Thanks, mythical works fine

[ksrinivas94GLE]

can you please share any video clip ,this macro is not working to us.

[ksrinivas94GLE]

CAN YOU SHARE THE PROCEDURE