iCAx开思工具箱

标题: 求： VB控制装配体配合编辑和运动 [打印本页]

作者: 赵山河 时间: 2006-5-23 17:16
标题: 求： 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

作者: 赵山河 时间: 2006-5-24 04:46
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
For I = 0.01 To 0.05 Step 0.02
boolstatus = Part.Extension.SelectByID2("距离1", "MATE", 0, 0, 0, False, 0, Nothing, 0)[选择配合这个是事先定义好的]
boolstatus = Part.Extension.SelectByID2("点6@草图1@零件2-2@装配体3", "EXTSKETCHPOINT", 0, 0, 0, True, 1, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("点8@草图1@零件1-1@装配体3", "EXTSKETCHPOINT", 0, 0, 0, True, 1, Nothing, 0)[选配合要求的因数]
Part.EditMate2 5, -1, True, I, I, I, 1, 1, 0, 0, 0, longstatus[修改配合的变量]
Part.ClearSelection2 True
Part.EditRebuild
Part.GraphicsRedraw2[重新建模]
Next I
End Sub

重点在红的的地方定义一定要定义你已经定义的量

后面的0，0，0

是坐标但是如果前面的定义已经明确可找到该配合的量那么就可以为任意直

这样就可以进行动态仿真但是有不满意的地方就是仿真的时候选择的草图是高亮的

不知道如何解决

=======================弄了一整天抽了两合烟终于见点效果 ===========

哪位有更好的方案给个意见和建议~~~~~~~~~~~~~

作者: luohaiwei85 时间: 2008-10-15 18:33

我现在也碰到这个问题了！！！怎样才能选到想要的面呢

欢迎光临 iCAx开思工具箱 (https://t.icax.org/)