---

Hallo!

Vorab möcht ich erwähnen, das ich CATvb - Neuling bin!

Ich habe einen Parameter des Typs LENGHT erzeugt.

    Dim Parameter As Parameters
    Set Parameter = CATIA.ActiveDocument.Part.Parameters
       
    Dim BohrDurchm As Length, Massreihe As Length
    Set BohrDurchm = Parameter.CreateDimension("BohrDurchm", "LENGTH", 0#)

Der Wert, der anschließend in eine TextBox geschrieben wird soll nun anschließend dem Parameter zugewießen werden. (BohrDurchm .value = TextBox1). Leider gibt mir CATIA eine Fehlermeldung aus, wahrscheinlich weils es einen Konflikt mit dem Typ gibt (denn bei normalen Integer Variablen geht es).
Kann mir bitte jemand helfen?

Gruß Falk

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

---

korrigiere:

Bohrdurchm.value = TextBox1.value

geht nicht

Gruß Falk

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

---

Zitat:

---

Original erstellt von Falk H:
Dim BohrDurchm As Length, Massreihe As Length
    Set BohrDurchm = Parameter.CreateDimension("BohrDurchm", "LENGTH", 0#)

---

ich bin mir nicht sicher, aber kann es daran liegen, das ein Bohrdurchmesser kein 'length'-Wert ist?

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

---

Bohrdurchm ist ein rein fiktiver Name. Es geht darum, später den Parameter "Bohrdurchm" einer Variable zuzuweisen, aber vorher muss dieser selbst natürlich erstmal einen Wert bekommen.

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

---

Versuche es mal so:

BohrDurchm.Value = CDbl(TextBox1.Value)

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

---

Ich weiß jetzt, was für ein Problem ich habe.

Wie kann ich aus einer Sub auf ein Parameter zugreifen, welcher in einer anderen Sub erstellt wurde?

Danke
Falk

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

---

du muss den Parameter in der anderen Sub() Public machen, um sie ausserhalb der Sub() gültig zu haben
ala

Code:

---

Public Const pi As Double = 3.1415926535897932384626433832795028841972

---

ansonsten sind die Deklerationen immer nur Private = innerhalb der Sub gültig.

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

---

Hab´s rausbekommen!

Also erzeugt wird mit:

    'Listenobjekt Parameter
    Dim Parameter1 As Parameters
    Set Parameter1 = CATIA.ActiveDocument.Part.Parameters
   
    'Parameter erzeugen
    Dim BohrDurchm As Dimension
    Set BohrDurchm = Parameter1.CreateDimension("Bohrungsdurchmesser", "LENGTH", 0#)

und aufgerufen (in beliebiger Prozedur):

  CATIA.ActiveDocument.Part.Parameters.Item(i)

Wenn jemand weiß, wie das mit Konstruktionstabellen geht, wäre ich für eine kurze Info sehr dankbar, bevor Weihnachten komolett dahin ist.

Danke und noch schöne Feiertage
Falk

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

---

Ok, das war einfach!

    CATIA.ActiveDocument.Part.Relations.Item(1)

Aber das direkt in eine Zelle was reingeschrieben wird (z.B. ein SVerweis), das bekomme ich irgendwie nicht hin. Ich finde nicht die entsprechende Methode oder Eigenschaft der Klasse Relations dazu. Kann mir jemand helfen?

Danke
Falk

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