---

Hallo CAD-Community,

ich komme bei einem (wahrscheinlich kleinem) Problem nicht weiter.
Und zwar will ich in einem Bauteil oder einer Baugruppe überprüfen ob ein Parameter vorhanden ist; wenn JA dann soll dieser ein Exportparameter sein und wenn nicht vorhanden, soll er zuerst erstellt und dann als Exportparameter gesetzt sein.

Hier mein Code bis jetzt:

Code:

---

Option Explicit
Public Sub Parameter()

Dim oDoc As Inventor.Document
Set oDoc = ThisApplication.ActiveDocument

Dim oParams As Inventor.Parameters
Set oParams = oDoc.ComponentDefinition.Parameters
Dim oparam As Parameter

For Each oparam In oParams.UserParameters

    If oparam.Name = "L" Then
        oParams.UserParameters.item("L").ExposedAsProperty = True
        Exit For

    Else
        oParams.UserParameters.AddByValue "L", 0, kMillimeterLengthUnits
        oParams.UserParameters.item("L").ExposedAsProperty = True
        Exit For

    End If
Next
End Sub

---

Ich hoffe Ihr könnt mir schnell helfen.

Vielen Dank im voraus.

MfG,
Joscha

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

---

Hallo

Ohne den Code getestet zu haben, wo ist das Problem? Auf den ersten sehe ich keinen Fehler.
Außer das es ein Problem geben könnte mit der Deklaration von oDoc als Document. Das könnte zu allgemein sein, da Zeichnungen keine Parameter kennen.

------------------
MfG
Ralf

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

---

Wie gefällt dir das ?

Wenn noch kein Userparameter erstellt wurde erst ein "Dummy" erstellen, dann funktioniert es bestens :-)

Code:

---

Public Sub Parameter()

Dim oDoc As Inventor.Document
Set oDoc = ThisApplication.ActiveDocument

Dim oParams As Inventor.Parameters
Set oParams = oDoc.ComponentDefinition.Parameters
Dim oparam As Parameter

If oParams.UserParameters.Count = 0 Then

      oParams.UserParameters.AddByValue "dummy", 0, kMillimeterLengthUnits
        oParams.UserParameters.Item("dummy").ExposedAsProperty = False
End If

For Each oparam In oParams.UserParameters

    If oparam.Name = "L" Then
        oParams.UserParameters.Item("L").ExposedAsProperty = True
        Exit For

    Else
        oParams.UserParameters.AddByValue "L", 0, kMillimeterLengthUnits
        oParams.UserParameters.Item("L").ExposedAsProperty = True
        Exit For

    End If
   
Next

End Sub

---

Gruß
Berno

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

---

Hallo Ralf,

das Problem ist, dass das Macro nichts macht. Weder einen Parameter anleget noch eine Fehlermeldung ausgibt.

Wenn ich jetzt den fett markierten Teil im Code weg lasse funktioniert es. (teilweise)
Nur dann durchsucht er jede Art von Parametern (Modellparameter, Referenzparameter,etc) und jedes mal wenn er keinen Parameter in jener Kategorie findet erzeugt er einen neuen (L_1, L_1_2, etc).
Aber ich will, dass er ja nur die Userparameter durchsucht.

Darum habe ich bei dem vorherigen Code das .UserParameters hinzugefügt.

Code:

---

Option Explicit
Public Sub Parameter()

Dim oDoc As Inventor.Document
Set oDoc = ThisApplication.ActiveDocument

Dim oParams As Inventor.Parameters
Set oParams = oDoc.ComponentDefinition.Parameters
Dim oparam As Parameter

For Each oparam In oParams.UserParameters

    If oparam.Name = "L" Then
        oParams.UserParameters.item("L").ExposedAsProperty = True
        Exit For

    Else
        oParams.UserParameters.AddByValue "L", 0, kMillimeterLengthUnits
        oParams.UserParameters.item("L").ExposedAsProperty = True
        Exit For

    End If
Next
End Sub

---

Ich hoffe ich hab mich verständlich ausdrücken können 

MfG,
Joscha

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

---

Hallo

Hab den Code jetzt mal ausprobieren können. Im 2014er funktioniert der problemlos. Bis auf das lauter fortlaufend numerierte L-Parameter angelegt werden, bis er L findet.
Kannst du mal den hier probieren? Und wenn der auch nichts macht, setz mal einen Haltepunkt möglichst weit am Anfang, geh mit F8 schrittweise durch und prüf mal ob die Variablen alle korrekt gefüllt werden.

Code:

---

Option Explicit
Public Sub Parameter()

Dim oDoc As Inventor.Document
Set oDoc = ThisApplication.ActiveDocument

Dim oParams As Inventor.Parameters
Set oParams = oDoc.ComponentDefinition.Parameters
Dim oparam As Parameter
Dim bFound As Boolean

For Each oparam In oParams.UserParameters
    If oparam.Name = "L" Then
        bFound = 1
    End If
Next

If bFound Then
    Set oparam = oParams.UserParameters.Item("L")
Else
    Set oparam = oParams.UserParameters.AddByValue("L", 0, kMillimeterLengthUnits)
End If

oparam.ExposedAsProperty = True

End Sub

---

------------------
MfG
Ralf

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

---

Super Danke!!

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