---

Hallo,
ich habe während eines Makros zum einfärben folgenden Code:

Code:

---

        userselect2 = selektionOBJ.SelectElement3(sInputObjectType(), "Selektieren Sie ein Element oder ziehen Sie die Maus über mehrere Elemente.", True, CATMultiSelTriggWhenSelPerf, True)
       
        'Bei der Eingabe von Esc soll das Makro beendet werden
        If userselect2 = "Cancel" Then
            End
        End If

---

Während das Makro auf eine Selektion durch den Anwender wartet, leidet die Performance im Part Design. Es hakt.
D.h. wenn ich das Bauteildrehen möchte kann ich das mit der Kombination mittlere Maustaste + rechte Maustaste durchführen.
Während der SelectElement3 muss ich die Kombination mittlere Maustaste + rechte Maustaste langsamer nacheinander anklicken weil CATIA das sonst nicht erkennt, dass ich drehen möchte.

Hoffe ihr versteht was ich meine.

Kann ich das irgendwie optimieren? 

------------------
Anfänger!

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

---

Hallo,

Das liegt wohl an der Eigenschaft "Application.HSOSynchronized". Anbei mal ein Link welcher dieses Phänomen bereits in einem Error Quest für IBM ausführt:

[URL=PERFORMANCE OF THE SELECTION1]http://www-01.ibm.com/support/docview.wss?uid=swg1HD76099[/URL]

------------------
MFG Daniel

Systeminformation | Inoffizielle CATIA Hilfeseite | CATIA FAQ | Suche | TraceParts (Normteile...) | 3D Content Central (noch mehr Normteile...)

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

---

Danke für die Antwort.
Habe jetzt mal die Eigenschaft HSOSynchronized auf False gesetzt.
Lässt sich leider kein signifikanter Unterschied feststellen.

Oder hab ich was falsch gemacht?

Code:

---

'Alle Selektionen aufheben
Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument
Set selektion = partDocument1.Selection
selektion.Clear

'SelectElement3
Dim selektionOBJ As Object
Set selektionOBJ = partDocument1.Selection

Dim sInputObjectType(0) As Variant
sInputObjectType(0) = "AnyObject"

Dim userselect2 As String

If an = True Then
    'Click-Click
   
    Dim HSOSynchronizedFilter(0)
    Dim status
    HSOSynchronizedFilter(0) = "SetCATIADotHSOSynchronizedToFalse"
    status = selektionOBJ.SelectElement3(HSOSynchronizedFilter, "", False)
   
   
    userselect2 = selektionOBJ.SelectElement3(sInputObjectType(), "Selektieren Sie ein Element oder ziehen Sie die Maus über mehrere Elemente.", False, CATMultiSelTriggWhenSelPerf, False)
    'Bei der Eingabe von Esc soll das Makro beendet werden
    If userselect2 = "Cancel" Then
        End
    End If
     

    HSOSynchronizedFilter(0) = "SetCATIADotHSOSynchronizedToTrue"
    status = selektionOBJ.SelectElement3(HSOSynchronizedFilter, "", False)

---

------------------
Anfänger!

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

---

Servus
Dein Code läuft bei mir gar nicht. (hab ich auch so noch nicht gesehen)
Probiere mal mit:

Code:

---

CATIA.HSOSynchronized = False
'bzw
CATIA.HSOSynchronized = true

---

die Eigenschaft "HSOSynchronized" umzuschalten.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Habe den Code von der oben angegebenen URL:
http://www-01.ibm.com/support/docview.wss?uid=swg1HD76099

Basiert wahrscheinlich auf R18.

Ich probiere das mal eben.

------------------
Anfänger!

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