System.Runtime.InteropServices.COMException:“类型不匹配。 (异常来自 HRESULT:0x80020005 (DI

[逆刘而上！]

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)

[jhonsonzhang]

ComponentValues 应该是这个数组类型不对。写法有些问题。 Dim ComponentValues=new double(){1.0#,1.0#,1.0#,1.0#,1.0#} 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)

[langzhi1234]

SW的二次开发，录的宏代码，有些地主要修改一下