Create Body From Deformed Shape Example (VBA)
This example shows how to save the deformed shape that results from
running a static 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 type library as a reference (in the IDE,
' click Tools > References > SOLIDWORKS
Simulation version type library).
' 3. Ensure that c:\temp exists.
' 4. Ensure that the specified model exists.
' 5. Open an Immediate window.
'
' Postconditions:
' 1. Opens the model document.
' 2. Adds a default elemental strain plot.
' 3. Gets the static study.
' 4. Meshes the model.
' 5. Sets the solver type.
' 6. Analyzes the study.
' 7. Creates the Strain1 plot.
' 8. Saves only the SOLIDWORKS body from the deformed shape in
' c:\temp\deformedBody.sldprt.
' 9. Gets the size of the deform coordinate array.
' 10. Gets the plot definition of Strain1.
' 11. Inspect the Immediate window and c:\temp.
'
' NOTE: Because the model is used elsewhere, do not save changes.
'---------------------------------------------------------------------------
Option Explicit
Sub main()
Dim SwApp
As SldWorks.SldWorks
Dim Part
As SldWorks.ModelDoc2
Dim fileName As
String
Dim errors
As Long
Dim warnings As
Long
Dim errCode
As Long
Dim COSMOSWORKS As
CosmosWorksLib.COSMOSWORKS
Dim CWAddinCallBack As CosmosWorksLib.CWAddinCallBack
Dim ActDoc
As CosmosWorksLib.CWModelDoc
Dim StudyMngr As
CosmosWorksLib.CWStudyManager
Dim Study
As CosmosWorksLib.CWStudy
Dim StaticOptions As
CosmosWorksLib.CWStaticStudyOptions
Dim CWFeatObj As
CosmosWorksLib.CWMesh
Dim res
As CosmosWorksLib.CWResults
Const MeshEleSize
As Double = 1.4769
Const MeshTol
As Double = 0.073847
Set SwApp = Application.SldWorks
If SwApp Is Nothing Then Exit Sub
fileName = "C:\Users\Public\Documents\SOLIDWORKS\SOLIDWORKS 2017\tutorial\api\tjoint.sldprt"
Set Part = SwApp.OpenDoc6(fileName, swDocPART, 1, "",
errors, warnings)
Set CWAddinCallBack = SwApp.GetAddInObject("SldWorks.Simulation")
Set COSMOSWORKS = CWAddinCallBack.COSMOSWORKS
Set ActDoc = COSMOSWORKS.ActiveDoc()
errCode = ActDoc.AddDefaultStaticStudyPlot(swsStaticResultElementalStrain,
swsStaticElementalStrain_ENERGY)
Set StudyMngr = ActDoc.StudyManager()
Set Study = StudyMngr.GetStudy(1)
Study.ActivateConfiguration
StudyMngr.ActiveStudy = 1
'Mesh
Set CWFeatObj = Study.Mesh
CWFeatObj.MesherType = 0
CWFeatObj.Quality = 0
errCode = Study.CreateMesh(0, MeshEleSize, MeshTol)
Set CWFeatObj = Nothing
'Set solver type to FFEPlus
Set StaticOptions = Study.StaticStudyOptions
StaticOptions.SolverType = 2
'Run analysis
errCode = Study.RunAnalysis
Set res = Study.Results
'Save only the SOLIDWORKS body from the deformed shape
errCode = res.CreateDeformedBody2(swsCreateDeformedBodyAsPart,
swsCreateDeformedBodyAdvanced_OutputBodyOnly, 1, "deformedBody", "c:\temp")
Debug.Print "Create deformed body result code as defined in
swsCreateDeformedBodyError_e: " & errCode
Debug.Print "Option to use when the deformed body fails to
sew into a solid object as defined in swsCreateDeformedBodyFailedSewOption_e: "
& res.GetDeformedBodyFailedSewOption
Dim vCoord As Variant
Dim plotType As Long
Dim nComp As String
Dim bNodal As Boolean
Dim bDeformed As Boolean
Dim dScaleFactor As Double
vCoord = res.GetDeformedCoord("Strain1", errCode)
Debug.Print "Deformed coordinate array size: " &
UBound(vCoord)
errCode = res.GetPlotDefinition("Strain1", plotType,
nComp, bNodal, bDeformed, dScaleFactor)
Debug.Print "Plot definition"
Debug.Print " Name: Strain1"
Debug.Print " Type as defined in swsPlotResultTypes_e:
" & plotType
Debug.Print " Component name: " & nComp
Debug.Print " Nodal? (True = nodal, False = elemental)
" & bNodal
Debug.Print " Deformed? " & bDeformed
Debug.Print " Scale factor: " & dScaleFactor
End Sub