topic Change display information at message prompt in Inventor Programming Forum

Change display information at message prompt

K.TRYFONIDIS — Fri, 21 Jan 2022 09:37:36 GMT

Hello everyone, new one here. First post.

I am trying to code some things for my company and i am using different forms to fill in iproperties.

The case is that i want to set 3 custom iproperties but in the display box i dont want to show the name of the variables
i would like to show a custom text defined by me.

This is my code

customPropertySet = ThisDoc.Document.PropertySets.Item("Inventor User Defined Properties")

Dim iprop(3) As String
iprop(1) = "DESCRIPTION"
iprop(2) = "NyfanID"
iprop(3) = "NyfanCurrentRev"

For k = 1 To 3
Dim prop(k) As String
    Try
        prop(k) = iProperties.Value("Custom", iprop(k))
    Catch
        'Assume error means not found
        customPropertySet.Add("", iprop(k))
        iProperties.Value("Custom", iprop(k)) = "null"
    End Try
Next

For j = 1 To 3
    Dim var(j) As String
    If iProperties.Value("Custom", iprop(j)) = "null" Then
        var(j) = InputBox("ΣΥΜΠΛΗΡΩΣΕ ΤΙΜΗ ΓΙΑ: " & iprop(j), "ΚΑΤΑΧΩΡΗΣΗ ΤΙΜΩΝ", "")
        iProperties.Value("Custom", iprop(j)) = var(j)
    End If
Next

And this is the message prompt:

Where instead of Description i would like to say something else like "Περιγραφή" but i want to keep the variable as

description.

is there any way to do this? I am guessing i should "Break" the for command and do it somehow individually.

Re: Change display information at message prompt

vpeuvion — Fri, 21 Jan 2022 13:02:36 GMT

Hi, you can try this with Dictionary(Of String,String).

customPropertySet = ThisDoc.Document.PropertySets.Item("Inventor User Defined Properties")

Dim iprop As New Dictionary(Of String, String)
iprop.add("DESCRIPTION","YourName1")
iprop.add("NyfanID","YourName2")
iprop.add("NyfanCurrentRev","YourName3")

For Each Pair As KeyValuePair(Of String,String) In iprop
For k = 1 To iprop.count
Dim prop(k) As String
    Try
        prop(k) = iProperties.Value("Custom", Pair.key)
    Catch
        'Assume error means not found
        customPropertySet.Add("", Pair.key)
        iProperties.Value("Custom", Pair.key) = "null"
    End Try
Next

For j = 1 To iprop.count
    Dim var(j) As String
    If iProperties.Value("Custom", Pair.Key) = "null" Then
        var(j) = InputBox("ΣΥΜΠΛΗΡΩΣΕ ΤΙΜΗ ΓΙΑ: " & Pair.Value, "ΚΑΤΑΧΩΡΗΣΗ ΤΙΜΩΝ", "")
        iProperties.Value("Custom", Pair.key) = var(j)
    End If
Next
Next

Hope this can help you.

Vincent.

Re: Change display information at message prompt

K.TRYFONIDIS — Fri, 21 Jan 2022 13:59:46 GMT

All i had to do is put bellow variable declaration this:

Dim msg(3) As String
msg(1) = "desired msg1"
msg(2) = "desired msg2"
msg(3) = "desired msg3"

Re: Change display information at message prompt

WCrihfield — Fri, 21 Jan 2022 14:11:22 GMT

Hi @K.TRYFONIDIS. Just so you are aware...when you create that Array of String using 'msg(3)', you are actually creating a 4 element array, not a 3 element array, because array's are zero based (first element is at zero position, not 1). Since you are using For 1 To 3, this is not producing any problems, but if you used a For Each loop, the first element (msg(0)) would not contain a value, the way you coded it.

Re: Change display information at message prompt

K.TRYFONIDIS — Fri, 21 Jan 2022 14:15:30 GMT

aha! very helpful to know! Thanks!