---

Hallo Experten,
bin zur zeit an meiner Diplomarbeit, mit dem Thema Parametriesierung von Zylinderkolben. Habe es auch soweit fertig. Nun muß ich mit VB mit dem ich noch nie gearbeitet habe eingabemasken für eine optische Verschönerung erstellen. Die Eingabemasken zu erstellen ist ja nun kein Problem, aber ich weiss jetzt nicht wie ich auf einen bereits vorhandenen Parameter in dem Strukturbaum zugreifen kann. Das Heisst gibt der Benutzer in der Eingabemaske für die Gesamtlänge ein Wert ein so soll der vorhandene Parameter im Strukturbaum diesen Wert übernehmen und damit arbeiten. Ich benötige daher also das Befehl bzw. den Code in VB dafür.

Janiiii

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

---

Hallo Jan24

hilft Dir das hier weiter?

Sub Parameter_erzeugen()
Set part1 = CATIA.ActiveDocument.Part
Set parameters1 = part1.Parameters

Name = "Bezeichnung des Parameters"
Wert = InputBox("Bitte Wert eingeben")
Dim Laenge As Length
Set Laenge = parameters1.CreateDimension(Name, "LENGTH", Wert)

part1.Update

End Sub

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

---

VB_Problem.GIF

Hallo K71,
dieses Code führt doch dazu das ein neuer Parameter erzeugt wird oder nicht???
Ich möchte aber auf ein vorhandenes Parameter zugreifen. Schicke ein  screenshot an einem einfachen Bsp. wo man mein Problem besser verstehen kann. Da sieht man das ich drei Parameter im strukturbaum habe : Breite=150 mm,Hohe=100 mm , Tiefe=20 mm jetzt öffnet sich die  Eingabemaske:"UserForm1". Hier kann nun der Benutzer neue eingaben machen, gibt er nun für die Höhe 200 mm ein so soll dieser Wert für den Parameter im Strukturbaum übernommen werden.

Jan

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

---

Habe vergessen zu schreiben das er diese änderunegn dann ausführen soll. Wenn der Button Berechnen gedrückt wird
DAnke

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

---

Hallo Jan24,

tut mir leid, daß ich dir meine Antwort nicht ganz geholfen hat.
Wer lesen kann ist deutlich im Vorteil!

Wenn Du bereits bestehende Parameter ändern willst, solltest du mal folgendes testen.
Leider kenn ich mit mit UserForm1 nicht aus, sollte aber eigentlich kein Problem darstellen, den Parameter "Eingabe" nicht durch eine Inputboxbox sondern über eine UserForm zu befüllen.
Param.Item("Breite").Value

Sub Parameter()

Set part1 = CATIA.ActiveDocument.Part
Set Param = part1.Parameters.RootParameterSet.DirectParameters

Eingabe = InputBox("Bitte Wert eingeben")

Param.Item("Breite").Value = Eingabe

part1.Update

End Sub

Schöne Grüße
Konrad

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

---

Hallo Jan,

ich habe dir eine Nachricht geschickt. Schau mal bitte in deinem Postfach nach.

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

---

Hallo Konrad
tut mir leid damit schaffe ich es leider auch nicht.
Was ich aber auch nicht verstehe wiese fängt das Code mit Sub Parameter() an. Bei mir muss es mit dem Befehl
Private Sub CommandButton1_Click() anfangen. Also wenn der Button geklickt wird soll er diese änderung durchführen.
und
Hallo walterwerner was meinst du mit in meinem Postfach wo soll denn mein Postfach sein. da ich hier neu bin weiss ich nicht genau was du meinst und konnte hier auch sowas in der Art nicht finden

Danke
Jan

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

---

pm.gif

Hallo Jan,

geh mal ins Hauptmenu des CATIA V5 Forums und schau mal ganz links. Da gibts einen "PM" Button, der dich ins Postfach bringt (s. Anhang). Rechts vor dem PM Button blinkt wahrscheinlich noch ein Text "Neue Nachricht" oder sowas. Allerdings nur wenn du auch eingelogt bist.

Gruß
Walter

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

---

Hallo Jan,

wie gesagt mit UserForms hab ich bis dato nicht gearbeitet.
Ich hab einfach mal eine Userform kreirt mit einem Eingabefeld und einer Schaltfläche:

Private Sub CommandButton1_Click()

Set part1 = CATIA.ActiveDocument.Part
Set Param = part1.Parameters.RootParameterSet.DirectParameters

Eingabe1 = TextBox1

Param.Item("Breite").Value = Eingabe1

part1.Update

End Sub

Das Problem ist, daß die Änderung am Parameter "Breite" erst nach Beendigung der Userform übernommen werden.
Aber vielleicht hat hierzu ja jemand noch eine Idee.

Schöne Grüße
Konrad

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

---

Es Klapptttttttttttttttttttttt 
Danke konrad ich war schon richtig verzweifelt diese Code war genau das was ich gesucht habe.
In den Emails die ich bekomme steht immer:" Wenn Ihnen die Antwort oder der Beitrag von k71 geholfen hat, würde er oder sie sich sicherlich über Ihre Unities freuen! " wie geht das

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

---

forum_061017_1.jpg

Hallo Jan24,

Zitat:

---

In den Emails die ich bekomme steht immer:" Wenn Ihnen die Antwort oder der Beitrag von k71 geholfen hat, würde er oder sie sich sicherlich über Ihre Unities freuen! " wie geht das

---

ist das so schwer zu verstehen? :

Einfach beim "Beitrag" die entsprechende Anzahl wählen (JavaScript einschalten/erlauben!!!) und fertig!

mfg,
Lusilnie

------------------

Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

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