Drawing BOM Indented?

[chayman]

When inserting a BOM in a drawing, is there a way for there to be a visual child/parent relationship?

At the moment the only visual relationship is as follows with no indentation:

1 

1.1 

1.2 

2

2.2

Is there a way to have indentation like:

1

     1.1

     1.2

2

     2.1

     2.2

[MechMachineMan]

Sub Main()
    delimchar = "."

    Dim oPartsList As PartsList
    oPartsList = ThisDoc.Document.ActiveSheet.PartsLists.Item(1)

    For Each oRow in oPartsList.PartsListRows
        oCurRow = TRIM(oRow.Item(1).Value)
        oSpcCount = Len(oCurRow) - Len(oCurRow.Replace(delimchar, "")) 
        oRow.Item(1).Value = Space(oSpcCount) & oCurRow
    Next
End Sub

[chayman]

@MechMachineMan

Thanks for you quick response. I have created a rule called "BOM" and inserted the parts list in the drawing for the respective assembly. I run the rule, yet nothing happens to the BOM.

It is still:

1

1.1

1.2

etc

[MechMachineMan]

Because you have your parts list style set to "Centered" for the item number column.

Indentation only works with a left aligned column....

Edit Parts List

Format Column

Click the box to left align the item number column.

[MechMachineMan]

Or use this code with the added justification in as a bandaid fix, instead of properly changing the partslist style to match what you want...

Sub Main()
    delimchar = "."

    Dim oPartsList As PartsList
    oPartsList = ThisDoc.Document.ActiveSheet.PartsLists.Item(1)

    oPartsList.PartsListColumns.Item(1).ValueHorizontalJustification = HorizontalTextAlignmentEnum.kAlignTextLeft

    For Each oRow in oPartsList.PartsListRows
        oCurRow = TRIM(oRow.Item(1).Value)
        oSpcCount = Len(oCurRow) - Len(oCurRow.Replace(delimchar, "")) 
        oRow.Item(1).Value = Space(oSpcCount) & oCurRow
    Next
End Sub

[Anonymous]

Hi There, Thank you for your input and help so far. I tried using the code but got an error. Please see the attachment. I would greatly appreciate if you can help debug it.

Many Thanks.

[elelieveld]

If you want the indent to be more pronounced visually, change:

oSpcCount = Len(oCurRow) - Len(oCurRow.Replace(delimchar, ""))

to

 oSpcCount = (Len(oCurRow) - Len(oCurRow.Replace(delimchar, ""))) * 5