03-23-2022
09:08 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
03-23-2022
09:08 AM
This worked
Dim oDoc As PartDocument oDoc = ThisApplication.ActiveDocument Dim oCompDef As SheetMetalComponentDefinition oCompDef = oDoc.ComponentDefinition oCompDef.SheetMetalStyles.Item("18GA GA Jkt (Test)").Activate