lbcad Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3833 Registriert: 15.02.2001 DELL Precision 7520 Win10Pro-64 Inventor mit Vault Professional 2024 --------------------- Während man es aufschiebt, verrinnt das Leben. Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)
|
erstellt am: 18. Jan. 2011 13:53 <-- editieren / zitieren --> Unities abgeben: Nur für tempranillo70
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 |