---

Hallo Makroprogrammierer,
ich versuche gerade, mit Hilfe eines Makros eine Benutzerdefinierte Eigenschaft hinzuzufügen. Im Objektkatalog habe ich die folgende Syntax gefunden:

Function Add(Name As String, Value) As Object
    Mitglied von SolidEdgeFileProperties.Properties
    Add a new property (custom only)

Leider klappt es nicht.
Kann mir jemand weiterhelfen?
Danke,
HB

Private Sub AddProp_Click()
Dim objApp As Object
Dim objDoc As Object
Dim objProp As Object
Dim CustomPropSet As Object

Set objApp = GetObject(, "SolidEdge.Application")
Set objDoc = objApp.ActiveDocument
Set objProp = objDoc.Properties
Set CustomPropSet = objProp("Custom")
' Eigenschaft hinzufügen:

????????????????????

' Eigenschaftsnamen listen:
For i = 1 To CustomPropSet.Count
      Propname = CustomPropSet(i).Name
      Debug.Print Propname
Next i

CustomPropSet.Save
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objProp = Nothing
    Set CustomPropSet = Nothing
End Sub

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

---

Servus HBPeters,

ich verwende zum Schreiben von benutzerdefinierten Properties folgenden Code:

Private Sub schreibePropertie(ByRef SeDokument As Object, _
            ByVal sPropertySet As String, ByVal sPropertyName As String, ByVal sWert As String)
    Dim PropSets As SolidEdgeFramework.PropertySets
    Dim Properties As SolidEdgeFramework.Properties
    Err.Clear
    On Error Resume Next
        Set PropSets = SeDokument.Properties                'Dateieigenschaften referenzieren
        Set Properties = PropSets(sPropertySet)            'richtige Eigenschaftenseite öffnen
        Properties.Item(sPropertyName).Value = sWert        'Wert zu weisen
        If Err Then                                        'Wenn ein Fehler aufgetreten ist
            Err.Clear                                      'Fehler löschen und ins Protokoll
            Call debugTools.logInfo("schreibePropertie: Property """ + sPropertyName + """ ist nicht vorhanden", mrLogArtWarnung)
            Call Properties.Add(sPropertyName, sWert)
            If Err Then
                Err.Clear
                ....
            End If
        End If
    On Error GoTo 0
    Set Properties = Nothing
    Set PropSets = Nothing
End Sub

Ich hoffe das hilft Dir weiter.

Jürgen

------------------
50* SEV14SR12, 4* SEV15SR1

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

---

Hallo Jürgen,
es hat ein bisschen gedauert ,bis ich mich durch die Routine "durchgebissen" habe, aber sie macht genau das was ich ich gesucht habe.
Besten Dank dafür.
HB 

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

---

Hallo Herr Peters,

Das Problem ist ja bereit gelöst. Aber trotzdem als Tipp.
Das FSO (FileSystemObject) ist für den Zugriff auf die Eigenschaften, ohne das die Datei in SE geöffnet ist. Ich müsste aber erst mal nachsehen, ob man dabei auch schreibzugriff hat.

Der Zugriff auf Eigenschaften für geöffnete Dokumente wurde ja bereits erläutert.

Und nicht so viel arbeiten im Urlaub.

Viele Grüße

------------------
APeters@BSS-Online.de

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