Material Library and changing appearances

[NachoShaw]

Hi

I use a material library and a separate appearance library. First, can I just use 1 file that has both material and appearance or is it best to have separate files?

Is there a handy code solution that can list all of the materials from my library (NachoMatLib) so that I can put it in a listbox?


Thanks

Nacho

[bradeneuropeArthur]

        ListView1.Items.Clear()

        Dim oapp As Inventor.Application
        oapp = _InvApp
        Dim oCurrentDoc As Document

        Dim oItem As ListViewItem ' ListItem

        Dim IM As Integer
        Dim IMMAX As Integer
        IMMAX = oapp.ActiveDocument.Materials.Count
        For IM = 1 To IMMAX


            oCurrentDoc = oapp.ActiveDocument

            Dim oDrawDoc As Document
            oDrawDoc = oapp.ActiveDocument

            'get the "Design Tracking Properties"
            Dim odrawInvDsgnTrcPrpPropSet As PropertySet
            odrawInvDsgnTrcPrpPropSet = oDrawDoc.PropertySets.Item("Design Tracking Properties")


            Dim odrawInvDsgnTrcPrpVolumePropset As [Property]
            odrawInvDsgnTrcPrpVolumePropset = odrawInvDsgnTrcPrpPropSet.Item(39)


            oItem = ListView1.Items.Add(oapp.ActiveDocument.Materials.Item(IM).Name)

        Next

or better you use a combobox:

 ListView1.Items.Clear()
        ComboBox1.Items.Clear()
        Dim oapp As Inventor.Application
        oapp = _InvApp
        Dim oCurrentDoc As Document

        Dim IM As Integer
        Dim IMMAX As Integer
        IMMAX = oapp.ActiveDocument.Materials.Count
        For IM = 1 To IMMAX

            'Set oApp = ThisApplication
            oCurrentDoc = oapp.ActiveDocument

            Dim oDrawDoc As Document
            oDrawDoc = oapp.ActiveDocument

            'get the "Design Tracking Properties"
            Dim odrawInvDsgnTrcPrpPropSet As PropertySet
            odrawInvDsgnTrcPrpPropSet = oDrawDoc.PropertySets.Item("Design Tracking Properties")


            Dim odrawInvDsgnTrcPrpVolumePropset As [Property]
            odrawInvDsgnTrcPrpVolumePropset = odrawInvDsgnTrcPrpPropSet.Item(39)


            ComboBox1.Items.Add(oapp.ActiveDocument.Materials.Item(IM).Name.ToString)
        Next

[NachoShaw]

Hi

Thanks for the reply. This makes a list of materials in the active document whereas I need to get a full list of the materials in the current library.

I'm going to try it in a while 🙂


Thanks

[bradeneuropeArthur]

This is a list of the library. that are used by the document.
So they are not in the document yet....
Think this is still what you need.

regards,

[NachoShaw]

ok cool, appreciate it. Is there a method of getting the image path to the appearance also and the color (when no image is used)?

cheers