01-02-2024
02:29 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
01-02-2024
02:29 AM
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