Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
tcaG6GZK
in reply to: dalton98

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..... :disappointed_face: