05-24-2022
07:46 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
05-24-2022
07:46 AM
Dim oDoc As PartDocument Set oDoc = ThisApplication.ActiveDocument Dim oSM As SheetMetalComponentDefinition Set oSM = oDoc.ComponentDefinition Dim oSMStyle As SheetMetalStyle Set oSMStyle = oSM.SheetMetalStyles.Item("Default") oSMStyle.Activate