Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Sergio.D.Suárez
in reply to: Anonymous

Hi, try the following code, I think it could work.

 

Dim AssyDoc As AssemblyDocument = ThisDoc.Document

For Each oOcc As ComponentOccurrence In AssyDoc.ComponentDefinition.Occurrences
	oFilename = oOcc.Definition.Document.displayname
	If InStr(oFilename, "VLV_MAN") <> 0 Then 
		ThisApplication.CommandManager.DoSelect(oOcc)
	End If
	If InStr(oFilename, "VLV_HYD") <> 0 Then 
		ThisApplication.CommandManager.DoSelect(oOcc)
	End If
Next

 I hope this helps with your problem. regards


Please accept as solution and give likes if applicable.

I am attaching my Upwork profile for specific queries.

Sergio Daniel Suarez
Mechanical Designer

| Upwork Profile | LinkedIn