---

Wenn ja wie?

------------------
Schönen Tach' noch und immer nen guten Tropfen im Glas wünscht tempranillo 70

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

---

Hi,

natürlich kannst Du mit iLogic auch die Ausführung eines VBA-Makros anwerfen. Dort kannst Du dann ein iProperty anlegen, falls es nicht existiert.

Eine Möglichkeit ist die, auf Basis dieses VBA-Codes - etwas umändern und es sollte funktionieren:

Code:

---

Public Sub Property_setzen(oDoc As Document, sPropName As String, vPropValue As Variant)
' Belegt eine Property mit einem Wert.
' Ist die Property nicht vorhanden, so wird sie angelegt.

    ' Obtain the PropertySets collection object
    Dim oPropSets As PropertySets
    Set oPropSets = oDoc.PropertySets

 
    Dim bPropertyDa As Boolean
    Dim oProp As Property
   
    bPropertyDa = False
   
    On Error Resume Next
   
    ' Iterate through all the PropertySets one by one using for loop
    ' and changing its value if found
    Dim oPropSet As PropertySet
    For Each oPropSet In oPropSets
   
        For Each oProp In oPropSet
            'Debug.Print oProp.Name
            If oProp.name = sPropName Then
                oProp.Value = vPropValue
                bPropertyDa = True
                Exit For
            End If
        Next
       
    Next
   
 
    'Property anlegen und Wert eintragen
   
    If Not bPropertyDa Then
        oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Add vPropValue, sPropName
        'oDoc.PropertySets.Item("User Defined Properties").Add vPropValue, sPropName
    End If
   
    On Error GoTo 0
 
End Sub

---

Die Regel dazu könnte dann so lauten:

Code:

---

InventorVb.RunMacro("projectName", "moduleName", "macroName")

---

Also würde ich den Namen des iProps mal erst fest in dem VBA-Code verdrahten.

------------------
Gruß Lothar

-----------------------------------------------------
Wir unterstützen die Arbeit der
- Rettungshundestaffel des DRK Viersen

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