access assembly bom from part
What I've seen others do is when the Assembly is open, use some code to push data from the BOM to custom iProperties (or similar) within the Parts/subassemblies. This is best when the parts are only used within that one assembly. If the parts are used in several assemblies, you might have to put assembly name/number in with the data you push to the parts. Then from the part, it will know what assembly it is being used in by the custom iProperties.
There may be ways through Vault to reverse find what assemblies a part is being referenced in from the part, but other than that, I don't know of another easy way.
Wesley Crihfield
(Not an Autodesk Employee)
Here's a quickie code, for if you already have the file name of the assembly.
One way or another, I believe the Assembly will have to be opened to access its BOM data.
Dim oPDoc As PartDocument = ThisApplication.ActiveDocument
Dim oPDef As PartComponentDefinition = oPDoc.ComponentDefinition
Dim oFound As Boolean = False
Dim oADocName As String = "C:\Temp\Asembly.iam" 'or InputBox()
Dim oADoc As AssemblyDocument
For Each oRefDoc As Document In ThisApplication.Documents
If oRefDoc.FullFileName = oADocName Then
oADoc = oRefDoc
oADoc.Activate
oFound = True
End If
Next
If oFound = False Then
oADoc = ThisApplication.Documents.Open(oADocName, False)
End If
Dim oBOM As BOM = oADoc.ComponentDefinition.BOM
oBOM.StructuredViewEnabled = True
oBOM.StructuredViewFirstLevelOnly = True
Dim oStView As BOMView
For Each oBView As BOMView In oBOM.BOMViews
If oBView.ViewType = BOMViewTypeEnum.kStructuredBOMViewType And
oBView.Name = "Structured" Then
oStView = oBView
End If
Next
Dim oTQty As String
For Each oBRow As BOMRow In oStView.BOMRows
If oBRow.ReferencedFileDescriptor.FullFileName = oPDoc.FullFileName Then
oTQty = oBRow.TotalQuantity
End If
Next
Wesley Crihfield
(Not an Autodesk Employee)
