05-03-2022
07:53 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
05-03-2022
07:53 AM
you mean this??
Sub Main() Dim asmDoc As AssemblyDocument = ThisDoc.Document BU2Each(asmDoc) End Sub Sub BU2Each(ByVal asm As AssemblyDocument) For Each oRefDoc As Document In asm.AllReferencedDocuments If oRefDoc.DocumentType = DocumentTypeEnum.kPartDocumentObject AndAlso asm.ComponentDefinition.Occurrences.AllReferencedOccurrences(oRefDoc).Count > 0 If oRefDoc.PropertySets.PropertySetExists("ContentCenter") Try Dim paramBL As Inventor.Parameter paramBL = oRefDoc.ComponentDefinition.Parameters.Item("B_L") paramBL.ExposedAsProperty = True 'paramBL.CustomPropertyFormat.PropertyType = kTextPropertyType 'parambl.CustomPropertyFormat.ShowUnitsString = False 'paramBL.CustomPropertyFormat.PropertyType = kNumberPropertyType Catch End Try End If End If Next End Sub
I´m sorry but it does not work..... ![]()