Balloon Check

Have you ever had an assembly and you just wish you knew if you had everything ballooned?
Well now you can check it with Ilogic.
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)
BeepiLog