VBA Custom User Properties Showing Up Twice in BOM

[jzecha]

I have this section of code that creates a Part Properties I can export to Excel Via Analyze BOM function.
The issue is that when I Analyze BOM in Catia and Click the Define Formats Button, the "BB Length" property appears 2X on my Hidden Properties list.
When I add both, only one of them has the Length value applied.

Any idea why this is happening or what I am doing wrong?

            Dim oPartDoc As Document
            Set oPartDoc = CATIA.ActiveDocument

            Dim oPart As CATBaseDispatch
            Set oPart = oPartDoc.GetItem("")
    
            Dim oParameter As Parameters
            Set oParameter = oPart.UserRefProperties
                
                oLength = oLength * 25.4
                Dim length1 As Length
                Set length1 = oParameter.CreateDimension("BB Length ", "LENGTH", 0#)
                length1.Value = oLength

 

[MarkAF]

In this macro, you're creating a new parameter regardless of whether a parameter with the same name exists or not. Better would be to incorporate a logic check. If the parameter exists, then use it, or else create the new parameter.

 

[jzecha]

@MarkAF,

I went down that path and still had this issue.
I finally solved it, left all of my code alone, and removed the space between the h at the end of Length and the quotes.
This worked after a ton of problem solving.

Before:
("BB Length ", "LENGTH", 0#)
After:
("BB Length", "LENGTH", 0#)