Get and Set Material Visual Properties Example (VB.NET)

'-----------------------------------------------------
' Preconditions: Open a part document.
'
' Postconditions: Inspect the Immediate window.
'------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System
Imports System.Diagnostics

Partial Class SolidWorksMacro

    Sub main()

        Dim myModel As ModelDoc2
        Dim myPart As PartDoc
        Dim myMatVisProps As MaterialVisualPropertiesData
        Dim configName As String, databaseName As String
        Dim newPropName As String
        Dim orgBlend As Boolean, orgApply As Boolean
        Dim orgAngle As Double
        Dim orgScale As Double
        Dim longstatus As Long

        myModel = swApp.ActiveDoc
        myPart = myModel
        myMatVisProps = myPart.GetMaterialVisualProperties()

        Debug.Print("===== Material Visual Properties Example =====")

        If Not myMatVisProps Is Nothing Then
            Call dump_material_visual_properties(myMatVisProps, myPart)

            ' Set the material to something else, so that the display changes
            configName = "default"
            databaseName = "SolidWorks Materials"
            newPropName = "Beech"
            myPart.SetMaterialPropertyName2(configName, databaseName, newPropName)
            Call dump_material_visual_properties(myMatVisProps, myPart)
        End If

        ' Set the material visual properties to be just color, no advanced graphics
        myMatVisProps = myPart.GetMaterialVisualProperties()

        If Not myMatVisProps Is Nothing Then
            longstatus = myPart.SetMaterialVisualProperties(myMatVisProps, swInConfigurationOpts_e.swThisConfiguration, Nothing)
            Call dump_material_visual_properties(myMatVisProps, myPart)

            ' Set the material visual properties to be RealView
            myMatVisProps.RealView = True
            longstatus = myPart.SetMaterialVisualProperties(myMatVisProps, swInConfigurationOpts_e.swThisConfiguration, Nothing)
            Call dump_material_visual_properties(myMatVisProps, myPart)

            ' Set the material visual properties to be SolidWorks standard textures
            myMatVisProps.RealView = False
            longstatus = myPart.SetMaterialVisualProperties(myMatVisProps, swInConfigurationOpts_e.swThisConfiguration, Nothing)
            Call dump_material_visual_properties(myMatVisProps, myPart)
        End If

        myMatVisProps = myPart.GetMaterialVisualProperties()

        If Not myMatVisProps Is Nothing Then
            orgAngle = myMatVisProps.Angle
            myMatVisProps.Angle = orgAngle + 1.0#
            longstatus = myPart.SetMaterialVisualProperties(myMatVisProps, swInConfigurationOpts_e.swThisConfiguration, Nothing)
            Call dump_material_visual_properties(myMatVisProps, myPart)
            orgScale = myMatVisProps.Scale2
            myMatVisProps.Scale2 = orgScale * 1.25
            longstatus = myPart.SetMaterialVisualProperties(myMatVisProps, swInConfigurationOpts_e.swThisConfiguration, Nothing)
            Call dump_material_visual_properties(myMatVisProps, myPart)

            ' Toggle the standard texture to blend with the part color
            If myMatVisProps.BlendColor = 0 Then
                orgBlend = False
            Else
                orgBlend = True
            End If

            myMatVisProps.BlendColor = Not orgBlend
            longstatus = myPart.SetMaterialVisualProperties(myMatVisProps, swInConfigurationOpts_e.swThisConfiguration, Nothing)
            Call dump_material_visual_properties(myMatVisProps, myPart)
            myMatVisProps.BlendColor = orgBlend
            longstatus = myPart.SetMaterialVisualProperties(myMatVisProps, swInConfigurationOpts_e.swThisConfiguration, Nothing)
            Call dump_material_visual_properties(myMatVisProps, myPart)

            ' Toggle the apply material color to part flag
            If myMatVisProps.ApplyMaterialColorToPart = 0 Then
                orgApply = False
            Else
                orgApply = True
            End If

            myMatVisProps.ApplyMaterialColorToPart = Not orgApply
            longstatus = myPart.SetMaterialVisualProperties(myMatVisProps, swInConfigurationOpts_e.swThisConfiguration, Nothing)
            Call dump_material_visual_properties(myMatVisProps, myPart)
            myMatVisProps.ApplyMaterialColorToPart = orgApply
            longstatus = myPart.SetMaterialVisualProperties(myMatVisProps, swInConfigurationOpts_e.swThisConfiguration, Nothing)
            Call dump_material_visual_properties(myMatVisProps, myPart)

            ' Toggle the apply material hatch to drawing section view flag
            If myMatVisProps.ApplyMaterialHatchToSection = 0 Then
                orgApply = False
            Else
                orgApply = True
            End If

            myMatVisProps.ApplyMaterialHatchToSection = Not orgApply
            longstatus = myPart.SetMaterialVisualProperties(myMatVisProps, swInConfigurationOpts_e.swThisConfiguration, Nothing)
            Call dump_material_visual_properties(myMatVisProps, myPart)
            myMatVisProps.ApplyMaterialHatchToSection = orgApply
            longstatus = myPart.SetMaterialVisualProperties(myMatVisProps, swInConfigurationOpts_e.swThisConfiguration, Nothing)
            Call dump_material_visual_properties(myMatVisProps, myPart)

            ' Toggle the apply appearance flag
            If myMatVisProps.ApplyAppearance = 0 Then
                orgApply = False
            Else
                orgApply = True
            End If

            myMatVisProps.ApplyAppearance = Not orgApply
            longstatus = myPart.SetMaterialVisualProperties(myMatVisProps, swInConfigurationOpts_e.swThisConfiguration, Nothing)
            Call dump_material_visual_properties(myMatVisProps, myPart)
            myMatVisProps.ApplyAppearance = orgApply
            longstatus = myPart.SetMaterialVisualProperties(myMatVisProps, swInConfigurationOpts_e.swThisConfiguration, Nothing)
            Call dump_material_visual_properties(myMatVisProps, myPart)
        End If

    End Sub

    Private Sub dump_material_visual_properties(ByVal myMatVisProps As MaterialVisualPropertiesData, ByVal myPart As PartDoc)

        Dim configName As String, databaseName As String
        Dim propName As String
        Dim bRealView As Boolean
        Dim dScale As Double, dAngle As Double
        Dim bBlendColor As Boolean, bApplyColor As Boolean, bApplyHatch As Boolean, bApplyAppearance As Boolean
        configName = "default"
        databaseName = Nothing
        propName = myPart.GetMaterialPropertyName2(configName, databaseName)
        Debug.Print("")
        Debug.Print("Config: """ & configName & """, Database: """ & databaseName & """, Material: """ & propName & """")

        If Not myMatVisProps Is Nothing Then
            bRealView = myMatVisProps.RealView
            dScale = myMatVisProps.Scale2
            dAngle = myMatVisProps.Angle
            bBlendColor = myMatVisProps.BlendColor
            bApplyColor = myMatVisProps.ApplyMaterialColorToPart
            bApplyHatch = myMatVisProps.ApplyMaterialHatchToSection
            bApplyAppearance = myMatVisProps.ApplyAppearance

            If bRealView = 0 Then
                Debug.Print("Advanced graphics - SolidWorks standard textures.")
            Else
                Debug.Print("Advanced graphics - RealView textures.")
            End If
            Debug.Print("   SolidWorks standard texture scale = " & dScale & ", Angle = " & dAngle)
            If bBlendColor = 0 Then
                Debug.Print("   Do not blend part color with SolidWorks standard texture.")
            Else
                Debug.Print("   Blend part color with SolidWorks standard texture.")
            End If


            If bApplyColor = 0 Then
                Debug.Print("Do not apply material color to part.")
            Else
                Debug.Print("Apply material color to part.")
            End If

            If bApplyHatch = 0 Then
                Debug.Print("Do not apply material hatch to drawing section.")
            Else
                Debug.Print("Apply material hatch to drawing section.")

            End If
            If bApplyAppearance = 0 Then
                Debug.Print("Do not apply appearance.")
            Else
                Debug.Print("Apply appearance.")
            End If

        End If

    End Sub

  
    Public swApp As SldWorks


End Class