topic Re: derived part material in Inventor Programming Forum

derived part material

Anonymous — Wed, 17 Jul 2013 18:45:11 GMT

is it possible to get the material of the derived part in vba ?

Re: derived part material

jdkriek — Wed, 17 Jul 2013 20:44:15 GMT

I might be missing it, but I looked around the VBA locals and couldn't find material for the Derived part.

F8 through this code and look at locals (View > Locals Window)

Normally you'd find it under the Definition section...

Public Sub FindDer()
    Dim oDoc As PartDocument
    Set oDoc = ThisApplication.ActiveDocument
    Dim oDerPartComp As DerivedPartComponent
    Set oDerPartComp = oDoc.ComponentDefinition.ReferenceComponents.DerivedPartComponents.Item(1)
    MsgBox ("Found " & oDerPartComp.name)
End Sub

Re: derived part material

Anonymous — Thu, 18 Jul 2013 02:32:37 GMT

Public Sub Derived_Material()
    Dim oPartDoc As PartDocument
    Set oPartDoc = ThisApplication.ActiveDocument
    
    Dim oderivedPart As DerivedPartComponent
    Set oderivedPart = oPartDoc.ComponentDefinition.ReferenceComponents.DerivedPartComponents.Item(1)
    
    Dim oRefPart As PartDocument
    Set oRefPart = oderivedPart.ReferencedDocumentDescriptor.ReferencedDocument
    
    Dim oRefPartDef As PartComponentDefinition
    Set oRefPartDef = oRefPart.ComponentDefinition
            
    Dim oMaterial As Material
    Set oMaterial = oRefPartDef.Material
    
    MsgBox (oMaterial.Name)
End Sub

Re: derived part material

jdkriek — Thu, 18 Jul 2013 12:47:42 GMT

That's interesting; the locals never show access to the material. I had originally assumed that it was accessed the same way as any other part, but Intellisense never picked it up and locals never dropped down to that scope in the definition.

Re: derived part material

Anonymous — Thu, 18 Jul 2013 17:53:15 GMT

>>>jd & sassen....

thank you guys....

works perfectly....

Re: derived part material

Formsprag — Thu, 20 Feb 2020 19:56:41 GMT

I see this post was solved in 2013, is it still applicable in 2020? I get an error when I try in to 2020. Any input would be helpful!

thanks

Re: derived part material

Curtis_Waguespack — Thu, 20 Feb 2020 20:04:56 GMT

Hi @Formsprag

I did a quick test with Inventor 2020.

I ran this on a derived part and it showed me the material of the part from which it was derived without issue.

Just to confirm, the part referenced in your derived part is a part file rather than an assembly, right?

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

Re: derived part material

Formsprag — Thu, 20 Feb 2020 21:08:22 GMT

Yes it is a part file.

Here's the error I get.....

Re: derived part material

Curtis_Waguespack — Thu, 20 Feb 2020 21:34:50 GMT

Hi @Formsprag

Ahh, okay the example posted in this thread was authored for VBA, so a bit of reformatting is need to run it in iLogic

Firstly, you can do a search for "Set" and just replace it with nothing, and then secondly you can just remove the "Sub..." and "End Sub" lines like this or make the Sub line read "Sub Main"

so basically here are two versions that will run via ilogic:

Public Sub Main
    Dim oPartDoc As PartDocument
    oPartDoc = ThisApplication.ActiveDocument
    
    Dim oderivedPart As DerivedPartComponent
    oderivedPart = oPartDoc.ComponentDefinition.ReferenceComponents.DerivedPartComponents.Item(1)
    
    Dim oRefPart As PartDocument
    oRefPart = oderivedPart.ReferencedDocumentDescriptor.ReferencedDocument
    
    Dim oRefPartDef As PartComponentDefinition
    oRefPartDef = oRefPart.ComponentDefinition
            
    Dim oMaterial As Material
    oMaterial = oRefPartDef.Material
    
    MsgBox (oMaterial.Name)
End Sub

    Dim oPartDoc As PartDocument
    oPartDoc = ThisApplication.ActiveDocument
    
    Dim oderivedPart As DerivedPartComponent
    oderivedPart = oPartDoc.ComponentDefinition.ReferenceComponents.DerivedPartComponents.Item(1)
    
    Dim oRefPart As PartDocument
    oRefPart = oderivedPart.ReferencedDocumentDescriptor.ReferencedDocument
    
    Dim oRefPartDef As PartComponentDefinition
    oRefPartDef = oRefPart.ComponentDefinition
            
    Dim oMaterial As Material
    oMaterial = oRefPartDef.Material
    
    MsgBox (oMaterial.Name)

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

Re: derived part material

Formsprag — Thu, 20 Feb 2020 21:37:39 GMT

Both ways worked perfectly! Thanks!

Could the code be tweaked so it would physically match the material from the parent rather the just display the parent in a message box?

Re: derived part material

bradeneuropeArthur — Fri, 21 Feb 2020 08:14:24 GMT

Hi,

You could vote one of my ideas in the idea station:

Derive I-properties!

Regards,

Re: derived part material

Curtis_Waguespack — Fri, 21 Feb 2020 15:12:07 GMT

@Formsprag wrote:

Both ways worked perfectly! Thanks!

Could the code be tweaked so it would physically match the material from the parent rather the just display the parent in a message box?

Hi @Formsprag

I think this should do it.

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

Dim oPartDoc As PartDocument
oPartDoc = ThisApplication.ActiveDocument

Dim oderivedPart As DerivedPartComponent
oderivedPart = oPartDoc.ComponentDefinition.ReferenceComponents.DerivedPartComponents.Item(1)

Dim oRefPart As PartDocument
oRefPart = oderivedPart.ReferencedDocumentDescriptor.ReferencedDocument

Dim oRefPartDef As PartComponentDefinition
oRefPartDef = oRefPart.ComponentDefinition
        
Dim oMaterial As Material
oMaterial = oRefPartDef.Material

Dim sMaterial As String
sMaterial = oMaterial.Name

iProperties.Material = sMaterial

Re: derived part material

Formsprag — Fri, 21 Feb 2020 16:04:37 GMT

That worked perfect! Thanks Curtis

Is there anyway to trigger the rule if the part is derived and ignored if not derived?

I tried to simply use the Event Triggers hoping the rule would be ignored if it didn't detect the parent file.

Thanks

Re: derived part material

Curtis_Waguespack — Fri, 21 Feb 2020 16:43:31 GMT

Hi @Formsprag

This will catch the error when there is no derived component reference and just exit the rule, so the while it will still be triggered, the rule wont error out.

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

Dim oPartDoc As PartDocument
oPartDoc = ThisApplication.ActiveDocument

Dim oderivedPart As DerivedPartComponent
Try
oderivedPart = oPartDoc.ComponentDefinition.ReferenceComponents.DerivedPartComponents.Item(1)
Catch
	Return 'exit rule
End Try

Dim oRefPart As PartDocument
oRefPart = oderivedPart.ReferencedDocumentDescriptor.ReferencedDocument

Dim oRefPartDef As PartComponentDefinition
oRefPartDef = oRefPart.ComponentDefinition
        
Dim oMaterial As Material
oMaterial = oRefPartDef.Material

Dim sMaterial As String
sMaterial = oMaterial.Name

iProperties.Material = sMaterial

Re: derived part material

Formsprag — Fri, 21 Feb 2020 17:37:06 GMT

Perfect! Thanks for your help....