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

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