二次开发，自动添加配合addmate实现不了

airgod2001 · 发表于 2013-8-1 10:35:14

二次开发，自动添加配合addmate实现不了，在一个装配体中，给两个零件的圆柱面添加同轴配合，录制的代妈如下，执行的时候却不能实现配合，是什么问题，求解
Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("", "FACE", 0, 0, 0, True, 1, Nothing, 0) ’零件1上的圆柱面
boolstatus = Part.Extension.SelectByID2("", "FACE", 0, 0, 0, True, 1, Nothing, 0) ’零件2上的圆柱面
Dim myMate As Object
Set myMate = Part.AddMate3(1, 0, False, 0.3639445198141, 0, 0, 0.001, 0.001, 0, 0.5235987755983, 0.5235987755983, False, longstatus)
Part.ClearSelection2 True
Part.EditRebuild3
End Sub

xyzse11 · 发表于 2013-8-1 10:40:16

boolstatus = Part.Extension.SelectByID2("", "FACE", 0, 0, 0, True, 1, Nothing, 0)       ’零件1上的圆柱面
boolstatus = Part.Extension.SelectByID2("", "FACE", 0, 0, 0, True, 1, Nothing, 0)    ’零件2上的圆柱面
应该是选择失败吧  查一下boolstatus 的值

		自动登录	找回密码
密码			立即注册

二次开发，自动添加配合addmate实现不了

相关帖子