iLogic error "Unable to cast COM object of type"

[phila]

I started getting this error with an iLogic rule that had been working. Haven't knowingly changed anything.

Has anyone else had this happen and what is causing it? If so, how was it resolved?

Help would be much appreciated.

Unable to cast COM object of type 'System.__ComObject' to interface type 'Inventor.AssemblyComponentDefinition'. This operation failed because the QueryInterface call on the COM component for the interface with IID '{AA044AA1-D685-11D3-B7A0-0060B0F159EF}' failed due to the following error: No such interface supported (Exception from HRESULT: 0x80004002 (E_NOINTERFACE)).

Here is the rule

 'set a reference to the assembly component definition.
 'This assumes an assembly document is open.
Dim oAsmCompDef As AssemblyComponentDefinition
oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition

'define View rep 
Dim oPosRep As DesignViewRepresentation 
Dim sPosRep As String
Dim MyArrayList As New ArrayList

'record the active view rep name
Dim sActiveDesignViewRep As String
sActiveDesignViewRep = oAsmCompDef.RepresentationsManager.ActiveDesignViewRepresentation.Name

For Each oPosRep In oAsmCompDef.RepresentationsManager.DesignViewRepresentations
MyArrayList.add(oPosRep.Name)
Next

sPosRep = InputListBox("Select from the list:", MyArrayList, sActivedesignviewRep,  "View Rep Desired")

If sPosRep = "*Add a new Positional Rep*" Then
newPosRep = InputBox("Enter a name:", "iLogic", "New View Rep_" & iArrayList)
newAngle = InputBox("Enter an Angle:", "iLogic", "5")
'create New pos rep
oAsmCompDef.RepresentationsManager.DesignViewRepresentations.Add(newViewRep)
myAngle = newAngle
Else

'activate the selected View rep
oAsmCompDef.RepresentationsManager.DesignViewRepresentations.Item(sPosRep).Activate    
End If

[xiaodong_liang]

Hi,

I do not hear any change for such usage.

Which release of Inventor you tested with? In 2016 at my side, I simply created a new assembly, added a rule with your code and ran it. It can work without error.  My test video is uploaded to:

https://autodesk.box.com/s/m22q8d0t91euh6b6jg91l4vetfvnxfcp

if this problem happened with specific assembly, please share a copy.

[MechMachineMan · Accepted solution]

Try adding an if statement to test the document type, or a try/catch:

If ThisApplication.ActiveDocumentType() <> kAssemblyDocumentObject
        MsgBox("You would have better luck if you ran this from an assembly document.")
        Exit Sub
End If

[llorden4]

My error stemmed from a part file used in my assembly that I had a rule automatically run with an event trigger of "File Open".  Disabling that event trigger on the part file removed my error.

[_KarlH]

Too funny, this error just caught me out in a panic too. Always the simple things!!!