Change Material with vb.net doesen't work

[Anonymous]

Hi all,

I'm trying to set automaticly the Material in a mirrored sheetmetalpart. I whrote a VBA-code like:

...

Dim orefMat As String
orefMat = orefdoc.ComponentDefinition.Material.Name
Dim oMaterial As Material
Set oMaterial = odoc.Materials.Item(orefMat)
ocompdef.Material = oMaterial

this code worked. Now the next step is coding in vb.net and VisualStudio 2017.

I've tried the same method "ocompdef.Material = oMaterial" but in VS this doesen't work. In debugging-mode I got the message: Member not not found.

Thanks for helping

Greatings

Steffen

[HideoYamada]

Hello Steffen,

Use Material Assets instead of Materials.

This code works in VBA and will work VB.net.

Sub test()
    Dim partDoc As PartDocument
    Dim refDoc As PartDocument
    
    Set partDoc = ThisApplication.ActiveDocument
    Set refDoc = partDoc.ComponentDefinition.ReferenceComponents.DerivedPartComponents(1).ReferencedDocumentDescriptor.ReferencedDocument
        
    Dim newMaterialAsset As MaterialAsset
    
    ' This line will fail when the material asset already exists in partDoc.
    Set newMaterialAsset = refDoc.ActiveMaterial.CopyTo(partDoc)
    
    partDoc.ActiveMaterial = newMaterialAsset
End Sub

Open the part document which contains the derived part (mirror derived part), and run this.

Best regards,

=====

Freeradical

 Hideo Yamada

[bradeneuropeArthur · Accepted solution]

Hi,

Try this:

 Dim oInvActPartDoc As Inventor.PartDocument '= Nothing
        oInvActPartDoc = m_InventorApplication.ActiveDocument
        If Not oInvActPartDoc.DocumentType = Inventor.DocumentTypeEnum.kPartDocumentObject Then
            Exit Sub
        End If
		
		Dim orefMat As String
			orefMat = orefdoc.ComponentDefinition.Material.Name

        If Not oInvActPartDoc.ComponentDefinition.Material.Name = oInvActPartDoc.Materials.Item(orefMat).Name Then
            oInvActPartDoc.ComponentDefinition.Material = oInvActPartDoc.Materials.Item(orefMat)
        End If

[Anonymous]

Thanks, I found the error. 🤐

Many thanks for the quick response.

Greatings

Steffen