---

Hallo zusammen,

vielleicht kann mir jemand von Euch weiterhelfen. Hab schon ein paar Stunden über dem folgenden Problem gebrütet und keine Lösung gefunden:

Die folgenden Userselektion in VB Script funktioniert unter R14 einwandfrei:

Set mbsel01 = CATIA.ActiveDocument.Selection

'nur flaeche auswaehlbar
Dim InputObjectType()
ReDim InputObjectType(0)
InputObjectType(0) = "Face"

'benutzerselektion
Status = mbsel01.SelectElement2(InputObjectType, "Basisflaeche waehlen:", False)

'auswahl io?
If (Status <> "Normal") Then
 
  'wenn nein
  MsgBox "Funktion abgebrochen!"
  Exit Sub

'wenn ja dann
Else

  'abfragen der werte des gewaehlten objektes
  Set mbrefextr01 = mbsel01.Item(1).Value
 
  mbsel01.Clear
  mbsel01.EndSelectElement
 
End If

Aus irgendeinem Grund gibt es die Funktion  Selection.EndSelectElement  seit R16 nicht mehr. Das hat folgende Auswirkung: der Benutzer wählt z.B. eine Solidfläche. In der Statuszeile wird der "Name" der gewählten Fläche angezeigt. Nachdem es diese Funktion nicht mehr gibt, wird die Selektion nicht mehr aufgehoben und die selektierte Fläche bleibt selektiert, obwohl die Selektion beendet ist. Bei einer 2ten Userselection wird der Anfragetext in der Statuszeile nicht angezeigt, da die Solidfläche von der vorherigen Userselection immer noch selektiert ist.

Wie kann ich die Selektion aufheben damit Meldungen wieder in der Statuszeile von CATIA angezeigt werden???

Im voraus schon mal Viele Dank!

Viele Grüße  magicneo

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

---

Normalerweise sollte mit mbsel01.Clear die Selektion aufgehoben sein und die Statuszeile wieder frei sein.
Versuch mal bitte folgendes:

Am Anfang vom MAkro setze mal CATIA.RefreshDisplay=True rein.

Und bei Status=mbsel01.SelectElement2..... , da setzt hinten mal True rein und nicht False.

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

---

Hallo YellowDevil,

sorry, dass ich mich erst jetzt melde. Die letzten Tage waren sehr hektisch.
Vielen Dank für Deinen Tipp - hat aber leider nicht geholfen.
Mittlerweile hat sich das Problem von selbst erledigt.
Der Fehler scheint nur in R16 aufzutreten. Hab mein kleines Tool mal auf R17 probiert und siehe da ...
alles läuft reibungslos.
Hab Deine Tips unter R16 probiert - aber leider ohne Erfolg.
R14 - OK, R16 - nicht OK, R17 - OK - versteh einer die Franzosen :-) (ist nicht so ernst gemeint).
So kenn wir doch alle CATIA, oder?! CATIA lebt!!!

Vielen Dank und viele Grüße

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