12-05-2019
05:59 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
12-05-2019
05:59 AM
For Each oOcc In oOccs
'MessageBox.Show(oOcc.Name) 'check line for debugging
'Trace.WriteLine(oOcc.Name, "iLogic") 'debug
If Not oOcc.Suppressed Then
If Left(oOcc.Name, oCnt) = sComponent Then
iQTY += 1 'count the components
End If
MessageBox.Show("Done0", "Checker")
'look at only virtual components
If TypeOf oOcc.Definition Is VirtualComponentDefinition Then
'find and delete existing virtual parts by name
If Left(oOcc.Name,oCnt2 +1) = sVirtPart & ":" Then
'delete existing virtual parts if name matches
oOcc.delete
End If
End If
MessageBox.Show("Done1", "Checker")
End If
Next
-------------------------------------------------------------------------------------------
Inventor 2023 - Dell Precision 5570
Did you find this reply helpful ? If so please use the Accept Solution button below.
Maybe buy me a beer through Venmo @mcgyvr1269