---

GF-BE01092017549.ipt 560506_ELGR-TB-45-400-0H-ST-E-AD-FR_1_5E_C5DION.ipt

Hallo zusammen!

Ich kämpfe derzeit ein bisschen mit ILogic (deshalb auch schon die ein oder andere Frage in anderen Beiträgen).
Nun habe ich eine ILogic gebaut, die mir in einer Datei alle benutzerdefinierten IProperties löscht, die nicht vorher im Code definiert wurden, bzw. diese dann auch anlegt, wenn sie noch nicht existieren.
(Ok, der Code ist grauslig aber ohne Eingabehilfe selbst schreiben kann ich nicht, und die ILogic Hilfe ist leider nicht so wirklich hilfreich. Also muss ich irgendwie bestehendes aus dem Netz kopieren)

Mein Problem ist, dass der Code (eingefügt in zwei unterschiedliche IPTŽs) einmal läuft und einmal abbricht mit:
Fehler in Regel: Regel0 in Dokument: GF-BE01092017549.ipt

Falscher Parameter. (Ausnahme von HRESULT: 0x80070057 (E_INVALIDARG))

Meine Frage nun: Wieso tut der das?

Der Code lautet:

Code:

---

'define list of custom properties to keep

Dim MyArrayList As New ArrayList

MyArrayList.add("Abmessung")

MyArrayList.add("Baugruppen-Name")

MyArrayList.add("Bemerkung")

MyArrayList.add("Werkstoff")

'define custom property collection

oCustomPropertySet = ThisDoc.Document.PropertySets.Item("Inventor User Defined Properties")

'look at each property in the collection

For Each oCustProp In oCustomPropertySet

'check property name against the list you don't want to delete

If Not MyArrayList.Contains(oCustProp.Name)Then

'skip it

'Else

'delete the custom iProperty

oCustProp.Delete

End If

Next

Dim propertyName1 As String = "Abmessung"

Dim propertyName2 As String = "Baugruppen-Name"

Dim propertyName3 As String = "Bemerkung"

Dim propertyName4 As String = "Werkstoff"

customPropertySet = ThisDoc.Document.PropertySets.Item("Inventor User Defined Properties")

Try

          prop = customPropertySet.Item(propertyName1)

          prop = customPropertySet.Item(propertyName2)
 
  prop = customPropertySet.Item(propertyName3)

          prop = customPropertySet.Item(propertyName4)

Catch

      ' Assume error means not found

          customPropertySet.Add("", propertyName1)

          customPropertySet.Add("", propertyName2)
 
  customPropertySet.Add("", propertyName3)
 
  customPropertySet.Add("", propertyName4)

End Try

---

Um eine kleine Anregung wäre ich euch wie immer sehr dankbar!

Grüße,
Thomas

[Diese Nachricht wurde von Barbatoss am 27. Apr. 2016 editiert.]

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

---

Hallo Thomas,

du hast in deinem Try das Prop nicht definiert. So läuft der Code vermutlich gleich in das Catch rein, in dem er ja das iProp anlegen soll. Was natürlich nicht geht, wenn es schon existiert. Deshalb mal der Fehler und mal nicht. Wenn es nicht existiert, dann läuft der Code, wenn es existiert, dann steigt er aus.

------------------
MFG

Chris

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

---

Zitat:

---

Original erstellt von Chris 31:
Hallo Thomas,

du hast in deinem Try das Prop nicht definiert. So läuft der Code vermutlich gleich in das Catch rein, in dem er ja das iProp anlegen soll. Was natürlich nicht geht, wenn es schon existiert. Deshalb mal der Fehler und mal nicht. Wenn es nicht existiert, dann läuft der Code, wenn es existiert, dann steigt er aus.

---

Hallo Chris!

Vielen Dank für die schnelle Unterstützung!
Ich habe jetzt die Try/Catch Befehle für jeder IProperty einzeln eingefügt, damit scheine ich das Problem beseitigen zu können.
Der Code ist insgesamt nicht schön, aber er funktioniert :-)

Danke,
Thomas

Code:

---

Try
'set property value
oProp = oCustomPropertySet.Item(propertyName1)
Catch
' Assume error means not found so create it
oCustomPropertySet.Add("", propertyName1)
End Try

Try
'look for property
oProp = oCustomPropertySet.Item(propertyName2)
Catch
' Assume error means not found so create it
oCustomPropertySet.Add("", propertyName2)
End Try

Try
'look for property
oProp = oCustomPropertySet.Item(propertyName3)
Catch
' Assume error means not found so create it
oCustomPropertySet.Add("", propertyName3)
End Try

Try
oProp = oCustomPropertySet.Item(propertyName4)
Catch
' Assume error means not found so create it
oCustomPropertySet.Add("", propertyName4)
End Try

---

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