VBA not working randomly with IPT files on my computer only

[Anonymous]

Hello,

I hope somebody will give ideas to explore on why iLogic rules don't work properly on my computer sometimes only. Following line of code was working properly last friday and doesn't work this morning (my computer only). I restarted Inventor and now it works. See attached image for error message.

actBomStrucInt = ThisApplication.ActiveDocument.ComponentDefinition.BOMStructure

I use the integer to set the value of a custom iproperty. It always works properly within assemblies but not always within parts.

This is not the first time I have this problem but today I have time to post for an answer. By the way, I'll be out of my office until next week so it may take some time before I get back here.

Thanks,

[MechMachineMan · Accepted solution]

Please look into the information provided in this blog. I do believe it could be the issue with the documents/files and how you access the component definition.

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

ie; the solution is to call component definition on the explicitly declared document type.

Something like this:

Dim doc = ThisApplication.ActiveDocument

Dim oCD As ComponentDefinition
If doc.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then
  Dim assemDoc As AssemblyDocument = doc
  oCD = assemDoc.ComponentDefinition
ElseIf doc.DocumentType = DocumentTypeEnum.kPartDocumentObject Then
  Dim partDoc As PartDocument = doc
  oCD = partDoc.ComponentDefinition
End If

actBomStrucInt = oCD.BOMStructure

[Anonymous]

Link you provided is almost right (in my case at least) since we can reproduce the issue with the sequence indicated but the reversed sequence reproduces the issue randomly.

Here is my final code to prevent this issue:

...
Dim actBomStrucInt As Integer

Dim doc = ThisApplication.ActiveDocument
Dim BOMStruc As BOMStructureEnum = Nothing

If doc.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then
	Dim assemDoc As AssemblyDocument = doc
	BOMStruc = assemDoc.ComponentDefinition.BOMStructure
ElseIf doc.DocumentType = DocumentTypeEnum.kPartDocumentObject Then
	Dim partDoc As PartDocument = doc
	BOMStruc = partDoc.ComponentDefinition.BOMStructure
End If

actBomStrucInt = BOMStruc
...