目的:获取solidworks镜像件的原始组件名称,最终实现将零部件数量写入到工程图中
下面的代码是我截取的一段,判断是否是镜像件,但没有获取原始组件名称的代码
通过截取特征名称(列:零件1镜像)可以获取原始组件,但这种方式不知道有没有漏洞,暂时排除这种方法,最好是直接获取原始组件名称的代码
Dim swApp As SldWorks.SldWorks
Sub main()
Set swApp = Application.SldWorks
Set childmodel = swApp.ActiveDoc
Set thisFeat = childmodel.FirstFeature '定义第一个识别特征
Y = 1 '遍历设计树加速参数
Mir = 0
Do While Not thisFeat Is Nothing '在软件中遍历设计树循环开始 -------Do While 1
If Y < 7 Then GoTo line1 '忽略前面6个特征,从第七个开始遍历
If thisFeat.GetTypeName2 = "MirrorStock" Then
Mir = 1
MsgBox thisFeat.Name '获取特征的名称
Set mirrorComp = thisFeat.GetDefinition '获取特征内所有参数
'获取镜像件的原始名称代码
End If
line1:
Set thisFeat = thisFeat.GetNextFeature '定义下一个识别特征
Y = Y + 1
Loop
End Sub
...查看全文