iProp to browser tree

[GosponZ]

I'm using this rule for long time, and now need to add custom property to this rule. Could you guys help me? 

Thanks

'This rule will make in browser part number, description,

oDoc = ThisDoc.Document

oSheets = oDoc.Sheets

    For Each oSheet In oSheets

        oSheet.activate

        oView = oSheet.DrawingViews.Item(1)

        modelName = oView.ReferencedDocumentDescriptor.ReferencedDocument

        oProp = modelName.PropertySets.Item("Design Tracking Properties")

        ActiveSheet.Sheet.Name = oProp.Item("Part Number").Value & " " & oProp.Item("Description").Value ‘& " " & oProp.Item("Authority").Value

    Next

oSheets(1).activate

iLogicVb.UpdateWhenDone = True

[JhoelForshav · Accepted solution]

@GosponZ 

Are you looking for something like this?

oDoc = ThisDoc.Document

oSheets = oDoc.Sheets

    For Each oSheet In oSheets

        oSheet.activate

        oView = oSheet.DrawingViews.Item(1)

        modelName = oView.ReferencedDocumentDescriptor.ReferencedDocument

        oProp = modelName.PropertySets.Item("Design Tracking Properties")
		ocProp = modelName.PropertySets.Item("Inventor User Defined Properties") 'Custom property set

        ActiveSheet.Sheet.Name = oProp.Item("Part Number").Value & " " & oProp.Item("Description").Value & " " & oProp.Item("Authority").Value _
		& " " & ocProp.Item("NAME GOES HERE").Value


    Next

oSheets(1).activate

 

iLogicVb.UpdateWhenDone = True

[Martin-Winkler-Consulting · Accepted solution]

There are 4 Property Sets in Inventor. 

Inventor Summary Information/{F29F85E0-4FF9-1068-AB91-08002B27B3D9}

Design Tracking Properties/{32853F0F-3444-11D1-9E93-0060B03C1CA6}

Inventor User Defined Properties/{D5CDD505-2E9C-101B-9397-08002B2CF9AE}

Inventor Document Summary Information/{D5CDD502-2E9C-101B-9397-08002B2CF9AE}

You can call the Property Sets with Name or the Guid for example the User Defined Properties:

.PropertySets.Item("Inventor User Defined Properties")

or

.PropertySets.Item("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}")

If you need more information have a look to this blog post:

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

[GosponZ · Accepted solution]

Thank you it is working

[GosponZ]

Thank you

[GosponZ]

As i said it is working no problem at all. When i place assembly on sheet code doesn't work.

Is it there way to skip assembly. Problem is they want save dxf file as material, part description, and total qty from assembly for that part. With only parts no problem. Would  you guys try to help.

Thanks

[JhoelForshav · Accepted solution]

Hi @GosponZ 

Try this to skip the property based naming if the view's referenced document is not a part document 🙂

oDoc = ThisDoc.Document

oSheets = oDoc.Sheets

For Each oSheet In oSheets

	oSheet.activate

	oView = oSheet.DrawingViews.Item(1)

	modelName = oView.ReferencedDocumentDescriptor.ReferencedDocument

	If modelName.DocumentType = DocumentTypeEnum.kPartDocumentObject 'Only set property based name for part views.

		oProp = modelName.PropertySets.Item("Design Tracking Properties")
		ocProp = modelName.PropertySets.Item("Inventor User Defined Properties") 'Custom property set

		ActiveSheet.Sheet.Name = oProp.Item("Part Number").Value & " " & oProp.Item("Description").Value & " " & oProp.Item("Authority").Value _
		& " " & ocProp.Item("NAME GOES HERE").Value

	End If

Next

oSheets(1).activate



iLogicVb.UpdateWhenDone = True

[GosponZ]

Thank you works good