Exception from HRESULT

[farshidDWRFR]

Hi all,

I get the error message "Unspecified error (Exception from HRESULT: 0x80004005 (E_FAIL))" when running the following iLogic snippet. Can anyone please help me?

Dim oAsmDoc As AssemblyDocument = ThisDoc.Document

Dim oAsmCompDef As AssemblyComponentDefinition = Nothing

oAsmCompDef = oAsmDoc.ComponentDefinition

	
Dim oOcc As ComponentOccurrence

    For Each oOcc In oAsmCompDef.Occurrences

    	If oOcc.Visible = False Then
			
						
			oOcc.Definition.BOMStructure = BOMStructureEnum.kPhantomBOMStructure
			
			
			
		End If
		
	Next

[aelqabbany]

The script ran fine for me. I've made a few changes to make it more robust. If you run into any errors, please upload a screenshot of the details of the error dialog.

Dim oAsmDoc As AssemblyDocument = ThisApplication.ActiveDocument

Dim oAsmCompDef As  AssemblyComponentDefinition = oAsmDoc.ComponentDefinition

For Each oOcc As ComponentOccurrence In oAsmCompDef.Occurrences
	If oOcc.Visible = False Then
		Try
			oOcc.Definition.BOMStructure = BOMStructureEnum.kPurchasedBOMStructure
		Catch
			MessageBox.Show("Could not set " & oOcc.Name & " to phantom", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand, MessageBoxDefaultButton.Button1)
		End Try
	End If
Next

[farshidDWRFR]

Hello and thanks very much for your response.

I need the rule to set the suppressed components in an assembly to phantom, so they are not shown in the Bill of Materials with quantity 0. However, the code does not do this but gives an error message saying "Could not set ...to phantom.". I will appreciate it if you can help me fix this.

[aelqabbany]

Thank you for clarifying. Give this a shot and let me know if you run into any issues:

Dim oAsmDoc As AssemblyDocument = ThisApplication.ActiveDocument

Dim oAsmCompDef As  AssemblyComponentDefinition = oAsmDoc.ComponentDefinition

For Each oOcc As ComponentOccurrence In oAsmCompDef.Occurrences
	'Check if Occurrence is suppressed
	If oOcc.Suppressed = True Then
		Try
			'Unsuppress Occurrence
			oOcc.Unsuppress()
			'Set Occurrence BOM structure to Phantom
			oOcc.Definition.BOMStructure = BOMStructureEnum.kPhantomBOMStructure
			'Suppress Occurrence without saving
			oOcc.Suppress(True)
		Catch
			MessageBox.Show("Could not set " & oOcc.Name & " to phantom", "Error", MessageBoxButtons.OK, MessageBoxIcon.Hand, MessageBoxDefaultButton.Button1)
		End Try
	End If
Next

[farshidDWRFR]

Hello again and thanks for your response.

The only part of the code that works properly is the message box. It does not perform the main job which is changing the BOM structure to Phantom.

Any suggestions?

[aelqabbany]

Thank you for the feedback.

The only way I would be able to help you further, is if you were able to upload you working file, or at the very least upload detailed screenshots.

[farshidDWRFR]

Is that fine if I send you a compressed file via a OneDrive link? My assembly folder is as large as 13.4G.

[aelqabbany]

Sure. Please send it to me at abdullah[dot]elq[at]gmail[dot]com.

Or you can share the link here if you want others with more experience to take a look at it.

[WCrihfield]

Hi @farshidDWRFR & @aelqabbany .  Just a couple quick notes...you can just set the BOMStructure of the ComponentOccurrence object directly (ComponentOccurrence .BOMStrucure), instead of trying to set the BOMStructure of the component's definition.  That might help eliminate some complications.  Also, keep in mind that if you are toggling component suppression status, there will need to be either a LevelOfDetailRepresentation (pre 2022) or a ModelState (2022 and later) involved, to record those status changes.

[aelqabbany]

Thank you @WCrihfield. Your knowledge is always appreciated.

[farshidDWRFR]

Hi,

I just emailed you the download link.

[farshidDWRFR]

Thanks, @WCrihfield for your advice.