topic Re: iLogic - error when running code (Exception from HRESULT: 0x80004005 (E_FAI in Inventor Programming Forum

iLogic - error when running code (Exception from HRESULT: 0x80004005 (E_FAIL))

mikko.m — Thu, 15 Feb 2018 14:06:22 GMT

I get this error when i try to run my code:

System.Runtime.InteropServices.COMException (0x80004005): Määrittämätön virhe. (Exception from HRESULT: 0x80004005 (E_FAIL))
   at System.RuntimeType.ForwardCallToInvokeMember(String memberName, BindingFlags flags, Object target, Int32[] aWrapperTypes, MessageData& msgData)
   at Inventor.CustomPropertyFormat.set_ShowTrailingZeros(Boolean )
   at LmiRuleScript.Main()
   at Autodesk.iLogic.Exec.AppDomExec.ExecRuleInAssembly(Assembly assem)
   at iLogic.RuleEvalContainer.ExecRuleEval(String execRule)

It doesn't happen on all parts. I've attached part with this problem.

I found this but it didn't help.

https://www.cadlinecommunity.co.uk/hc/en-us/articles/201769272-Trouble-Shooting-Inventor-iLogic-Error-Messages

SyntaxEditor Code Snippet

'Set a reference to the active part document
    Dim oDoc As PartDocument
    oDoc = ThisApplication.ActiveDocument
    
    Dim oDef As PartComponentDefinition
    oDef = oDoc.ComponentDefinition
	
	oDoc.Update
	

Dim oparams As Parameters
    Dim oparam As Parameter
    oparams = oDoc.ComponentDefinition.Parameters
    Dim exists As Boolean
    exists = False


    'Find out if parameter exists, if not it will create this parameter in the table
    For Each oparam In oparams
    If oparam.Name = "MAX_Y" Then exists = True
	If oparam.Name = "MAX_Z" Then exists = True
	If oparam.Name = "MAX_X" Then exists = True

	Next

    'Change the value if the parameter exists otherwise add the parameter
	
	 If exists Then
		 oparams.Item("MAX_Y").Value = Measure.ExtentsWidth/10
        
    Else
         oparams.UserParameters.AddByValue("MAX_Y",  Measure.ExtentsWidth/10,  11266)
    End If
	
	
	
	 If exists Then
		 oparams.Item("MAX_X").Value = Measure.ExtentsLength/10
        
    Else
         oparams.UserParameters.AddByValue("MAX_X", Measure.ExtentsLength/10,  11266)
    End If
	
	
	
	 If exists Then
		 oparams.Item("MAX_Z").Value = Measure.ExtentsHeight/10
        
    Else
        oparams.UserParameters.AddByValue("MAX_Z", Measure.ExtentsHeight/10,  11266)
    End If
	


'Dim param As Parameter
'param = Parameter.Param("MAX_Y") 
Parameter.Param("MAX_Y").ExposedAsProperty = True 

Parameter.Param("MAX_Y").CustomPropertyFormat.Precision = Inventor.CustomPropertyPrecisionEnum.kZeroDecimalPlacePrecision 
Parameter.Param("MAX_Y").CustomPropertyFormat.ShowTrailingZeros = True 
Parameter.Param("MAX_Y").CustomPropertyFormat.ShowLeadingZeros = False 
Parameter.Param("MAX_Y").CustomPropertyFormat.ShowUnitsString = False 
'Parameter.Param("MAX_Y").CustomPropertyFormat.Units = "mm" 

'param =Parameter.Param("MAX_Z") 
Parameter.Param("MAX_Z").ExposedAsProperty = True 

Parameter.Param("MAX_Z").CustomPropertyFormat.Precision = Inventor.CustomPropertyPrecisionEnum.kZeroDecimalPlacePrecision  
Parameter.Param("MAX_Z").CustomPropertyFormat.ShowTrailingZeros = True 
Parameter.Param("MAX_Z").CustomPropertyFormat.ShowLeadingZeros = False 
Parameter.Param("MAX_Z").CustomPropertyFormat.ShowUnitsString = False 
'Parameter.Param("MAX_Z").CustomPropertyFormat.Units = "mm" 

'param =Parameter.Param("MAX_X") 
Parameter.Param("MAX_X").ExposedAsProperty = True 

Parameter.Param("MAX_X").CustomPropertyFormat.Precision = Inventor.CustomPropertyPrecisionEnum.kZeroDecimalPlacePrecision   
Parameter.Param("MAX_X").CustomPropertyFormat.ShowTrailingZeros = True 
Parameter.Param("MAX_X").CustomPropertyFormat.ShowLeadingZeros = False 
Parameter.Param("MAX_X").CustomPropertyFormat.ShowUnitsString = False 
'Parameter.Param("MAX_X").CustomPropertyFormat.Units = "mm" 

	oDoc.Update

Re: iLogic - error when running code (Exception from HRESULT: 0x80004005 (E_FAI

MechMachineMan — Thu, 15 Feb 2018 14:29:47 GMT

See if you get the proper results and no errors if you just exclude the ShowTrailingZeroes statements

Parameter.Param("MAX_Y").CustomPropertyFormat.Precision = Inventor.CustomPropertyPrecisionEnum.kZeroDecimalPlacePrecision 
'Parameter.Param("MAX_Y").CustomPropertyFormat.ShowTrailingZeros = True

I mean, aren't the 2 redundant - if you don't have a decimal (as set by your Zero Decimal precision), any trailing zeroes would just be adding to increasing the value by a factor of 10, instead of just acting as placeholders

Re: iLogic - error when running code (Exception from HRESULT: 0x80004005 (E_FAI

bradeneuropeArthur — Thu, 15 Feb 2018 15:55:20 GMT

take a look at this similar code:

https://forums.autodesk.com/t5/inventor-customization/ilogic-to-set-max-dimensions-as-parameters-with-export/m-p/7741987#M79821

Re: iLogic - error when running code (Exception from HRESULT: 0x80004005 (E_FAI

mikko.m — Fri, 16 Feb 2018 05:47:31 GMT

@MechMachineMan

Excluding the ShowTrailingZeroes didn't help. The code itself seems to be working and changing values. Error message appears after the code has run.

@bradeneuropeArthur

Same problem with that code. Code runs but the error occurs.

Re: iLogic - error when running code (Exception from HRESULT: 0x80004005 (E_FAI

t_hascj — Fri, 16 Feb 2018 15:14:16 GMT

Hi mikko,

Try this code:

SyntaxEditor Code Snippet

'Set a reference to the active part document
Dim oDoc As PartDocument
oDoc = ThisApplication.ActiveDocument
    
Dim oDef As PartComponentDefinition
oDef = oDoc.ComponentDefinition
	
oDoc.Update
	

Dim oparams As Parameters
Dim oparam As Parameter
oparams = oDoc.ComponentDefinition.Parameters
Dim exists As Boolean
exists = False

'Find out if parameter exists, if not it will create this parameter in the table
For Each oparam In oparams
	If oparam.Name = "MAX_Y" Then exists = True
	If oparam.Name = "MAX_Z" Then exists = True
	If oparam.Name = "MAX_X" Then exists = True
Next

'Change the value if the parameter exists otherwise add the parameter	
If exists Then
	oparams.Item("MAX_Y").Value = Measure.ExtentsWidth
Else
	oparams.UserParameters.AddByValue("MAX_Y",  Measure.ExtentsWidth,  11266)
End If
	
If exists Then
	oparams.Item("MAX_X").Value = Measure.ExtentsLength        
Else
	oparams.UserParameters.AddByValue("MAX_X", Measure.ExtentsLength,  11266)
End If
	
If exists Then
	oparams.Item("MAX_Z").Value = Measure.ExtentsHeight        
Else
	oparams.UserParameters.AddByValue("MAX_Z", Measure.ExtentsHeight,  11266)
End If	


'Dim param As Parameter
'param = Parameter.Param("MAX_Y") 
Parameter.Param("MAX_Y").ExposedAsProperty = True
Parameter.Param("MAX_Y").CustomPropertyFormat.Precision = Inventor.CustomPropertyPrecisionEnum.kZeroDecimalPlacePrecision
If (Parameter.Param("MAX_Y").CustomPropertyFormat.PropertyType <> Inventor.CustomPropertyTypeEnum.kNumberPropertyType)
	Parameter.Param("MAX_Y").CustomPropertyFormat.ShowTrailingZeros = True 
	Parameter.Param("MAX_Y").CustomPropertyFormat.ShowLeadingZeros = False 
	Parameter.Param("MAX_Y").CustomPropertyFormat.ShowUnitsString = False 
End If

'param =Parameter.Param("MAX_Z") 
Parameter.Param("MAX_Z").ExposedAsProperty = True
Parameter.Param("MAX_Z").CustomPropertyFormat.Precision = Inventor.CustomPropertyPrecisionEnum.kZeroDecimalPlacePrecision  
If (Parameter.Param("MAX_Y").CustomPropertyFormat.PropertyType <> Inventor.CustomPropertyTypeEnum.kNumberPropertyType)
	Parameter.Param("MAX_Z").CustomPropertyFormat.ShowTrailingZeros = True
	Parameter.Param("MAX_Z").CustomPropertyFormat.ShowLeadingZeros = False 
	Parameter.Param("MAX_Z").CustomPropertyFormat.ShowUnitsString = False 
End If

'param =Parameter.Param("MAX_X") 
Parameter.Param("MAX_X").ExposedAsProperty = True
Parameter.Param("MAX_X").CustomPropertyFormat.Precision = Inventor.CustomPropertyPrecisionEnum.kZeroDecimalPlacePrecision  
If (Parameter.Param("MAX_Y").CustomPropertyFormat.PropertyType <> Inventor.CustomPropertyTypeEnum.kNumberPropertyType)
	Parameter.Param("MAX_X").CustomPropertyFormat.ShowTrailingZeros = True
	Parameter.Param("MAX_X").CustomPropertyFormat.ShowLeadingZeros = False 
	Parameter.Param("MAX_X").CustomPropertyFormat.ShowUnitsString = False 
End If

oDoc.Update

Thanks,
Jaroslav

Re: iLogic - error when running code (Exception from HRESULT: 0x80004005 (E_FAI

mikko.m — Mon, 19 Feb 2018 05:50:21 GMT

Thank you! That works, no errors. I think I have to divide parameter value by 10 because otherwise parameter value shows 10 times higher.

Like this:

oparams.Item("MAX_Y").Value = Measure.ExtentsWidth/10

Re: iLogic - error when running code (Exception from HRESULT: 0x80004005 (E_FAI

MechMachineMan — Tue, 20 Feb 2018 14:26:22 GMT

@mikko.m that sounds like it's because of database units not being and measurements automatically being converted to the database lengths ("cm") instead of your working units ("mm").

Its definitely something to look up and be aware of if you are using params in iLogic!

Re: iLogic - error when running code (Exception from HRESULT: 0x80004005 (E_FAI

t_hascj — Tue, 20 Feb 2018 14:41:04 GMT

Yes, you are right.

The nominal value is multiplied by 10, therefore Measure.ExtentXXX return value in mm. And AddByValue function get value in database units(cm) and then convert it to specified units(11266 = mm)

More info http://help.autodesk.com/view/INVNTOR/2018/ENU/?guid=GUID-DB91F7F6-842C-4849-A856-1003F8B7C576