Getting rid of units and adjust decimal in properties for all items in frame gen at once Inventor

[abdul_alrashedZ7SBK]

Removing units and adjustment of decimals have already been addressed before using a custom priority format. However, I would like to know if there is a way to remove all units and adjust decimal at once from a Frame Gen, rather than doing it individually for each one,

[BM_Ashraf]

Hi,

Try This

Sub main

If ThisApplication.ActiveDocumentType <> DocumentTypeEnum.kAssemblyDocumentObject Then Return
Dim oDoc As AssemblyDocument = ThisApplication.ActiveDocument
Dim oCDEF As AssemblyComponentDefinition = oDoc.ComponentDefinition

 For Each oRefDoc As Document In oDoc.AllReferencedDocuments
    If oRefDoc.DocumentType <> DocumentTypeEnum.kPartDocumentObject Then Continue For
		'Created by Frame Generator
		If oRefDoc.DocumentInterests.HasInterest("{AC211AE0-A7A5-4589-916D-81C529DA6D17}") = False Then Continue For
        Dim oPartCompDef As PartComponentDefinition = oRefDoc.ComponentDefinition
		Dim userParams As UserParameters = oPartCompDef.Parameters.UserParameters
		For Each oUP As UserParameter In userParams
		  If oUP.ExposedAsProperty = False Then Continue For
		  If oUP.Units = "Text" Or oUP.Units = "Boolean" Then Continue For 
          oUP.CustomPropertyFormat.ShowLeadingZeros = False
          oUP.CustomPropertyFormat.ShowTrailingZeros = False
          oUP.CustomPropertyFormat.ShowUnitsString = False
		  'MsgBox(oRefDoc.DisplayName & "" & oUP.Name)
		Next 
 Next 
  
End Sub

[CGBenner]

@abdul_alrash 

Did the information provided answer your question? If so, please use Accept Solution so that others may find this in the future. Thank you very much!

[abdul_alrashedZ7SBK]

Thank you Team,
The code works perfectly; however, it only considers the member length,

Could you please add the member's thickness, width, and height to the code,

Your help and support are much appreciated