Define material-iProperty in VBA userform

[uw]

Hello!

I have designed a VBA-code which starts a userform with textboxes to fill in iProperties for the active project.

No problem so far.

But for defining the material-iProperty it would be perfect to have a combobox to select the material from the active material-database.

(To have an option for selecting the material-database would be great)

Thank you for any help you can offer!

Regards,

 Reinhard

[marcin_otręba]

Adding all mat librarys:

 For i = 1 To g_inventorApplication.AssetLibraries.Count
            mat_lib(i)=g_inventorApplication.AssetLibraries.Item(i).DisplayName
  Next

Adding materials from mat lib:

Dim assetLib As AssetLibrary
 assetLib = g_inventorApplication.AssetLibraries.Item("materialy")
For i = 1 To assetLib.MaterialAssets.Count
                      mats_inv(i) = assetLib.MaterialAssets.Item(i).DisplayName.ToString
            Next

[uw]

Hello.

Please be lenient with me, buit I'm far away from being an VBA-expert...

I tried following code (called by a combobox of a userform):

_______________________________________________

Private Sub ComboBox1_Change()

    Dim i As Integer
    Dim mat_lib(1 To g_inventorApplication.AssetLibraries.Count) As Variant

        For i = 1 To g_inventorApplication.AssetLibraries.Count
            mat_lib(i) = g_inventorApplication.AssetLibraries.Item(i).DisplayName
        Next
    UserForm1.ComboBox1.List = mat_lib()

End Sub

_______________________________________________

There is no error or warning, but the list is empty:

Even though there are material-libaries in my project:

Thank you for any help you can offer!

Regards,

 Reinhard

[marcin_otręba]

try:

Private Sub ComboBox1_Change()

    Dim i As Integer
    Dim mat_lib(g_inventorApplication.AssetLibraries.Count) As string

        For i = 1 To g_inventorApplication.AssetLibraries.Count
            mat_lib(i) = g_inventorApplication.AssetLibraries.Item(i).DisplayName
        Next
    UserForm1.ComboBox1.List = mat_lib()

End Sub

[uw]

Hello!

Thank you for your answer and your patience, but I'm affraid the solution is not working..

(Maybe I use your solution in a wrong way...)

In Inventor2019 I created a new ipt-file and with Alt+F11 I startet the VBA-environment.

I created a new UserForm with a ComboBox:

With a doubleclick on the ComboBox I started the code-environment and entered following code:

With F5 I tried to test the code, and the combobox was still empty:

Thank you for any help you can offer!

Regards,

 Reinhard

[marcin_otręba]

Replace g_inventorApplication with thisapplication.

Net post if aby error occur Please place screen with error message 

[uw]

Hello.

No error messages but also no changes in the ComboBox - it is still empty 

Regards

 Reinhard

[marcin_otręba]

hi,

Sorry i was writing from my mobile and focused on code, did't realise that you put code in wrong sub:

should bin in for initialize sub

try this instead:

Private Sub UserForm_Initialize()
    Dim i As Integer
    Dim mat_lib() As String
        For i = 1 To ThisApplication.AssetLibraries.Count
         ReDim Preserve mat_lib(i)
            mat_lib(i - 1) = ThisApplication.AssetLibraries.Item(i).DisplayName
         
        Next
    UserForm1.ComboBox1.List = mat_lib()


End Sub

End Sub

[uw]

Thank you very, very much!!!

It works:

But when I try to fill a ComboBox with the materials of a certain libary (e.g. "Inventor-Materialbibliothek")

with following code:

________________________________

Private Sub UserForm_Initialize()

Dim i As Integer
Dim assetLib As AssetLibrary

assetLib = g_inventorApplication.AssetLibraries.Item("Inventor-Materialbibliothek")

For i = 1 To assetLib.MaterialAssets.Count
mats_inv(i) = assetLib.MaterialAssets.Item(i).DisplayName.ToString
Next

End Sub

________________________________

I get following error-message:

Unfortunately (for you ) the message is in german.

It means something like "improper use of a property"

I hope you can help me one more time...

Thank you and have a nice evening!

Regards

 Reinhard