06-27-2024
12:06 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-27-2024
12:06 AM
You'll need something unique about the part to handle this, for example if you have the part document description set to contain "PLATE" you can add a check before continuing the macro per part. add this after "partDoc" is defined.
Dim partDoc As PartDocument = oOcc.Definition.Document
If instr(1, partDoc.PropertySets("Design Tracking Properties").item("Description").Expression, "PLATE", vbTextCompare) = 0 Then Exit Sub
Change "PLATE" to what you use in your sheet metal descriptions.