---

Hallo Kollegen,

ich würde gerne die Daten der iProperties in Pro.File übernehmen.
Dazu brauche ich die genauen Namen der Parameter.
Gibt es dazu irgendwo eine Liste wie die alle heißen?

Vielen Dank und Gruß

CAD-M

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

vielleicht hift Dir das hier weiter:

Code:

---

        Dim oInventorApp As Inventor.Application
        oInventorApp = System.Runtime.InteropServices.Marshal.GetActiveObject("Inventor.Application")
        Dim oDoc As Inventor.Document
        oDoc = oInventorApp.ActiveDocument
        Dim oPropSets As Inventor.PropertySets
        oPropSets = oDoc.PropertySets
        Dim oProp As Inventor.Property
        Dim oPropSet As Inventor.PropertySet

        For Each oPropSet In oPropSets
            'Debug.Print("-------------------------------------------------------------------------------------")
            MsgBox(oPropSet.DisplayName & " | " & oPropSet.Name & " | " & oPropSet.InternalName)
            'Debug.Print("-------------------------------------------------------------------------------------")
            For Each oProp In oPropSet
                On Error Resume Next
                MsgBox(oProp.DisplayName & " | " & oProp.Name & " =" & oProp.Value)

            Next
        Next

---

Ist ein Visual Basic 2010 Express Code

Gruß
Peter

[Diese Nachricht wurde von Trilemma am 08. Jun. 2017 editiert.]

[Diese Nachricht wurde von Trilemma am 08. Jun. 2017 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP