Dim As Document or As PartDocument ??

[Anonymous]

I'm having difficulties with accessing the Mass Properties of a part with this code.

Dim oDoc As Document = ThisApplication.ActiveDocument

Dim oMassProps As MassProperties
oMassProps = oDoc.ComponentDefinition.MassProperties

Which produces this error:

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

Changing the first line to this resolves the issue:

Dim oDoc As PartDocument = ThisApplication.ActiveDocument

However the code is part of a large loop which goes through all referenced documents of an assembly, so I can't use PartDocument as there are other document types also.

The strange thing is I have numerous part documents which don't produce the error. Its only this one, which I have attached for reference.

[t_hascj]

Hi Craig,

You need to use "as PartDocument" and "as AssemblyDocument". There is limitation for Inventor.Document object if you analyzing more types of document. The Document doesn't containts property ComponentDefinition.
Similar issue https://forums.autodesk.com/t5/inventor-customization/stuck-in-ilogic-with-isiassemblymember/m-p/742....


Thanks,
Jaroslav

[Anonymous]

@t_hascj thank you

I guess I could work around the document type with a conditional statement, but just for my own understanding...

I've had no problems accessing the MassProperties of other documents of kPartDocumentObject type, do you know why this may be the case?

I'v attached a part where it functions without error.

[Anonymous]

I thought it might be simple to use a conditional statement but now I'm not so sure. This is my structure:

Sub Main ()
' Get the active assembly.
Dim oAsmDoc As Document
oAsmDoc = ThisApplication.ActiveDocument

' Check for a non-part document
If oAsmDoc.DocumentType <> kAssemblyDocumentObject Then
      MsgBox ("The Active document must be an 'Assembly'!")
      Exit Sub
End If

' Get all of the referenced documents.
Dim oRefDocs As DocumentsEnumerator
oRefDocs = oAsmDoc.AllReferencedDocuments

Call OpTime(oAsmDoc)

' Iterate through the list of documents.
Dim oRefDoc As Document

' Iterate through all referenced documents beneath the active assembly (mixture of parts and assemblies)
For Each oRefDoc In oRefDocs

      Call OpTime(oRefDoc)

Next

End Sub

Sub OpTime (oDoc As Document)

oMassProps = oDoc.ComponentDefinition.MassProperties

End Sub

How could I define the highlighted part as a PartDocument or AssemblyDocument depending on the document type of referenced document?

[MechMachineMan · Accepted solution]

Check out this blog:

http://adndevblog.typepad.com/manufacturing/2016/11/ilogic-activedocumentcomponentdefinition-throws-...