关于VB控制 装配体运动！急用

antmary

我打算用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