---

Hallo,

ich suche eine Möglichkeit um bei laufendem Makro (VBA Userform Oberfläche) eine Catia Auswahl zu treffen (GeoSet). Bei einem CatiaScript oder VBScript funkt. alles super nur wenn ich eine geöffnete und laufende UserForm habe lässt mich die Oberflaeche nicht aus dem Programm "raus". Soll über einen Button funktionieren:
Button klicken > User soll GeoSet auswählen > Punkt in diesem GeoSet erstellen

Würde es vielleicht mit einem Sprung ins Modul funktionieren, dort die Eingabe geben lassen > Variable Speichern und wieder zurück in die UserForm springen oder gibt es eine andere Möglichkeit ?

Vielen Dank im vorraus

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

---

Moin compimento,

dein Klick-Funktion für deinen Button könnte wie folgt aussehen:

Code:

---

Private Sub MyButton_Click()
  Dim oSel 'As Selection
  Dim selTyp(0) 'As String
  Dim sState As String
 
 
  ' set type of the object to select
  selTyp(0) = "MyType"
 
  ' get selection
  Set oSel = CATIA.ActiveDocument.Selection
  oSel.Clear
 
  ' hide the window
  Me.Hide
  ' start user selection
  sState = oSel.SelectElement2(selTyp, "please select", False)
 
  ' set the selected value
  If sState = "Normal" Then
    'do something
  Else
    'do something else
  End If
 
  ' show window modeless
  Call Me.Show(vbModeless)
 
End Sub

---

Gruß
Proofin

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

---

Vielen dank
werds gleich mal probieren.

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

---

Hallo Combinento,

das sollte auch mit angezeigter Userform funktionieren (also ohne Hide/Show). Dazu musst Du in der Userform nur dafür sorgen, dass die Form nicht Modal angezeigt wird (ich meine die Form bleibt dann trotz der Auswahl in CATIA im Vordergrund).
Ich weiß nur leider gerade nicht auswendig wie das geht aber ich glaube dass ist einfach eine Eigenschaft der Form.

Wenn die Form nicht Modal ist, kannst Du allerdings, obwohl CATIA auf eine Selektion wartet, noch in der Form arbeiten. Wenn Du das verhindern willst kannst du während die CATIA Selection noch nicht beendet ist die ganze Form disablen (Me.Enabled = True/False) oder zumindest alle Buttons etc. die nicht betätigt werden dürfen bis die Selection durchgeführt ist.

Gruß,

Stefan

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