Solidworks二次开发—09--添加配合参考

王朝other·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

下面的代码选择了零件的两个面,然后为此零件添加一个配合参考,先选择的面为配合参考的第一参考面。并且是同向、重合配合。第二个为反向、重合配合。需要看Part.FeatureManager.InsertMateReference函数。第一个参数是配合参考的名称,后面三个为一组定义一个参考。第一个为选择的实体entity,然后是配合类型(整数索引),正反向(整数索引)。

Dim swApp As SldWorks.SldWorks

Dim Part As SldWorks.ModelDoc2

Dim selmgr As SldWorks.SelectionMgr

Dim Feature As SldWorks.Feature

Dim facefst As SldWorks.face2

Dim facesed As SldWorks.face2

Dim facefstent As SldWorks.Entity

Dim facesedent As SldWorks.Entity

Dim tempfeat As Object

Sub addcleatmateref()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

Set selmgr = Part.SelectionManager

Set tempfeat = selmgr.GetSelectedObject5(1)

If tempfeat.GetType = 2 Then

Set facefst = tempfeat

Set facefstent = facefst

Else

MsgBox "请选择平面"

End If

Set tempfeat = selmgr.GetSelectedObject5(2)

If tempfeat.GetType = 2 Then

Set facesed = tempfeat

Set facesedent = facesed

Else

MsgBox "请选择平面"

End If

Set Feature = Part.FeatureManager.InsertMateReference("配合参考1", facefstent, 2, 1, facesedent, 2, 2, Nothing, 0, 0)

End Sub

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航