Text block Macro

[nathanANTQX]

Hi Guys, I have written a macro for adding a default basic list of text blocks to choose from to add to the NC files. But i had a weird incident today, I ran my macro (linked below) and it over wrote all the text block, (which i have seen before.) 

Is There a way that the macro can only add the extra text blocks and not delete any if there are already present in the project. ( had 2 of my M00 move in the program)

kind Regards Nathan 

CREATE TEXTBLOCK NOADD
EDIT TEXTBLOCK 'Text1' RENAME "__N"
EDIT TEXTBLOCK 'Text1' TYPE 'insert'
EDIT TEXTBLOCK 'Text1' TEXT "M31 L3"

CREATE TEXTBLOCK NOADD
EDIT TEXTBLOCK 'Text2' RENAME "__HQ"
EDIT TEXTBLOCK 'Text2' TYPE 'insert'
EDIT TEXTBLOCK 'Text2' TEXT "M31 L2"

CREATE TEXTBLOCK NOADD
EDIT TEXTBLOCK 'Text3' RENAME "_CHECK DATUM ROBODRILL"
EDIT TEXTBLOCK 'Text3' TYPE 'insert'
EDIT TEXTBLOCK 'Text3' TEXT "G0 G53 Z0.0 G0 G53 X0. Y0. M00 (CHECK DATUM)"

CREATE TEXTBLOCK NOADD
EDIT TEXTBLOCK 'Text4' RENAME "_RELEASE & NIP ROBODRILL"
EDIT TEXTBLOCK 'Text4' TYPE 'insert'
EDIT TEXTBLOCK 'Text4' TEXT "G0 G53 Z0.0
G0 G53 X0. Y0. M00 (RELEASE AND NIP)"

CREATE TEXTBLOCK NOADD
EDIT TEXTBLOCK 'Text5' RENAME "_CHECK SIZE ROBODRILL"
EDIT TEXTBLOCK 'Text5' TYPE 'insert'
EDIT TEXTBLOCK 'Text5' TEXT "G0 G53 Z0.0
G0 G53 X0. Y0. M00 (CHECK SIZE)"

CREATE TEXTBLOCK NOADD
EDIT TEXTBLOCK 'Text6' RENAME "_B HOME & CHECK SIZE ROBODRILL"
EDIT TEXTBLOCK 'Text6' TYPE 'insert'
EDIT TEXTBLOCK 'Text6' TEXT "G0 G53 Z0.0
G0 G53 X0. Y0.
M72
G0 G53 B0.0
M71
M00
(CHECK SIZE)"

CREATE TEXTBLOCK NOADD
EDIT TEXTBLOCK 'Text7' RENAME "_CHECK TOOL ROBODRILL"
EDIT TEXTBLOCK 'Text7' TYPE 'insert'
EDIT TEXTBLOCK 'Text7' TEXT "G0 G53 Z0.0
G0 G53 X0. Y0. M00 (CHECK TOOL)"

CREATE TEXTBLOCK NOADD
EDIT TEXTBLOCK 'Text8' RENAME "_BLOW SWARF ROBODRILL"
EDIT TEXTBLOCK 'Text8' TYPE 'insert'
EDIT TEXTBLOCK 'Text8' TEXT "G0 G53 Z0.0
G0 G53 X0. Y0. M00 (BLOW OUT SWARF)"

CREATE TEXTBLOCK NOADD
EDIT TEXTBLOCK 'Text9' RENAME "_ADD BOLTS ROBODRILL"
EDIT TEXTBLOCK 'Text9' TYPE 'insert'
EDIT TEXTBLOCK 'Text9' TEXT "G0 G53 Z0.0
G0 G53 X0. Y0.
M00
(ADD BOLTS)"

CREATE TEXTBLOCK NOADD
EDIT TEXTBLOCK 'Text10' RENAME "_REMOVE BOLTS ROBODRILL"
EDIT TEXTBLOCK 'Text10' TYPE 'insert'
EDIT TEXTBLOCK 'Text10' TEXT "G0 G53 Z0.0
G0 G53 X0. Y0.
M00
(REMOVE BOLTS)"

CREATE TEXTBLOCK NOADD
EDIT TEXTBLOCK 'Text11' RENAME "_ADD CLAMPS ROBODRILL"
EDIT TEXTBLOCK 'Text11' TYPE 'insert'
EDIT TEXTBLOCK 'Text11' TEXT "G0 G53 Z0.0
G0 G53 X0. Y0.
M00
(ADD CLAMPS)"

CREATE TEXTBLOCK NOADD
EDIT TEXTBLOCK 'Text12' RENAME "_REMOVE CLAMPS ROBODRILL"
EDIT TEXTBLOCK 'Text12' TYPE 'insert'
EDIT TEXTBLOCK 'Text12' TEXT "G0 G53 Z0.0
G0 G53 X0. Y0.
M00
(REMOVE CLAMPS)"

CREATE TEXTBLOCK NOADD
EDIT TEXTBLOCK 'Text13' RENAME "CHECK DATUM TAKUMI"
EDIT TEXTBLOCK 'Text13' TYPE 'insert'
EDIT TEXTBLOCK 'Text13' TEXT "G0 G53 Z0.0
G0 G53 Y0.
M00
(CHECK DATUM)"

CREATE TEXTBLOCK NOADD
EDIT TEXTBLOCK 'Text14' RENAME "RELEASE & NIP TAKUMI"
EDIT TEXTBLOCK 'Text14' TYPE 'insert'
EDIT TEXTBLOCK 'Text14' TEXT "G0 G53 Z0.0
G0 G53 Y0.
M00
(RELEASE AND NIP)"

CREATE TEXTBLOCK NOADD
EDIT TEXTBLOCK 'Text15' RENAME "CHECK SIZE TAKUMI"
EDIT TEXTBLOCK 'Text15' TYPE 'insert'
EDIT TEXTBLOCK 'Text15' TEXT "G0 G53 Z0.0
G0 G53 Y0.
M00
(CHECK SIZE)"

CREATE TEXTBLOCK NOADD
EDIT TEXTBLOCK 'Text16' RENAME "CHECK TOOL TAKUMI"
EDIT TEXTBLOCK 'Text16' TYPE 'insert'
EDIT TEXTBLOCK 'Text16' TEXT "G0 G53 Z0.0
G0 G53 Y0.
M00
(CHECK TOOL)"

CREATE TEXTBLOCK NOADD
EDIT TEXTBLOCK 'Text17' RENAME "BLOW SWARF TAKUMI"
EDIT TEXTBLOCK 'Text17' TYPE 'insert'
EDIT TEXTBLOCK 'Text17' TEXT "G0 G53 Z0.0
G0 G53 Y0.
M00
(BLOW OUT SWARF)"

CREATE TEXTBLOCK NOADD
EDIT TEXTBLOCK 'Text18' RENAME "ADD BOLTS TAKUMI"
EDIT TEXTBLOCK 'Text18' TYPE 'insert'
EDIT TEXTBLOCK 'Text18' TEXT "G0 G53 Z0.0
G0 G53 Y0.
M00
(ADD BOLTS)"

CREATE TEXTBLOCK NOADD
EDIT TEXTBLOCK 'Text19' RENAME "REMOVE BOLTS TAKUMI"
EDIT TEXTBLOCK 'Text19' TYPE 'insert'
EDIT TEXTBLOCK 'Text19' TEXT "G0 G53 Z0.0
G0 G53 Y0.
M00
(REMOVE BOLTS)"

CREATE TEXTBLOCK NOADD
EDIT TEXTBLOCK 'Text20' RENAME "ADD CLAMPS TAKUMI"
EDIT TEXTBLOCK 'Text20' TYPE 'insert'
EDIT TEXTBLOCK 'Text20' TEXT "G0 G53 Z0.0
G0 G53 Y0.
M00
(ADD CLAMPS)"

CREATE TEXTBLOCK NOADD
EDIT TEXTBLOCK 'Text21' RENAME "REMOVE CLAMPS TAKUMI"
EDIT TEXTBLOCK 'Text21' TYPE 'insert'
EDIT TEXTBLOCK 'Text21' TEXT "G0 G53 Z0.0
G0 G53 Y0.
M00
(REMOVE CLAMPS)"

TEXT APPLY
TEXT ACCEPT
FORM RIBBON TAB "uiCATEGORY"