iLogic change sheet name with parameters

[Anonymous]

Hello,

I changed the names of the sheets to part numbers using the rules posted on the forum.Now I would like to add extra text "NOT PRINT" to name in selected sheets using the assembly parameters. I can not write a code that reads the existing name of the sheet. Where do I make a mistake? I will be grateful for your help.

Dim oDoc As DrawingDocument
oDoc = ThisApplication.ActiveDocument
oSheets=ThisDrawing.Document.Sheets

Dim oSheet As Sheet
Dim sSheetName As String


If Parameter("assemble.iam.item1") = False Then
oSheets.Item(30).Activate
mSheetName = oSheet.Name

ActiveSheet.Sheet.Name = mSheetName & "NOT PRINT"
	
Else
'do nothing
End If


If Parameter("assemble.iam.item2") = False Then
oSheets.Item(31).Activate
mSheetName = oSheet.Name

ActiveSheet.Sheet.Name = mSheetName & "NOT PRINT"
	
Else
'do nothing
End If

[Owner2229]

Here you go:

Dim oDoc As DrawingDocument = ThisApplication.ActiveDocument
Dim oSheets As Sheets = ThisDrawing.Document.Sheets

Dim Surfix As String = "NOT PRINT"

If Parameter("assemble.iam.item1") = False Then
    Dim oSheet As Sheet = oSheets.Item(30)
    oSheet.Activate()
    oSheet.Name = oSheet.Name & Surfix
Else
    'Do nothing
End If

If Parameter("assemble.iam.item2") = False Then
    Dim oSheet As Sheet = oSheets.Item(31)
    oSheet.Activate()
    oSheet.Name = oSheet.Name & Surfix
Else
    'Do nothing
End If

[Anonymous]

Thank you for a quick answer but the code does not work properly. The rule activates sheet but does not add surfix 😞

[Owner2229 · Accepted solution]

Alright, I've done some testing and here's the correction (orange):

Dim oDoc As DrawingDocument = ThisApplication.ActiveDocument
Dim oSheets As Sheets = ThisDrawing.Document.Sheets

Dim Surfix As String = "NOT PRINT"

If Parameter("assemble.iam.item1") = False Then
    Dim oSheet As Sheet = oSheets.Item(30)
    oSheet.Activate()
    Dim FNP As Integer = InStrRev(oSheet.Name, ":", -1)
    oSheet.Name = Left(oSheet.Name, FNP - 1) & Surfix
Else
    'Do nothing
End If

If Parameter("assemble.iam.item2") = False Then
    Dim oSheet As Sheet = oSheets.Item(31)
    oSheet.Activate()
    Dim FNP As Integer = InStrRev(oSheet.Name, ":", -1)
    oSheet.Name = Left(oSheet.Name, FNP - 1) & Surfix
Else
    'Do nothing
End If

[Anonymous]

Now works perfectly.

Thank you very much!