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

I think this is what you might be looking for.

 

Private Sub FlatStyle()

    Dim oDoc As Inventor.PartDocument
    Set oDoc = ThisApplication.ActiveDocument
    
    Dim oCompDef As SheetMetalComponentDefinition
    Set oCompDef = oDoc.ComponentDefinition
    
    Dim oName As String
    oName = oCompDef.ActiveSheetMetalStyle.Name
    
End Sub

 

 

 

 


Did you find this reply helpful ? If so please use the Accept as Solution or Kudos button below.

---------------------------------------------------------------------------------------------------------------------------
Inventor 2010 Certified Professional
Currently using 2023 Pro