multi sheet browser name in i logic

[darrenwilliams]

 hi 

I am trying to put multi sheets assembly together and using the sheet title in the browser to make it easy to see what parts are being used so we can open up just that drawing

I have found a code on this forum for naming the drawing sheet after the part drawn but when you add a second sheet with a different part it still calls it the after the first sheet part 

If (ThisDrawing.ModelDocument Is Nothing) Then Return
    modelName = IO.Path.GetFileName(ThisDrawing.ModelDocument.FullFileName)
    ActiveSheet.Sheet.Name = iProperties.Value(modelName, "Project", "Description

any help would be great 

Darren

[MechMachineMan]

SyntaxEditor Code Snippet

For Each oSheet In ThisApplication.ActiveDocument.Sheets
    If oSheet.DrawingViews.Count = 0
         'Next Sheet
    Else
        oModelDoc = oSheet.DrawingViews.Item(1).ReferencedDocumentDescriptor.ReferencedDocument
        oProject = oModelDoc.PropertySets("Design Tracking Properties")("Project").Value
        If oProject <> ""
            oSheet.Name = oProject
        Else
            oSheet.Name = "xxx-NoProject"
        End If
    End If
Next

[darrenwilliams]

Hi

Thanks for the quick reply on this 

This worked but put the project file as the sheet name i wanted to have the description of the parts as there will be different parts on each sheet 

Darren

[MechMachineMan · Accepted solution]

I had misread your first code and saw project instead of description... Don't know why inventor words the property sets differently for iLogic...

Also, for future reference:

http://modthemachine.typepad.com/my_weblog/2010/02/accessing-iproperties.html

For Each oSheet In ThisApplication.ActiveDocument.Sheets
    If oSheet.DrawingViews.Count = 0
         'Next Sheet
    Else
        oModelDoc = oSheet.DrawingViews.Item(1).ReferencedDocumentDescriptor.ReferencedDocument
        oDescription = oModelDoc.PropertySets("Design Tracking Properties")("Description").Value
        If oDescription <> "" 
             oSheet.Name = oDescription
        Else 
             oSheet.Name = "xxx-NoDescription"
        End If
    End If
Next

[darrenwilliams]

Thanks very much this worked great