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 & ” ”
msg = msg & s & vbNewLine

End If

‘show results


Related Posts

Leave a Reply

Your email address will not be published. Required fields are marked *