关于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