Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
SevInventor
in reply to: mat_hijs

Happy New Year,

 

try this:

 

	Dim oDoc As Document = ThisDoc.Document
    If oDoc.DocumentType <> kDrawingDocumentObject Then: MsgBox("drawings only!"): Exit Sub: End If
        
	Dim oSheet As Sheet = oDoc.ActiveSheet
    If oSheet Is Nothing Then: MsgBox("Only valid for drawings with sheets!"): Exit Sub: End If
	

	Dim oPL As PartsList = oSheet.PartsLists(1)
	
    If oPL.PartsListRows.Count < 1 Then: MsgBox("Only valid for partslists with rows"): Exit Sub: End If


 		For Each oRow In oPL.PartsListRows
	 		If oRow.Ballooned = False Then
				'do something
		Next