Dim COSMOSWORKSObj As Object
Dim CWAddinCallBackObj As Object
CWAddinCallBackObj = Swapp.GetAddInObject("CosmosWorks.CosmosWorks")
COSMOSWORKSObj = CWAddinCallBackObj.COSMOSWORKS
' Redraw
Part.GraphicsRedraw2()
Dim motionStudyMgr As Object
motionStudyMgr = Part.Extension.GetMotionStudyManager()
Dim ActiveDocObj As Object
Dim StudyManagerObj As Object
Dim LoadsAndRestraintsManagerObj As Object
Dim ErrorCodeObj As Integer
Dim ContactManagerObj As Object
ActiveDocObj = COSMOSWORKSObj.ActiveDoc()
StudyManagerObj = ActiveDocObj.StudyManager()
StudyManagerObj.ActiveStudy = 0
Dim NewStudyName As String
NewStudyName = "静应力分析 1"
Dim CWNewStudy As Object
CWNewStudy = StudyManagerObj.CreateNewStudy3(NewStudyName, 0, 0, ErrorCodeObj)
Part.ClearSelection2（True）
Part.Extension.SelectByID2("切除-拉伸1", "SOLIDBODY", 0, 0, 0, True, 0, Nothing, 0)
Dim StudyObj As Object
StudyObj = StudyManagerObj.GetStudy(0)
Dim SolidManagerObj As Object
SolidManagerObj = StudyObj.SolidManager()
ErrorCodeObj = SolidManagerObj.SetLibraryMaterialToSelectedEntities("solidworks materials", "铸造合金钢")
Part.ClearSelection2（True）
LoadsAndRestraintsManagerObj = StudyObj.LoadsAndRestraintsManager()
Dim DispatchObj1 As Object
DispatchObj1 = Part.SelectionManager.GetSelectedObject6(1, -1)
Dim DispArray As Object() = {DispatchObj1}
Dim CWForceObj As Object
Dim DistanceValues As Object = Nothing
Dim ForceValues As Object = Nothing
Dim ComponentValues As Object
Dim data(5) As Double
data(0) = 1.0#
data(1) = 1.0#
data(2) = 1.0#
data(3) = 1.0#
data(4) = 1.0#
data(5) = 1.0#
ComponentValues = {data(0), data(1), data(2), data(3), data(4), data(5)}
CWForceObj = LoadsAndRestraintsManagerObj.AddForce3(1, 0, -1, 0, 0, 0, DistanceValues, ForceValues, 0, False, 0, 0, 0, 2.012, ComponentValues, False, False, DispArray, Nothing, False, ErrorCodeObj) ‘出错在这个地方
Part.ClearSelection2(True)
