Ilogic to Synchronize sheetnames

[Anonymous]

Hi

How to use ilogic or ? Want to Synchronize sheetname in browser with the sheetname on 2D..

Sheetname at 2D is created with promted Entry- but then users need to fill out everytime and we want a permanent naming.

example. sheet 1 is always named with: Main assembly

Sheet 2 is named with: Spare parts

Anyone who have a good solution for this? in a way were users cant rename the permanent naming in browser.

[mcgyvr]

This is assuming your sheet name prompted entry is "<Sheet Name>" if its something else just change that in the code below

Dim oDoc As DrawingDocument
oDoc = ThisApplication.ActiveDocument

Dim oTitleBlock As TitleBlock
Dim oTextBox As TextBox
Dim oSheet As Sheet

Dim lPos As Long
Dim sSheetName As String
Dim sNewName As String

For Each oSheet In oDoc.Sheets
    'check to see if the sheet has a titleblock instance
    If oSheet.TitleBlock Is Nothing Then
    'Do Nothing
    Else
        oTitleBlock = oSheet.TitleBlock
    For Each oTextBox In oTitleBlock.Definition.Sketch.TextBoxes
                If oTextBox.Text = "<Sheet Name>" Then
                    'check to see if prompted entry is empty
                    If oTitleBlock.GetResultText(oTextBox) = "" Then
                    'if prompted entry is empty, then query the user
                    sNewName = InputBox("Enter Sheet Name", "No Sheet Name Found in TitleBlock", sSheetName)
                    oTitleBlock.SetPromptResultText(oTextBox, sNewName)
                    oSheet.Name = oTitleBlock.GetResultText(oTextBox)
            Else
            oSheet.Name = oTitleBlock.GetResultText(oTextBox)
            End If
        End If
        Next
        End If
Next
iLogicVb.UpdateWhenDone = True

[Anonymous]

Hi and thanks-we will try

[kelly.young]

@Anonymous did the sweet code @mcgyvr wrote for you solve your issue?

Please select the Accept as Solution button if a post solves your issue or answers your question.

[Anonymous]

Hi

Its working partly-the name from browser for each sheet is now visible in header of 2D, but when opening template we still get the promt and do now need to press cancel xx times for each sheet we have.

see attachment