---

hallo, bin noch neu im Programmieren mit VBA und stelle deshalb hoffentlich eine für euch einfach zu beantwortende Frage:

Möchte das der user in einem Form eine Zahl eingibt, die ich dann an einen Parameter in Catia weitergebe(nach Prüfung auf Richtigkeit).

Bin euch schon jetzt unendlich dankbar!

MfG

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

---

Was heisst denn auf Prüfung von Richtigkeit ??? welche Prüfung muss da durchlauffen werden, bzw. was willst du prüfen.

Wenn nur der Wert weitergegeben werden soll, dann ist es nciht schwierig.

Erstelle eine Form (UserForm) ein Textfeld (Textfeld1) und einen CommandButton(CommandButton1).

Code:

---

Private Sub CommandButton1_Click()

Dim CATIA as Object

Set CATIA = GetObject(,"CATIA.Application") 'Wenn CATIA schon läuft ansonsten CreateObject benutzen

Dim mydoc as Document
Set mydoc = CATIA.ActiveDocument

dim mypart as Part
Set mypart = mydoc.Part

dim params as Parameters
Set params = mypart.parameters

dim StringParameter as StrParam
Set StringParameter = params.Item("Wie der Parameter heisst")

StringParameter.Value = Textfeld1.Text

End Sub

---

So das wäre mal ein Blindflug, müsste aber klappen. Dieser Code bezieht sich jetzt auf ein Part und einen String-Parameter.

Viel Erfolg

------------------
Wenn alle Stricke reissen, nehm ich ein Drahtseil

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