Accessing component definition of Weldment

[Anonymous]

I am running a for loop through AllReferencedDocuments in an assembly. Trying to access the component definition of any weldment assemblies using this line:

Dim wcd As WeldmentComponentDefinition = oRefDoc.ComponentDefinition

But I receive an error saying this:

Member not found. (Exception from HRESULT: 0x80020003 (DISP_E_MEMBERNOTFOUND))

I can write a rule inside the weldment assembly and access it from there:

Dim oAssDoc As AssemblyDocument
oAssDoc = ThisApplication.ActiveDocument

Dim wcd As WeldmentComponentDefinition
wcd = oAssDoc.ComponentDefinition

But I need to access the component definition of any weldment assemblies from my top level rule, how do I do it?

[MechMachineMan]

Is there a good reason you need to use the specific WeldmentComponentDefinition instead of the generic ComponentDefinition?

From my messing around with this, it appears to work just fine.... I'm assuming refdoc probably isn't actually a weldmentcomponentdefinition like you expect it to be.

Sub Main()
	Dim oCD As ComponentDefinition
	
	For Each oSubDoc in ThisDoc.Document.AllReferencedDocuments
		If oSubDoc.DocumentType = kAssemblyDocumentObject 'AssemblyDocument
			If oSubDoc.ComponentDefinition.Type = ObjectTypeEnum.kWeldmentComponentDefinitionObject
				Dim oWCD As WeldmentComponentDefinition = oSubDoc.ComponentDefinition
				oCD = oWCD
				MsgBox(oWCD.Document.FullFileName)
				Goto Continue1
			Else
				Dim oACD As AssemblyComponentDefinition = oSubDoc.ComponentDefinition
				oCD = oACD
			End If
		Else 'Part Doc
			If oSubDoc.ComponentDefinition.Type = ObjectTypeEnum.kSheetMetalComponentDefinitionObject
				Dim oSCD As SheetMetalComponentDefinition = oSubDoc.ComponentDefinition
				oCD = oSCD
			Else
				Dim oPCD As PartComponentDefinition = oSubDoc.ComponentDefinition
				oCD = oPCD
			End If
		End If
	Next
	
Continue1:
	MsgBox(oCD.Document.FullFileName)

End Sub


'kVirtualComponentDefinitionObject - 100675072
'kWeldmentComponentDefinitionObject - 100673280
'kAssemblyComponentDefinitionObject - 100663808
'kPartComponentDefinitionObject - 83886592
'kSheetMetalComponentDefinitionObject - 150995200

[Anonymous]

I get the same error with the code you just sent, traced it to this line:

Sub Main()
    Dim oCD As ComponentDefinition
    
    For Each oSubDoc in ThisDoc.Document.AllReferencedDocuments
        If oSubDoc.DocumentType = kAssemblyDocumentObject 'AssemblyDocument
            If oSubDoc.ComponentDefinition.Type = ObjectTypeEnum.kWeldmentComponentDefinitionObject
'                'Dim oWCD As WeldmentComponentDefinition = oSubDoc.ComponentDefinition
'                'oCD = oWCD
'                'MsgBox(oWCD.Document.FullFileName)
'                'Goto Continue1
'            Else
'                Dim oACD As AssemblyComponentDefinition = oSubDoc.ComponentDefinition
'                oCD = oACD
'            End If
'        Else 'Part Doc
'            If oSubDoc.ComponentDefinition.Type = ObjectTypeEnum.kSheetMetalComponentDefinitionObject
'                Dim oSCD As SheetMetalComponentDefinition = oSubDoc.ComponentDefinition
'                oCD = oSCD
'            Else
'                Dim oPCD As PartComponentDefinition = oSubDoc.ComponentDefinition
'                oCD = oPCD
            End If
        End If
    Next
    
'Continue1:
    'MsgBox(oCD.Document.FullFileName)

End Sub

[MechMachineMan]

Ok. So is there anything special about the document it is failing on, or is it definitely failing for every document?

[Anonymous]

Just tried creating a new blank weldment from scratch and it worked for that. Not sure what's wrong with the original, I converted it to a weldment from a standard assembly.

In the one that's giving me issues I can access the component definition from this rule inside it, so I don't know why it doesn't like it from my other rule.

Dim oAssDoc As AssemblyDocument
oAssDoc = ThisApplication.ActiveDocument

Dim wcd As WeldmentComponentDefinition
wcd = oAssDoc.ComponentDefinition

Dim oEachWeldB As WeldBead

WeldCount = wcd.Welds.WeldBeads.Count

MsgBox(WeldCount)

[Anonymous]

I saved a copy of the problem assembly, replaced the original with the copy in my assembly, ran the rule and it works fine on that. Swapped the copy back to the original, ran the rule and it fails. Both files are identical apart from their filename.  

[MechMachineMan]

I'm curious how it works if you try it just typed as ComponentDefinition

Dim oAssDoc As AssemblyDocument
oAssDoc = ThisApplication.ActiveDocument

Dim wcd As ComponentDefinition
wcd = oAssDoc.ComponentDefinition

Dim oEachWeldB As WeldBead

WeldCount = wcd.Welds.WeldBeads.Count

MsgBox(WeldCount)