求： VB控制装配体配合编辑和运动

赵山河

我打算用VB做装载机的 动态仿真

可是我模型和 装配体都做好后
不知道怎么用VB来控制 他自动运动

我打算用两个方式来 一个是用SW里模拟运动来做
可就是录不到 API的具体代码

还有一个就是控制 两个面的配合属性来做
这个问题就是不知道怎么来选择 已存在的两个面
因为 面是动的 一运动位置就变化了

下面是代码 大家帮看看  
Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
boolstatus = Part.Extension.SelectByID2("距离1", "MATE", 0, 0, 0, False, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("", "FACE", -0.01327116222613, -0.0303210760325, 0, True, 1, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("", "FACE", -0.0220485957918, 0.0136789239675, -0.004791310885375, True, 1, Nothing, 0)
Part.EditMate2 5, 1, True, 0.044, 0.044, 0.044, 1, 1, 0, 0.5235987755983, 0.5235987755983, longstatus
Part.ClearSelection2 True
End Sub
现在就是红色的部分的 代码 选择的两个面 不知道怎么 控制 运动后 就选择不上了

我QQ188921521 群 21944903

luohaiwei85

赵山河