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)
uj5u.com熱心網友回復：
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)
uj5u.com熱心網友回復：
SW的二次開發，錄的宏代碼，有些地主要修改一下轉載請註明出處，本文鏈接：https://www.uj5u.com/net/86373.html
標籤：VB.NET
上一篇：請教求大家幫忙呀！我想問一下labview中用activex創建mapx控制元件加載地圖，那個地圖載入怎么做呀？
下一篇：rabbitmq鏡像佇列不起作用