07-18-2019
04:53 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
07-18-2019
04:53 AM
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