This example shows how to create a drop test study.
'----------------------------------------------------------------------------
' Preconditions:
' 1. Open:
' install_dir\samples\tutorial\api\KeyPad_1.sldasm.
' 2. Add the SOLIDWORKS Simulation as an add-in
' (in SOLIDWORKS, click Tools > Add-ins > SOLIDWORKS Simulation).
' 3. Add the SOLIDWORKS Simulation primary interop assembly as
' a reference (in the IDE's Project Explorer, right-click
' the project name, select Add Reference, click the Browse tab,
' navigate to the install_dir\api\redist\CLR2 folder and
' select SolidWorks.Interop.cosworks.dll).
'
' Postconditions:
' 1. Default drop test
study results plot is created.
' 2. Drop test study, "Study 2", is created.
' 3. Nylon 101 SOLIDWORKS material is applied to all components.
' 4. The mesh is created.
' 5. Drop height is set to 1000 mm.
' 6. Analysis is run.
' 7. The von Mises stress results in the last step are validated.
' 8. When the macro stops, inspect the Immediate window for the
' 1000 mm drop test study's setup and result options.
' Inspect the default drop test study results plot.
' Click F5 to continue.
' 9. Drop height is changed to 2000 mm.
' 10. Analysis is run again.
' 11. Inspect the results folder.
'
' NOTE: Because the model is used elsewhere,
' do not save changes when closing it.
'
---------------------------------------------------------------------------
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
Part As
ModelDoc2
Dim
COSMOSWORKS As
COSMOSWORKS
Dim
CWAddinCallBack As
CwAddincallback
Dim
ActDoc As
CWModelDoc
Dim
StudyMngr As
CWStudyManager
Dim
Study As
CWStudy
Dim
CWMesh As
CWMesh
Dim
CWFeatObj As
CWResults
Dim
SolidMgr As
CWSolidManager
Dim
SolidComponent As
CWSolidComponent
Dim
Solidbody As
CWSolidBody
Dim
Setup As
CWDropTestSetup
Dim
ResultOptions As
CWDropTestResultOptions
Dim
StudyOptions As
CWDropTestStudyOptions
Dim
Selection As
Object
Dim
CosmosFolder As
String
Dim
sLibWithPathname As
String,
sMaterialName As
String,
sName As
String
Dim
errCode As
Integer
Dim
nStep As
Integer,
Stress
As
Object
Dim
CompCount As
Integer, j
As
Integer
Dim
bApp As
Integer
Dim
PIDCollection As
New
Collection
Dim Tol
As
Double, A
As
Double, B
As
Double, Height
As
Double, VMS1000
As
Double, VMS2000
As
Double
Sub
main()
PIDCollection = PIDInitializer()
Tol = 0.25 '25%
tolerance
VMS1000 =
7314431 'maximum
von Mises stress at step 25 for drop height = 1000 mm
VMS2000 =
10389063 'maximum
von Mises stress at step 25 for drop height = 2000 mm
If
SwApp Is
Nothing
Then
Exit
Sub
CosmosFolder = SwApp.GetExecutablePath
Part = SwApp.ActiveDoc
CWAddinCallBack = SwApp.GetAddInObject("SldWorks.Simulation")
COSMOSWORKS = CWAddinCallBack.COSMOSWORKS
ActDoc = COSMOSWORKS.ActiveDoc()
' Add a default drop test study results plot
bApp = ActDoc.AddDefaultDropTestStudyPlot(swsDropTestStudyResultType_e.swsDropTestResultElementalStress,
swsStressComponent_e.swsStressComponentVON)
StudyMngr = ActDoc.StudyManager()
'Create a drop test study
Study = StudyMngr.CreateNewStudy3("Study
2", 6, 0, errCode)
If
errCode <> 0 Then
ErrorMsg(swApp, "Failed to create a drop
test study")
StudyOptions = Study.DropTestStudyOptions
Debug.Print("Study results
folder: " & StudyOptions.ResultFolder)
Debug.Print("Study displacement
formulation (1 = large): " & StudyOptions.LargeDisplacement)
ResultOptions = Study.DropTestResultOptions
Debug.Print("Number of graph
steps: " & ResultOptions.NoOfGraphSteps)
Debug.Print("Number of plots: "
& ResultOptions.NoOfPlots)
Debug.Print("Save results from
starting time (sec): " & ResultOptions.SaveResultsStartingTime)
Debug.Print("Time to solve after
impact (sec): " & ResultOptions.SolutionTimeAfterImpact)
'Create mesh
CWMesh = Study.Mesh
CWMesh.MesherType = 0
'standard mesh = 0, CB mesh = 1
CWMesh.Quality = 0 'draft
= 0, high quality = 1
errCode = Study.CreateMesh(0,
2, 0.05) 'create mesh,
0-1-2-3-4 : mm-cm-m-in-ft
'Apply
material
sLibWithPathname = CosmosFolder &
"\lang\english\sldmaterials\solidworks
materials.sldmat"
sMaterialName =
"Nylon 101" 'Nylon
101 SOLIDWORKS material
SolidMgr = Study.SolidManager
CompCount = SolidMgr.ComponentCount
For
j = 0 To (CompCount
- 1) 'Apply
material to all solid components
SolidComponent = SolidMgr.GetComponentAt(j,
errCode)
sName = SolidComponent.ComponentName
Solidbody = SolidComponent.GetSolidBodyAt(0, errCode)
bApp = Solidbody.SetLibraryMaterial(sLibWithPathname,
sMaterialName)
Solidbody = Nothing
Next
j
'Assign drop test setup
Selection = SelectByPID(Part,
"selection1",
PIDCollection)
Setup = Study.AddDropTestSetup(Selection, errCode)
If
errCode <> 0 Then
ErrorMsg(swApp, "Failed to create
DropTestSetup object")
If
Setup Is
Nothing
Then
ErrorMsg(swApp, "Failed to get
DropTestSetup object")
Height = Setup.DropHeight
If
Height <> 1000 Then
ErrorMsg(swApp, "Failed to validate drop
height = 1000 mm from original Study 1")
Debug.Print("Drop height (mm): "
& Setup.DropHeight)
Debug.Print("Drop height type (swsDropHeightType_e):
" & Setup.DropHeightType)
Debug.Print("Drop height units (swsLinearUnit_e):
" & Setup.DropHeightUnit)
Debug.Print("Drop type (swsDropType_e):
" & Setup.DropType)
Debug.Print("Reverse gravity
direction? (1 = yes) " & Setup.FlipGravityDirection)
Debug.Print("Reverse velocity
direction? (1 = yes) " & Setup.FlipVelocityDirection)
Debug.Print("Coefficient of
friction: " & Setup.FrictionCoefficient)
Debug.Print("Gravity magnitude: "
& Setup.Gravity)
Debug.Print("Gravity units (swsAccelerationUnit_e):
" & Setup.GravityUnit)
Debug.Print("Mass density of
impact layer: " & Setup.MassDensity)
Debug.Print("Stiffness per unit
area normal to impact plane: " & Setup.NormalStiffness)
Debug.Print("Units of stiffness (swsUnitSystem_e):
" & Setup.StiffnessUnit)
Debug.Print("Stiffness per unit
area parallel to the impact plane: " &
Setup.TangentialStiffness)
Debug.Print("Orientation of
impact plane (swsDropTargetOrientationType_e): "
& Setup.TargetOrientationType)
Debug.Print("Stiffness type (swsDropTargetStiffnessType_e):
" & Setup.TargetStiffnessType)
Debug.Print("Thickness of the
impact layer: " & Setup.TargetThickness)
Debug.Print("Units of thickness (swsLinearUnit_e):
" & Setup.ThicknessUnit)
Debug.Print("Velocity at impact:
" & Setup.Velocity)
Debug.Print("Units of velocity (swsVelocityUnit_e):
" & Setup.VelocityUnit)
'Run
study for drop height = 1000
mm
errCode = Study.RunAnalysis
If
errCode <> 0 Then
ErrorMsg(swApp, "Failed to run study
(drop height = 1000 mm)")
CWFeatObj = Study.Results
If
CWFeatObj Is
Nothing
Then
ErrorMsg(swApp, "Failed to get Result
Object (drop height = 1000 mm) ")
nStep = CWFeatObj.GetMaximumAvailableSteps
'nStep = last step of study
If
nStep <> 25 Then
ErrorMsg(swApp, "Total number of steps in
result is incorrect (drop height = 1000 mm)")
Stress = CWFeatObj.GetMinMaxStress(9, 0, nStep,
Nothing, 0,
errCode)
If
errCode <> 0 Then
ErrorMsg(swApp, "Failed to get von Mises
stress result for drop height = 1000 mm")
A = Stress(3)
B = VMS1000
If
ResultsVer(A, B, Tol) = True
Then
ErrorMsg(swApp,
"The von Mises stress result for drop height = 1000
mm has % error = " & ResultsError(A, B, Tol))
End
If
'Change
drop height from 1000 mm to 2000 mm
Setup.DropTestSetupBeginEdit()
Setup.DropType = 0
Setup.DropHeightType = 0
Setup.DropHeight = 2000
Setup.DropHeightUnit = 0
errCode = Setup.DropTestSetupEndEdit
If
errCode <> 0 Then
ErrorMsg(swApp, "Failed to make change to
drop height")
Height = Setup.DropHeight
If
Height <> 2000 Then
ErrorMsg(swApp, "Failed to correctly
change drop height to 2000 mm")
Stop
' Inspect the results for drop height =
1000 mm
'Run
study for drop height = 2000 mm
errCode = Study.RunAnalysis
If
errCode <> 0 Then
ErrorMsg(swApp, "Failed to run study
(drop height = 2000 mm)")
CWFeatObj = Study.Results
If
CWFeatObj Is
Nothing
Then
ErrorMsg(SwApp, "Failed to get Result
Object (drop height = 2000 mm) ")
nStep = CWFeatObj.GetMaximumAvailableSteps
'nStep = last step of study
If
nStep <> 25 Then
ErrorMsg(SwApp, "Total number of steps in
result is incorrect (drop height = 2000 mm)")
Stress = CWFeatObj.GetMinMaxStress(9, 0, nStep,
Nothing, 0,
errCode)
If
errCode <> 0 Then
ErrorMsg(swApp, "Failed to get von Mises
stress result for drop height = 2000 mm")
A = Stress(3)
B = VMS2000
If
A < VMS1000 Or
A = VMS1000 Then
ErrorMsg(swApp, "The von Mises stress for
drop height = 2000 mm is less than or equal to drop height = 1000 mm")
If
ResultsVer(A, B, Tol) = True
Then
ErrorMsg(swApp,
"The von Mises stress result for drop height = 2000
mm has % error = " & ResultsError(A, B, Tol))
End
If
End
Sub
Function
ResultsVer(ByVal
ActualResult As
Object,
ByVal
ReferenceResult As
Object,
ByVal
Tolerance As
Double)
As
Boolean
ResultsVer = (ActualResult < (1 -
Tolerance) * ReferenceResult) Or
(ActualResult > (1 + Tolerance) * ReferenceResult)
End
Function
Function
ResultsError(ByVal
ActualResult As
Object,
ByVal
ReferenceResult As
Object,
ByVal
Tolerence As
Double)
As
Double
ResultsError = (ActualResult -
ReferenceResult) / ReferenceResult * 100
End
Function
Sub
ErrorMsg(ByVal
SwApp As
SldWorks,
ByVal
Message As
String)
SwApp.SendMsgToUser2(Message, 0, 0)
SwApp.RecordLine("'***
WARNING - General")
SwApp.RecordLine("'*** "
& Message)
SwApp.RecordLine("")
End
Sub
Function
SelectByPID(ByVal
nPart As
ModelDoc2, ByVal
PIDName As
String,
ByVal
PIDCollection As
Collection) As
Object
Dim
PID() As
Byte
Dim
PIDVariant As
Object
Dim
PIDString As
String
Dim
i As
Long
Dim
SelObj As
Object
'Get
the string from the collection
PIDString =
""
PIDString =
PIDCollection.Item(PIDName)
'Parse the string into an array
PIDVariant = Split(PIDString,
",")
ReDim
PID(UBound(PIDVariant))
'Change to a byte array
For
i = 0 To (UBound(PIDVariant)
- 1)
PID(i) = PIDVariant(i)
Next
i
'Select the entity
SelObj = nPart.Extension.GetObjectByPersistReference3((PID),
errCode)
SelectByPID = SelObj
SelObj = Nothing
End
Function
Function
PIDInitializer() As
Collection
Dim
PIDCollection As
New
Collection
Dim
selection1 As
String
'Constants
selection1 =
"35,29,213,113,218,129,72,162,168,88,152,178,27,137,239,153,20,0,0,0,25,0,0,0,120,1,147,22,102,96,96,100,96,96,248,255,239,63,144,100,96,96,1,98,0,36,141,3,48,0,0,0,0,0,0,0,0"
selection1 = selection1 &
",Type=1"
'Store
constants in a collection
PIDCollection.Add(selection1,
"selection1")
PIDInitializer = PIDCollection
End
Function
Public
swApp As
SldWorks
End
Class