Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
dalton98
in reply to: utm007

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