Inventor: 获取电缆管路部件的名字

来源：互联网发布：杭州淘宝学院编辑：程序博客网时间：2024/06/10 16:38

原文链接：http://adndevblog.typepad.com/manufacturing/2016/07/cable-harness-component-names.html

当遍历电缆管路部件 Cable & Harness 的时候，会看到名为“HA_VC_xxx” 的VirtualComponentDefinition。

...Hard Drive:2CD Ribbon Cable  CD Ribbon Cable  Ribbon Cable Connector:1  Ribbon Cable Connector:2  Ribbon Cable Connector:3  HA_VC_100:1Power Supply Harness  Power Supply Connector:1...

这个名字和在模型树结构中的名字并不一致。这是因为列在树结构中的实际并不是具体的部件，而仅仅是对象容器。如果选中它们，执行代码，可以看到它们是 ClientBrowserNodeDefinitionObject

VirtualComponenetDefinition的Part Number实际对应的是前面提到的部件名，执行如下的代可以看到：

Sub PrintHierarchyTreeRecursive(occs, indent)  Dim occ As ComponentOccurrence  For Each occ In occs    Dim pss As PropertySets    If TypeOf occ.Definition Is VirtualComponentDefinition Then      Set pss = occ.Definition.PropertySets    Else      Set pss = occ.Definition.Document.PropertySets    End If        Dim partNumber As String    partNumber = pss("Design Tracking Properties")("Part Number").value        Write #1, Spc(indent); occ.Name + ", " + partNumber        Call PrintHierarchyTreeRecursive(occ.SubOccurrences, indent + 2)  NextEnd SubSub PrintHierarchyTree()  Dim asm As AssemblyDocument  Set asm = ThisApplication.ActiveDocument    Open "C:\temp\assemblyparts.txt" For Output As #1  Call PrintHierarchyTreeRecursive(asm.ComponentDefinition.Occurrences, 0)  Close #1End Sub

阅读全文

0 0