---

Hallo IV-Gemeine

Bin in der Makroprogrammierung ein absoluter Anfänger.
Ich will per Makro mehrere Benutzerdef. Propperties anlegen betrifft alt Bauteile u. Baugruppen dazu habe ich auch einen Code gefunden und angepasst das funktioniert. Jetzt mein Problem erwische ich ein Teil welches die Propperties schon hat bekomme ich einen Fehler.
Wie stelle ich es an zuerst zu prüfen ob die Propperties vorhanden sind wenn ja update wenn nein dann sollen sie anlegen werden

Mein Anfangscode:

Public Sub CreateCustomiProperty()
    ' Get the active document.
    Dim doc As Document
    Set doc = ThisApplication.ActiveDocument

    ' Get the custom property set.
    Dim customPropSet As PropertySet
    Set customPropSet = doc.PropertySets.Item( _
    "Inventor User Defined Properties")

    ' Create a new text property.
    Dim textValue As String
    textValue = "-"
    Call customPropSet.Add(textValue, "Bemerkung")
    textValue1 = ""
    Call customPropSet.Add(textValue, "Index")
    textValue1 = ""
    Call customPropSet.Add(textValue, "EuV")
    textValue1 = ""
    Call customPropSet.Add(textValue, "Zulieferer")
End Sub

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

---

Hallo Volker

Abfragen ob es das Ding schon gibt...
Hoffe dieser Code hilft dir!

'Masstab 2
  If dSeitenzahl >= 2 Then
    EE_Da = False
    For Each EE_Prop In oDoc.PropertySets(sIPropPfad)
      If EE_Prop.Name = "FirstViewScale:2" Then
        EE_Da = True
        Exit For
      End If
    Next
    If EE_Da Then
      oDoc.PropertySets(sIPropPfad).Item("FirstViewScale:2").Value = sMassstab2
    Else
      oDoc.PropertySets(sIPropPfad).Add EE_Text, "FirstViewScale:2"
      oDoc.PropertySets(sIPropPfad).Item("FirstViewScale:2").Value = sMassstab2
    End If
  End If

------------------
Grüsse, Toni

Rechtschreibefehler gehören dem findigen Finder

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

---

Hallo Toni

Danke für den Ansatz werde es ausprobieren.

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

---

Hallo Toni

habs mal versucht bin aber gescheitert.

Könntest Du mir den Codeschnippsel erklären verstehe gerade nicht
was ermachen soll.

Danke im voraus

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

---

Hallo Volker

Mit dem "For Each" wird überprüft ob es das IProp mit diesem Namen schon gibt.
Wenn ja wird mit dem If der neue Inhalt zugewiesen, wenn nicht (Else) wird das IProp erzeugt und anschliessend der Inhalt zugewiesen.
Das Schnipsel stammt aus einem VBA Skript mit welchem ich die jeweiligen Massstäbe der Erstansichten der verschiedenen Blätter einer Zeichnung (idw) herauslese und in die IProps übertrage.

------------------
Grüsse, Toni

Rechtschreibefehler gehören dem findigen Finder

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

---

Hallo Toni

Jetzt hab ich es verstanden

Danke

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

---

Das mit der ForEach ist doch überflüssig? Mit „On Error Resume Next“ vor deinem Versuch die Property zu erstellen, würde schon mal dein Makro nicht abstürzen wenn es die Property bereits gibt. Du kannst nach der Anweisung mit „If Err.Number <> 0“ prüfen ob es einen Fehler gab, und wenn ja (weil es die Property schon gibt), musst du eben nur noch den Wert für die Property setzen.

On Error in VBA

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools
FX64 LambdaSpect - Lichtsimulation mit Autodesk Inventor

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

---

Wie erwartet gibt es auch für dieses Problem eine Lösung vom Profi!
Danke für den Input! Schreibe mir das hiter die Ohren, wenn ich meine Makros das nächste Mal überarbeite!

------------------
Grüsse, Toni

Rechtschreibefehler gehören dem findigen Finder

[Diese Nachricht wurde von RODER am 30. Jan. 2013 editiert.]

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