Create Topology Study with Minimize Maximum Displacement Goal Example (VBA)

This example shows how to create a topology study with a minimize maximum displacement goal, a mass constraint, and a displacement constraint.

'----------------------------------------------------------------------------
' 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. Open public_documents\samples\tutorial\api\tutor1.sldprt. 
'
' Postconditions: 
' 1. Creates Topology Study 1.
' 2. Selects vertices.
' 3. Selects the coordinate system.
' 4. Sets the minimize maximum displacement goal.
' 5. Sets the vertexes for the goal.
' 6. Sets the coordinate system for the goal.
' 7. Adds Mass Constraint 1.
' 8. Sets the mass constraint equation.
' 9. Adds Displacement Constraint 1.
'10. Sets the displacement component and constraint equation.
'
' NOTE: Because the model is used elsewhere, do not save changes.
' ---------------------------------------------------------------------------

Dim swApp As SldWorks.SldWorks
Dim COSMOSWORKSObj As CosmosWorksLib.CosmosWorks
Dim CWAddinCallBackObj As CosmosWorksLib.CwAddincallback
Dim lStatus As Long
Dim CWTopologyStudyMinimizeMassGoal As CosmosWorksLib.CWTopologyMinimizeMassGoal
Dim CWTopologyStudyMaximizeStiffnessGoal As CosmosWorksLib.CWTopologyMaximizeStiffnessGoal
Dim CWTopologyStudyMinimizeMaximiumDisplacementGoal As CosmosWorksLib.CWTopologyMinimizeMaximumDisplacementGoal
Dim CWTopologyStudyManagerObj As CosmosWorksLib.CWTopologyStudyManager
Dim CWTopologyMassConstraint As CosmosWorksLib.CWTopologyMassConstraint
Dim CWTopologyDisplacementConstraint As CosmosWorksLib.CWTopologyDisplacementConstraint
Dim ActiveDocObj As CosmosWorksLib.CWModelDoc
Dim StudyManagerObj As CosmosWorksLib.CWStudyManager
Dim ErrorCode As Long
Dim NewStudyName As String
Dim CWNewStudy As CosmosWorksLib.CWStudy
Dim StudyObj As CosmosWorksLib.CWStudy
Dim DispatchObjSelVertexForConstraint_Displacement_constraint_1 As Object
Dim DispatchObjSelCoordSysForConstraint_Displacement_constraint_1 As Object
Dim DispatchObjSelVertexForConstraint_Displacement_constraint_2 As Object
Dim DispatchObjSelCoordSysForConstraint_Displacement_constraint_2 As Object
Dim DispatchObjSelVertexForGoal_Minimize_Maximum_Displacement As Object
Dim DispatchObjSelCoordSysForGoal_Minimize_Maximum_Displacement As Object
Dim DispatchObj1 As Object
Dim DispatchObj2 As Object
Dim DispatchObj3 As Object
Dim DispatchObj4 As Object
Dim DispatchObj6 As Object
Dim DispArrayForGoal_Minimize_Maximum_Displacement As Variant
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Option Explicit

Sub main()
 

    If swApp Is Nothing Then Set swApp = Application.SldWorks
  

    Set Part = swApp.ActiveDoc
    If Part Is Nothing Then ErrorMsg swApp, "tutor1.SLDPRT not found", True
  

    Set CWAddinCallBackObj = swApp.GetAddInObject("CosmosWorks.CosmosWorks")
    If CWAddinCallBackObj Is Nothing Then ErrorMsg swApp, "CWAddinCallBack object not found", True
    Set COSMOSWORKSObj = CWAddinCallBackObj.CosmosWorks
    If COSMOSWORKSObj Is Nothing Then ErrorMsg swApp, "COSMOSWORKS object not found", True
               

    swApp.ActivateDoc2 "tutor1.sldprt", False, longstatus

    Set ActiveDocObj = COSMOSWORKSObj.ActiveDoc()
    Set StudyManagerObj = ActiveDocObj.StudyManager()

    StudyManagerObj.ActiveStudy = 1
    NewStudyName = "Topology Study 1"
    Set CWNewStudy = StudyManagerObj.CreateNewStudy3(NewStudyName, 13, 0, ErrorCode)

    'Select vertexes
    boolstatus = Part.Extension.SelectByRay(0.025, 0.01, 0, 0, 0, -1, 8.69739336492891E-04, 3, True, 0, 0)
    boolstatus = Part.Extension.SelectByRay(0.025, 0, 0, 0, 0, -1, 8.69739336492891E-04, 3, True, 0, 0)
    boolstatus = Part.Extension.SelectByRay(0.135, 0.01, 0, 0, 0, -1, 8.69739336492891E-04, 3, True, 0, 0)
    boolstatus = Part.Extension.SelectByRay(0.135, 0, 0, 0, 0, -1, 8.69739336492891E-04, 3, True, 0, 0)

    'Select coordinate system
    boolstatus = Part.Extension.SelectByID2("Coordinate System1", "COORDSYS", 0, 0, 0, True, 0, Nothing, 0)

    Set StudyObj = StudyManagerObj.GetStudy(1)
    Set CWTopologyStudyManagerObj = StudyObj.TopologyStudyManager()
   

    CWTopologyStudyManagerObj.BeginEdit
   

    'Set minimize maximum displacement goal
    ErrorCode = CWTopologyStudyManagerObj.SetGoal(2, CWTopologyStudyMinimizeMassGoal, CWTopologyStudyMaximizeStiffnessGoal, CWTopologyStudyMinimizeMaximiumDisplacementGoal)
    Set CWTopologyStudyMinimizeMaximiumDisplacementGoal = CWTopologyStudyManagerObj.MinimizeMaximumDisplacementGoal()
   

    CWTopologyStudyMinimizeMaximiumDisplacementGoal.BeginEdit

    Set DispatchObj1 = Part.SelectionManager.GetSelectedObject6(1, -1)
    Set DispatchObj2 = Part.SelectionManager.GetSelectedObject6(2, -1)
    Set DispatchObj3 = Part.SelectionManager.GetSelectedObject6(3, -1)
    Set DispatchObj4 = Part.SelectionManager.GetSelectedObject6(4, -1)
    Set DispatchObjSelCoordSysForGoal_Minimize_Maximum_Displacement = Part.SelectionManager.GetSelectedObject6(5, -1)

    ErrorCode = CWTopologyStudyMinimizeMaximiumDisplacementGoal.SetComponent(0)
    DispArrayForGoal_Minimize_Maximum_Displacement = Array(DispatchObj1, DispatchObj2, DispatchObj3, DispatchObj4)
    ErrorCode = CWTopologyStudyMinimizeMaximiumDisplacementGoal.SetVertices((DispArrayForGoal_Minimize_Maximum_Displacement))
    ErrorCode = CWTopologyStudyMinimizeMaximiumDisplacementGoal.SetCoordinateSystemPreference(1)
    ErrorCode = CWTopologyStudyMinimizeMaximiumDisplacementGoal.SetCoordinateSystem(DispatchObjSelCoordSysForGoal_Minimize_Maximum_Displacement)
   

    ErrorCode = CWTopologyStudyMinimizeMaximiumDisplacementGoal.EndEdit()
   

    Set CWTopologyMassConstraint = CWTopologyStudyManagerObj.AddMassConstraint(ErrorCode)
    Set CWTopologyMassConstraint = CWTopologyStudyManagerObj.GetMassConstraint("Mass Constraint 1", ErrorCode)
   

    CWTopologyMassConstraint.BeginEdit
   

    ErrorCode = CWTopologyMassConstraint.SetMassPreference(1)
    ErrorCode = CWTopologyMassConstraint.SetComparator(0)
    ErrorCode = CWTopologyMassConstraint.SetValue(30)
   

    ErrorCode = CWTopologyMassConstraint.EndEdit()
   

    Set CWTopologyDisplacementConstraint = CWTopologyStudyManagerObj.AddDisplacementConstraint(ErrorCode)
    Set CWTopologyDisplacementConstraint = CWTopologyStudyManagerObj.GetDisplacementConstraint("Displacement Constraint 1", ErrorCode)
   

    CWTopologyDisplacementConstraint.BeginEdit
   

    ErrorCode = CWTopologyDisplacementConstraint.SetComponent(0)
    ErrorCode = CWTopologyDisplacementConstraint.SetComparator(0)
    ErrorCode = CWTopologyDisplacementConstraint.SetValue(0.25)
    ErrorCode = CWTopologyDisplacementConstraint.SetUnit(0)
    ErrorCode = CWTopologyDisplacementConstraint.SetLocationPreference(0)
    ErrorCode = CWTopologyDisplacementConstraint.SetCoordinateSystemPreference(0)
   

    ErrorCode = CWTopologyDisplacementConstraint.EndEdit()
   

    ErrorCode = CWTopologyStudyManagerObj.EndEdit()

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 ""
    If EndTest Then
   

    End If
End Sub