Get Linearized Stress Results Example (VB.NET)

This example shows how to get the linearized stress results from a pressure vessel study.

'----------------------------------------------------------------------------
' Preconditions:
'  1. Add the SOLIDWORKS Simulation as an add-in (in SOLIDWORKS, click 
'     Tools > Add-ins > SOLIDWORKS Simulation > OK).
'  2. Add the SOLIDWORKS Simulation primary interop assembly as a reference
'     (in the IDE, click Project > Add Reference > .NET > 
'     SolidWorks.Interop.cosworks > OK).
'  3. Open pubic_documents\Simulation Examples\pressurevessel.sldprt.
'  4. Open the Immediate window.
'  5. Modify Ready-Solids and Partial-Solids to have the same fixtures and a
'     pressure load of 100psi.
'  6. Analyze Ready-Solids and Partial-Solids.
'  7. Create Pressure Vessel Design 1 study, using a linear combination of
'     Ready-Solids and Partial-Solids with Factor = 1.
'  8. Analyze Pressure Vessel Design 1.
'  9. Create a default von Mises stress plot of the results.
' 10. Create a planar section view of the von Mises stress plot:
'     a. Right-click the von Mises stress plot of Pressure Vessel Design 1 and
'        click Section Clipping.
'     b. In Section 1, click Plane, delete Front, and select Top in the
'        FeatureManager design tree.
'     c. In Options, click Union and select the first three check boxes.
'     d. Click the green check mark to accept the settings.
'
' Postconditions:
'  1. Gets the following linearized normal stress values in the X-direction for
'     the specified points on the planar section view of Stress1:
'     * Membrane stress
'     * Bending (Point 1) stress
'     * Membrane stress + bending (Point 1) stress
'     * Bending (Point 2) stress
'     * Membrane stress + Bending (Point 2) stress
'     * Peak (Point 1)
'     * Peak (Point 2)
'  2. Inspect the Immediate window.
'
' NOTE: Because the model is used elsewhere, do not save any changes.
' ---------------------------------------------------------------------------
Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports SolidWorks.Interop.cosworks
Imports System.Runtime.InteropServices
Imports System
Imports System.Diagnostics
 
Partial Class SolidWorksMacro
 
    Dim COSMOSWORKS As Object
    Dim CWObject As CwAddincallback
    Dim ActDoc As CWModelDoc
    Dim StudyMngr As CWStudyManager
    Dim Study As CWStudy
    Dim CWResult As CWResults
    Dim stress As Object
    Dim errCode As Integer
    Dim boolCode As Boolean
 
    Sub main()
 
        CWObject = swApp.GetAddInObject("SldWorks.Simulation")
        COSMOSWORKS = CWObject.COSMOSWORKS
 
        ActDoc = COSMOSWORKS.ActiveDoc()
        StudyMngr = ActDoc.StudyManager()
        Study = StudyMngr.GetStudy(4)
        StudyMngr.ActiveStudy = 4
 
        CWResult = Study.Results
        Dim plotNames As Object
        plotNames = CWResult.GetPlotNames
        boolCode = CWResult.ActivatePlot("Stress1")
        stress = CWResult.GetLinearizedStressValues(0, 0.21, 0.0#, -0.206, 0.2667, 0.0#, -0.1303, 40, 0, errCode)
 
        Debug.Print("Linearized normal stresses in the X-direction:")
        Debug.Print("  Membrane:                     " & stress(0))
        Debug.Print("  Bending (Point 1):            " & stress(1))
        Debug.Print("  Membrane + Bending (Point 1): " & stress(2))
        Debug.Print("  Bending (Point 2):            " & stress(3))
        Debug.Print("  Membrane + Bending (Point 2): " & stress(4))
        Debug.Print("  Peak (Point 1):               " & stress(5))
        Debug.Print("  Peak (Point 2):               " & stress(6))
 
    End Sub
 
 
    ''' <summary>
    ''' The SldWorks swApp variable is pre-assigned for you.
    ''' </summary>
    Public swApp As SldWorks
 
 
End Class