Using iLogic to look for missing balloons

[Anonymous]

I found this code by "inventor guru" which works perfect to list all missing ballons. But it doesn't work for iParts, as it lists ALL the missing balloons, not checking against active BOM (also shows the hidden members)

I would think its possible to modify it to check if QTY is more than 0, then list the items.

Anyone know how to achieve this?

Dim oDrawDoc As DrawingDocument = ThisDoc.Document
 Dim oSheet As Sheet = oDrawDoc.ActiveSheet
 Dim oPartsList As PartsList = oSheet.PartsLists.Item(1)
 Dim s As String
 Dim msg as String = ""

For Each oRow As PartsListRow In oPartsList.PartsListRows
 If Not oRow.Ballooned Then
 s = ""
For Each oCell As PartsListCell In oRow
 s = s & oCell.Value & " "
Next
 msg = msg & s & vbNewLine

End If
 Next

'show results
 MsgBox(msg)

[waynehelley · Accepted solution]

Try using this...

If Not oRow.Ballooned And oRow.Item(2).Value > 0 Then

You will just need to tweak it so that the numeric value within the brackets, matches the column number of the Qty column. 

[Anonymous]

Oh, perfect. Thanks!

I have a lot of piping in my assembly, which reports qty as e.g. "100.00 mm". So I get an error saying "Conversion from string "100.000 mm" to type 'Double' is not valid."

Do you know a way to avoid this?

[bradeneuropeArthur]

Hi,

I don't get any error message!

The values are represented in the message!

if your code is different then use:

.Tostring to represent the value.

or

.Cstr to represent the value.

[Anonymous]

This is because I have piping in the assembly. Instead of reporting QTY as 1 or 2, it reports the pipe length (in my example, 100mm) On "regular" assemblies I see that it works fine.

[bradeneuropeArthur]

I don't get a error for these components with ie 100mm Qty.

please post  a screen shot

[Anonymous]

Oh, that was strange. It works if I manually remove "mm", but as long as I have text, if wont check if the value is large than 0...

[bradeneuropeArthur · Accepted solution]

Hi,

I see the error too.

Do this to solve it:

If Not oRow.Ballooned And oRow.Item(2).Value > "0" Then

[Anonymous]

Perfect, thanks a lot!

[freesbee]

...my task is similar but a little bit different, and currently I am in trouble in enumerating balloons attached to other balloons.

For example in the situation under here 407 and 408 are definitely referring to the correct PartlistROW, but they are ignored by the ActiveSheet.Balloons collection, and I am not able to identify the right way to catch them.

Any idea?

[dg8MW9N]

@freesbee 

You may be able to apply the last iLogic code in the following post to help:

Solved: Inventor 2022 Parts List Balloon Indicating Icons - Autodesk Community - Inventor

Thanks to @Curtis_Waguespack 

[pl.sivakumar]

Thanks for your code of Missing balloon,

I  made a small correction on that, If not found ( No missing balloon)Message box will not sow,

If msg = ""

Else

 MsgBox(msg)

End If

Dim oDrawDoc As DrawingDocument = ThisDoc.Document
 Dim oSheet As Sheet = oDrawDoc.ActiveSheet
 Dim oPartsList As PartsList = oSheet.PartsLists.Item(1)
 Dim s As String
 Dim msg As String = ""

For Each oRow As PartsListRow In oPartsList.PartsListRows
 If Not oRow.Ballooned Then
 s = ""
For Each oCell As PartsListCell In oRow
 s = s & oCell.Value & " "
Next
 msg = msg & s & vbNewLine

End If
 Next
If msg = ""
	Else
'show results
 MsgBox(msg)
End If