---

Hallo zusammen,

habe verzweifelt gesucht aber bis jetzt nicht's brauchbares gefunden.

Wie kann ich benutzerdefinierte Eigenschaften (Inventor User Defined Properties) per VBA in ein Modell hinzufügen?

Vielen Dank für die Antworten.

MfG Tutti

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

---

Hätte ich mal anders gesucht. Folgenden Code gefunden, der auch funzt.

Sub User_Property_hinzufügen()

Code:

---

' Get the active document.
Dim invDoc As Document
Set invDoc = ThisApplication.ActiveDocument
' Get the user defined (custom) property set.
Dim invCustomPropertySet As PropertySet
Set invCustomPropertySet = invDoc.PropertySets.Item("Inventor User Defined Properties")
' Declare some variables that will contain the various values.
Dim strText As String
Dim dblValue As Double
Dim dtDate As Date
Dim blYesOrNo As Boolean
' Set values for the variables.
strText = "Some sample text."
dblValue = 3.14159
dtDate = Now
blYesOrNo = True
' Create the properties.
Dim invProperty As Property
Set invProperty = invCustomPropertySet.Add(strText, "Test Test")
Set invProperty = invCustomPropertySet.Add(dblValue, "Test Value")
Set invProperty = invCustomPropertySet.Add(dtDate, "Test Date")
Set invProperty = invCustomPropertySet.Add(blYesOrNo, "Test Yes or No")

End Sub

---

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