automatically insert review table

[Miguel.CarvajalS34Q6]

Hello.
Cordial greeting, for a test that I am doing I need a review table to be automatically inserted in each active drawing sheet, and in the new leaves that are created, as the possibility that the format changes, it is necessary that the location is necessary of the review table this always in the upper right corner of each sheet regardless of the size of the sheet.
I would greatly appreciate your help!

[JelteDeJong]

this rule will add a revision block to the active sheet

Dim doc As DrawingDocument = ThisDoc.Document
Dim sheet As Sheet = doc.ActiveSheet

Dim position = sheet.Border.RangeBox.MaxPoint

Dim table = sheet.RevisionTables.Add(position)

Dim tableWith = table.RangeBox.MaxPoint.X - table.RangeBox.MinPoint.X
position.X = position.X - tableWith

table.Position = position

[Miguel.CarvajalS34Q6]

the code works fine, but a new table is not inserted when I create another drawing sheet, I tried to automate it with a trigger, but it does not insert the table in all the sheets, only in the avtiva, in addition to that it is not independent, each value that it is written in the table of one sheet, it is reflected in all the sheets, can you help me with that please

[WCrihfield · Accepted solution]

Hi @Miguel.CarvajalS34Q6.  I think you would simply need to change this one line, like so.

Dim table = Sheet.RevisionTables.Add2(position, True)

It is using the Add2 method, which also has more options available to specify, if you wanted to.

[Miguel.CarvajalS34Q6]

try adjusting the code, in another custom label and the modification table is inserted at the end of the sheet and not the label, how can I solve this event