Analyze Part Example (VBA)
This example shows how to perform a static analysis of a part and plot nodal
strain results.
NOTE: To get persistent reference
identifiers (PIDs) for model selections, you can use
pidcollector.exe
or IModelDocExtension::GetPersistReference3.
'---------------------------------------------------------------------------
' Preconditions:
' 1. Add the SOLIDWORKS Simulation as an add-in
' (in SOLIDWORKS, click Tools > Add-ins > SOLIDWORKS Simulation).
' 2. Add the SOLIDWORKS Simulation type library as a reference
' (in the IDE, click Tools > References > SOLIDWORKS
' Simulation version type library).
' 3. Modify the path to solidworks materials.sldmat as needed.
' 4. Ensure the specified part exists.
' 5. Open the Immediate window.
'
' Postconditions:
' 1. Adds a default static study results plot.
' 2. Creates study Static-solid.
' 3. Applies material to the model.
' 4. Applies restraints and pressure to the selected faces.
' 5. Creates a mesh.
' 6. Runs the analysis.
' 7. Prints strain and stress results to the Immediate window.
' 8. Creates a nodal equivalent strain plot of the results.
' 9. Prints plot data to the Immediate window.
' 10. Hides fixture and force symbols. Examine the graphics area
' to verify.
' 11. Press F5 to continue.
' 12. Shows fixture and force symbols. Examine the graphics area
' to verify.
' 13. Inspect the plots.
'
' NOTE: Because the model is used elsewhere, do not save any changes.
'-----------------------------------------------------------------------------
Option Explicit
Sub main()
Dim SwApp As SldWorks.SldWorks
Dim COSMOSWORKS As Object
Dim CWObject As CosmosWorksLib.CwAddincallback
Dim ActDoc As CosmosWorksLib.CWModelDoc
Dim StudyMngr As CosmosWorksLib.CWStudyManager
Dim Study As CosmosWorksLib.CWStudy
Dim SolidMgr As CosmosWorksLib.CWSolidManager
Dim SolidComponent As CosmosWorksLib.CWSolidComponent
Dim SolidBody As CosmosWorksLib.CWSolidBody
Dim CwMesh As CosmosWorksLib.CwMesh
Dim CWResult As CosmosWorksLib.CWResults
Dim Part As SldWorks.ModelDoc2
Dim LBCMgr As CosmosWorksLib.CWLoadsAndRestraintsManager
Dim CWPressure As CosmosWorksLib.CWPressure
Dim CWRes1 As CosmosWorksLib.CWRestraint
Dim pointer1 As Object, pointer2 As Object, pointer3 As Object
Dim CWMat As CosmosWorksLib.CWMaterial
Dim var1 As Variant, var2 As Variant, var3 As Variant
Dim varArray1 As Variant
Dim varArray2 As Variant
Dim stress As Variant
Dim bApp As Boolean
Dim selection1 As String
Dim selection2 As String
Dim selection3 As String
Dim longstatus As Long, longwarnings As Long
Dim errCode As Long
Dim NSource As Long
Dim el As Double, tl As Double
Dim errorCode As Long
Dim results As Variant
Dim plot As CosmosWorksLib.CWPlot
Dim plotName As String
Dim i As Long
Dim status As Long
Dim entity(0) As SldWorks.entity
Dim nType As Long
Dim nBase As Long
Dim nContour As Long
Dim BFlip As Boolean
Dim BSpecifyColorLimit As Boolean
Dim VarColor As Variant
Dim vDispOptions As Variant
Dim vPlotPosFormatOptions As Variant
Dim vPlotSettings As Variant
Dim Name As Variant
Dim Color As Variant
Dim selEntity As Variant
' Connect to SOLIDWORKS
If SwApp Is Nothing Then Set SwApp = Application.SldWorks
' Open SOLIDWORKS part document
Set Part = SwApp.OpenDoc6("C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\Simulation\Examples\Tutor1.SLDPRT ", swDocPART,
swOpenDocOptions_Silent, "", longstatus, longwarnings)
If Part Is Nothing Then ErrorMsg SwApp, "Failed to open C:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\Simulation\Examples\Tutor1.SLDPRT.", True
'Get SOLIDWORKS Simulation object
Set CWObject = SwApp.GetAddInObject("SldWorks.Simulation")
If CWObject Is Nothing Then ErrorMsg SwApp, "No
CwAddincallback object", True
Set COSMOSWORKS = CWObject.COSMOSWORKS
If COSMOSWORKS Is Nothing Then ErrorMsg SwApp, "No
CosmosWorks object", True
' Get active document
Set ActDoc = COSMOSWORKS.ActiveDoc()
If ActDoc Is Nothing Then ErrorMsg SwApp, "No active document", True
' Add default static study results plot
errCode = ActDoc.AddDefaultStaticStudyPlot(swsStaticResultElementalStrain,
swsStaticElementalStrain_ENERGY)
' Set default plot boundary color
errCode = ActDoc.SetSimulationOptionDefaultPlotsBoundaryColorInRGB(swsSimulationOptionDefaultPlotsBoundaryColorInRGBBoundaryOption_ModelOrMesh,
0, 0, 255)
errCode = ActDoc.SetSimulationOptionDefaultPlotsBoundaryColorInRGB(swsSimulationOptionDefaultPlotsBoundaryColorInRGBBoundaryOption_TranslucentSingleColor,
255, 0, 0)
' Get default plot model or mesh boundary
color
Dim colorObj As Variant
colorObj = ActDoc.GetSimulationOptionDefaultPlotsBoundaryColorInRGB(swsSimulationOptionDefaultPlotsBoundaryColorInRGBBoundaryOption_ModelOrMesh,
errCode)
Debug.Print "RGB values for model or mesh:"
For i = 0 To UBound(colorObj)
Debug.Print colorObj(i)
Next
' Create new static study
Set StudyMngr = ActDoc.StudyManager()
If StudyMngr Is Nothing Then ErrorMsg SwApp, "No study
manager object", True
Set Study = StudyMngr.CreateNewStudy3("Static_solid", swsAnalysisStudyTypeStatic, swsMeshTypeSolid, errCode)
If Study Is Nothing Then ErrorMsg SwApp, "No study
object", True
' Set material from the SOLIDWORKS material library
Set SolidMgr = Study.SolidManager
If SolidMgr Is Nothing Then ErrorMsg SwApp, "No solid
manager object", True
Set SolidComponent = SolidMgr.GetComponentAt(0, errCode)
If errCode <> 0 Then ErrorMsg SwApp, "No solid component", True
Set SolidBody = SolidComponent.GetSolidBodyAt(0, errCode)
If errCode <> 0 Then ErrorMsg SwApp, "No solid body", True
bApp = SolidBody.SetLibraryMaterial("c:\Program Files\SOLIDWORKS Corp\SOLIDWORKS\lang\english\sldmaterials\solidworks materials.sldmat", "Ductile Iron (SN)")
If bApp = False Then ErrorMsg SwApp, "No material applied", True
Set CWMat = SolidBody.GetDefaultMaterial
NSource = CWMat.Source
' Get the PIDs of the faces
' First two selections are the faces for restraints
' Third selection is the face where pressure is applied
selection1 = "216,14,0,0,3,0,0,0,255,254,255,0,0,0,0,0,255,255,1,0,11,0,109,111,70,97,99,101,82,101,102,95,99,1,0,0,0,0,0,0,0,5,0,0,0,0,3,0,0,0,0,0,0,125,195,148,37,173,73,178,84,125,195,148,37,173,73,178,84,0,0,255,255,1,0,21,0,109,111,76,80,97,116,116,101,114,110,83,117,114,102,73,100,82,101,112,95,99,0,0,255,255,1,0,6,0,109,111,70,82,95,99,255,255,1,0,13,0,109,111,69,120,116,79,98,106,101,99,116,95,99,255,255,1,0,14,0,109,111,79,98,106,70,105,108,101,68,101,102,95,99,255,255,1,0,17,0,109,111,67,83,116,114,105,110,103,72,97,110,100,108,101,95,99,255,254,255,6,84,0,117,0,116,0,111,0,114,0,49,0,123,228,186,50,11,128,255,254,255,62,67,0,58,0,92,0,80,0,114,0,111,0,103,0,114,0,97,0,109,0,32,0,70,0,105,0,108,0,101,0,115,0,92,0,83,0,111,0,108,0,105,0,100,0,87,0,111,0,114,0,107,0,115,0,92,0,67,0,79,0,83,0,77,0,79,0,83,0,87,0,111,0,114,0,107,0,115,0,92,0,69,0,120,0,97,0,109,0,112,0,108,0,101,0,115,0,92,0,84,0,117,0,116,0,111,0,114,0,49,0,46,0,83,0,76,0,68,0,80,0,82,0,84,0,97,23,28,65,0,0,0,0"
selection1 = selection1 & ",2,0,1,0,0,0,0,0,0,0,1,0,0,0,255,254,255,7,68,0,101,0,102,0,97,0,117,0,108,0,116,0,0,0,0,0,0,0,0,0,0,0,0,0,17,0,0,0,156,231,186,50,255,255,1,0,23,0,109,111,70,114,111,109,83,107,116,69,110,116,83,117,114,102,73,100,82,101,112,95,99,0,0,5,128,8,0,14,0,0,0,88,231,186,50,3,0,0,0,1,0,0,0,0,0,0,0,255,255,1,0,20,0,109,111,69,110,100,70,97,99,101,83,117,114,102,73,100,82,101,112,95,99,0,0,5,128,8,0,6,0,0,0,211,228,186,50,1,0,0,0,255,255,255,255,0,0,17,128,0,0,5,128,8,0,6,0,0,0,211,228,186,50,0,0,0,0,255,255,255,255,0,0,0,0,0,0"
selection1 = selection1 & ",Type=1"
StringtoArray selection1, var1
Set pointer1 = Part.Extension.GetObjectByPersistReference3((var1), longstatus)
selection2 = "216,14,0,0,3,0,0,0,255,254,255,0,0,0,0,0,255,255,1,0,11,0,109,111,70,97,99,101,82,101,102,95,99,1,0,0,0,0,0,0,0,5,0,0,0,0,3,0,0,0,0,0,0,125,195,148,37,173,73,178,84,125,195,148,37,173,73,178,84,0,0,255,255,1,0,23,0,109,111,70,114,111,109,83,107,116,69,110,116,83,117,114,102,73,100,82,101,112,95,99,0,0,255,255,1,0,6,0,109,111,70,82,95,99,255,255,1,0,13,0,109,111,69,120,116,79,98,106,101,99,116,95,99,255,255,1,0,14,0,109,111,79,98,106,70,105,108,101,68,101,102,95,99,255,255,1,0,17,0,109,111,67,83,116,114,105,110,103,72,97,110,100,108,101,95,99,255,254,255,6,84,0,117,0,116,0,111,0,114,0,49,0,123,228,186,50,11,128,255,254,255,62,67,0,58,0,92,0,80,0,114,0,111,0,103,0,114,0,97,0,109,0,32,0,70,0,105,0,108,0,101,0,115,0,92,0,83,0,111,0,108,0,105,0,100,0,87,0,111,0,114,0,107,0,115,0,92,0,67,0,79,0,83,0,77,0,79,0,83,0,87,0,111,0,114,0,107,0,115,0,92,0,69,0,120,0,97,0,109,0,112,0,108,0,101,0,115,0,92,0,84,0,117,0,116,0,111,0,114,0,49,0,46,0,83,0,76,0,68,0,80,0,82,0,84,0,97,23,28,"
selection2 = selection2 & "65,0,0,0,0,2,0,1,0,0,0,0,0,0,0,1,0,0,0,255,254,255,7,68,0,101,0,102,0,97,0,117,0,108,0,116,0,0,0,0,0,0,0,0,0,0,0,0,0,14,0,0,0,88,231,186,50,3,0,0,0,255,255,1,0,20,0,109,111,69,110,100,70,97,99,101,83,117,114,102,73,100,82,101,112,95,99,0,0,5,128,8,0,6,0,0,0,211,228,186,50,1,0,0,0,255,255,255,255,0,0,14,128,0,0,5,128,8,0,6,0,0,0,211,228,186,50,0,0,0,0,255,255,255,255,0,0,0,0,0,0"
selection2 = selection2 & ",Type=1"
StringtoArray selection2, var2
Set pointer2 = Part.Extension.GetObjectByPersistReference3((var2), longstatus)
selection3 = "216,14,0,0,3,0,0,0,255,254,255,0,0,0,0,0,255,255,1,0,11,0,109,111,70,97,99,101,82,101,102,95,99,1,0,0,0,0,0,0,0,8,0,0,0,0,3,0,0,0,0,0,0,125,195,148,37,173,73,178,84,125,195,148,37,173,73,178,84,0,0,255,255,1,0,20,0,109,111,69,110,100,70,97,99,101,83,117,114,102,73,100,82,101,112,95,99,0,0,255,255,1,0,6,0,109,111,70,82,95,99,255,255,1,0,13,0,109,111,69,120,116,79,98,106,101,99,116,95,99,255,255,1,0,14,0,109,111,79,98,106,70,105,108,101,68,101,102,95,99,255,255,1,0,17,0,109,111,67,83,116,114,105,110,103,72,97,110,100,108,101,95,99,255,254,255,6,84,0,117,0,116,0,111,0,114,0,49,0,123,228,186,50,11,128,255,254,255,62,67,0,58,0,92,0,80,0,114,0,111,0,103,0,114,0,97,0,109,0,32,0,70,0,105,0,108,0,101,0,115,0,92,0,83,0,111,0,108,0,105,0,100,0,87,0,111,0,114,0,107,0,115,0,92,0,67,0,79,0,83,0,77,0,79,0,83,0,87,0,111,0,114,0,107,0,115,0,92,0,69,0,120,0,97,0,109,0,112,0,108,0,101,0,115,0,92,0,84,0,117,0,116,0,111,0,114,0,49,0,46,0,83,0,76,0,68,0,80,0,82,0,84,0,97,23,28,65,0,0,0,0,2,0,"
selection3 = selection3 & "1,0,0,0,0,0,0,0,1,0,0,0,255,254,255,7,68,0,101,0,102,0,97,0,117,0,108,0,116,0,0,0,0,0,0,0,0,0,0,0,0,0,11,0,0,0,51,230,186,50,1,0,0,0,255,255,255,255,255,255,1,0,23,0,109,111,70,114,111,109,83,107,116,69,110,116,83,117,114,102,73,100,82,101,112,95,99,0,0,5,128,8,0,8,0,0,0,218,229,186,50,4,0,0,0,0,0,255,255,1,0,18,0,109,111,80,76,105,110,101,83,117,114,102,73,100,82,101,112,95,99,0,0,5,128,8,0,31,0,0,0,210,195,223,50,17,128,0,0,5,128,8,0,23,0,0,0,160,192,223,50,14,128,0,0,5,128,8,0,19,0,0,0,181,233,186,50,1,0,0,0,1,0,0,0,2,0,0,0,17,128,0,0,5,128,8,0,31,0,0,0,210,195,223,50,17,128,0,0,5,128,8,0,23,0,0,0,160,192,223,50,14,128,0,0,5,128,8,0,19,0,0,0,181,233,186,50,1,0,0,0,1,0,0,0,1,0,0,0,17,128,0,0,5,128,8,0,31,0,0,0,210,195,223,50,17,128,0,0,5,128,8,0,23,0,0,0,160,192,223,50,14,128,0,0,5,128,8,0,19,0,0,0,181,233,186,50,1,0,0,0,2,0,0,0,3,0,0,0,17,128,0,0,5,128,8,0,31,0,0,0,210,195,223,50,17,128,0,0,5,128,8,0,23,0,0,0,160,192,223,50,14,"
selection3 = selection3 & "128,0,0,5,128,8,0,19,0,0,0,181,233,186,50,1,0,0,0,2,0,0,0,4,0,0,0,0,0,0,0,0,0"
selection3 = selection3 & ",Type=1"
StringtoArray selection3, var3
Set pointer3 = Part.Extension.GetObjectByPersistReference3((var3), longstatus)
varArray1 = Array(pointer1, pointer2)
varArray2 = Array(pointer3)
' Add fixed restraint
Set LBCMgr = Study.LoadsAndRestraintsManager
If LBCMgr Is Nothing Then ErrorMsg SwApp, "No loads and restraints manager", False
Set CWRes1 = LBCMgr.AddRestraint(0, (varArray1), Nothing, errCode)
If errCode <> 0 Then ErrorMsg SwApp, "No fixed restraint created", True
' Apply pressure normal to selected face
Set CWPressure = LBCMgr.AddPressure(0, (varArray2), Nothing, errCode)
If errCode <> 0 Then ErrorMsg SwApp, "No normal pressure created", True
Call CWPressure.PressureBeginEdit
CWPressure.Unit = 1
CWPressure.Value = 1000
errCode = CWPressure.PressureEndEdit
If errCode <> 0 Then ErrorMsg SwApp, "Nonuniform pressure distribution not set", True
' Mesh
Set CwMesh = Study.Mesh
If CwMesh Is Nothing Then ErrorMsg SwApp, "No mesh object", False
CwMesh.Quality = 1
Call CwMesh.GetDefaultElementSizeAndTolerance(0, el, tl)
errCode = Study.CreateMesh(0, el, tl)
If errCode <> 0 Then ErrorMsg SwApp, "Mesh failed", True
' Run analysis
errCode = Study.RunAnalysis
If errCode <> 0 Then ErrorMsg SwApp, "Analysis failed", True
Set CWResult = Study.Results
If CWResult Is Nothing Then ErrorMsg SwApp, "No results object", False
stress = CWResult.GetMinMaxStress(0, 0, 1, Nothing, 0, errCode)
' Get strain and stress results for
' first face selected for restraint
Set entity(0) = pointer1
i = 0
Debug.Print " Strain value by node:"
For Each selEntity In CWResult.GetStrainForEntities3(True, swsStrainComponent_e.swsStrainComponentESTRN, 1, Nothing, (entity), status, 0, False, errCode)
Debug.Print " " & selEntity
Next
Debug.Print " "
Debug.Print " Stress value by node:"
For Each selEntity In CWResult.GetStressForEntities3(True, swsStressComponent_e.swsStressComponentVON, 1, Nothing, (entity), swsStrengthUnitPascal, status, 0, False, errCode)
Debug.Print " " & selEntity
Next
' Create a nodal equivalent strain plot
Set plot = CWResult.CreatePlot(3,
swsStaticNodalStrain_ESTRN, swsUnitSI, False, errorCode)
errorCode = plot.ActivatePlot
errorCode = plot.GetPlotName(plotName)
errorCode = plot.ApplyNameViewOrientation("*Front")
results = plot.GetMinMaxResultValues(errorCode)
errorCode = plot.SetPlotTitle("Nodal Equivalent
Strain")
plot.SetFOSPlot (False)
plot.Set2DPlanarRevolveAngle (0#)
plot.SetNormalizeModeShape (False)
plot.ShowAs3DPlot (True)
plot.ShowTensorOrVector (False)
plot.ShowShellin3D (False)
plot.ShowNormalizeValuesFrom0To1 (True)
errorCode = plot.ShowDeformedPlot(True, swsAutomatic,
0, True)
plot.ShowBeamProfile (False)
plot.ShowAvgResultsAcrossBoundaryForParts (False)
Debug.Print "Result plot created: " &
plotName
Debug.Print "Node " & results(0) & " " & "has minimum strain
value: " & results(1)
Debug.Print "Node " & results(2) & " " & "has maximum strain
value: " & results(3)
Debug.Print "Number of plots for these
results: " & CWResult.GetPlotCount
For Each Name In CWResult.GetPlotNames
Debug.Print ""
Debug.Print "Plot: " & Name
errorCode = CWResult.GetPlotColorOptions(Name,
nType, nBase, nContour, BFlip, BSpecifyColorLimit, VarColor)
Debug.Print "Plot color options:"
Debug.Print " Color map as
defined in swsColorChartOptionLegendTypeValue_e: " & nType
Debug.Print " Number of base
colors in color map: " & nBase
Debug.Print " Number of
gradient colors in color map: " & nContour
Debug.Print " Reverse the color
mapping? " & BFlip
Debug.Print " Specify a color
for values above the yield limit? " & BSpecifyColorLimit
Debug.Print " Color for values
above the yield limit and user-defined colors (RGB): "
Dim rgb As String
rgb = "{"
Dim rgbInd As Long
rgbInd = 1
Dim size As Long
size = UBound(VarColor)
Dim ind As Long
ind = 1
' Create RGB triplet for each color
For Each Color In VarColor
If rgbInd < 3
Then
rgb = rgb & Color & ","
rgbInd = rgbInd + 1
Else
rgb = rgb & Color & "}"
rgbInd = 1
If Not ind = size + 1 Then
rgb = rgb & "{"
End If
End If
ind = ind + 1
Next
Debug.Print " " & rgb
vDispOptions =
CWResult.GetPlotDisplayOptions(Name, errorCode)
Debug.Print ""
Debug.Print "Plot display options:"
Debug.Print " Display the
minimum value? " & vDispOptions(0)
Debug.Print " Display the
maximum value? " & vDispOptions(1)
Debug.Print " Display the plot
details? " & vDispOptions(2)
Debug.Print " Display the
legend? " & vDispOptions(3)
Debug.Print " Display the
minimum/maximum range only for parts? " & vDispOptions(4)
Debug.Print " Allow a
user-defined minimum/maximum? " & vDispOptions(5)
Debug.Print "
User-defined minimum: " & vDispOptions(6)
Debug.Print "
User-defined maximum: " & vDispOptions(7)
vPlotPosFormatOptions = CWResult.GetPlotPositionFormatOptions(Name,
errorCode)
Debug.Print ""
Debug.Print "Plot position/format
options:"
Debug.Print " Percentage of the
window width: " & vPlotPosFormatOptions(0)
Debug.Print " Percentage of the
window height: " & vPlotPosFormatOptions(1)
Debug.Print " Chart thickness
option as defined in swsColorChartWidthOptionValue_e: " &
vPlotPosFormatOptions(2)
Debug.Print " Chart number
format as defined in swsColorChartNumberFormatOptionValue_e: " &
vPlotPosFormatOptions(3)
Debug.Print " Number of decimal
places to display: " & vPlotPosFormatOptions(4)
Debug.Print " Display chart
numbers with a 1000 comma separator? " & vPlotPosFormatOptions(5)
Debug.Print " Use different
number format for small numbers? " & vPlotPosFormatOptions(6)
Debug.Print "
Number format for small numbers as defined in
swsColorNumberFormatUseDiffNumberFormatOptionValue_e: " &
vPlotPosFormatOptions(7)
vPlotSettings =
CWResult.GetPlotSettings(Name, errorCode)
Debug.Print ""
Debug.Print "Plot settings:"
Debug.Print " Display option
for active fringe plot as defined in swsPlotFringeSettingsOptionValue_e: " &
vPlotSettings(0)
Debug.Print " Display option
for model boundary as defined in swsPlotBoundarySettingsOptionValue_e: " &
vPlotSettings(1)
Debug.Print " R value for
model/mesh color: " & vPlotSettings(2)
Debug.Print " G value for
model/mesh color: " & vPlotSettings(3)
Debug.Print " B value for
model/mesh color: " & vPlotSettings(4)
Debug.Print " Superimpose the
undeformed model on the deformed model? " & vPlotSettings(5)
Debug.Print "
Deformed plot translucent option as defined in
swsPlotDeformedShapeOptionSuperImposeValue_e: " & vPlotSettings(6)
Debug.Print " R value for
single translucent color: " & vPlotSettings(7)
Debug.Print " G value for
single translucent color: " & vPlotSettings(8)
Debug.Print " B value for
single translucent color: " & vPlotSettings(9)
Debug.Print " Color intensity
[0,1]: " & vPlotSettings(10)
Next
'Hide fixture and force symbols
Study.ShowOrHideFixtures = False
Study.ShowOrHideForce = False
Stop
'Show fixture and force symbols
Study.ShowOrHideFixtures = True
Study.ShowOrHideForce = True
End Sub
Sub ErrorMsg(SwApp As SldWorks.SldWorks, Message As String, EndTest As Boolean)
SwApp.SendMsgToUser2 Message, 0, 0
SwApp.RecordLine "'*** WARNING - General"
SwApp.RecordLine "'*** " & Message
SwApp.RecordLine ""
End Sub
Sub StringtoArray(inputSTR As String, varEntity As Variant)
Dim PID() As Byte
Dim i As Integer
varEntity = Split(inputSTR, ",")
ReDim PID(UBound(varEntity))
For i = 0 To (UBound(varEntity) - 1)
PID(i) = varEntity(i)
Next i
varEntity = PID
End Sub