---

Hallo zusammen,

folgendes Problem, ich möchte eine Do Until Schleife programmieren, die nach einer Selction überprüft ob die Selection vom Typ "Body ist.

Sub CATMain()

Dim Ref(0)
Ref(0)= "AnyObject"

Do

Dim UserSel As Selection
Set UserSel=CATIA.ActiveDocument.Selection
UserSel.clear

Dim E As CATBSTR
E = UserSel.SelectElement2(Ref,"TEST",true)

MsgBox(UserSel.Item(1).Value.Name)

UserSel.EndSelectElement
UserSel.Clear

Loop Until (E = "Body")

End Sub

So funktioniert es nicht, die Ausgangsbedingung wird nicht erkannt und die Schleife endlos durchlaufen.

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

---

moin,

dein E liefert den Status des Select-Commands, d.h. "Normal", "Cancel" etc. und nicht den Typ des Selected Element. Um das rauszukriegen gibts die VBS-Funktion typename.
Auch brauchst du bei SelectElement2 nicht EndSelectElement zu verwenden.
Und wenn du mit VB-Script arbeitest sollten Dim-Statements kein "as" enthalten. Gibt bei mir zumindest einen kritischen Fehler.
Dann sieht dein Script folgendermaßen aus:

Code:

---

Sub CATMain()
  Dim Ref(0)
  Ref(0)= "AnyObject"

  Do
    Set UserSel=CATIA.ActiveDocument.Selection
    UserSel.clear
   
    E = UserSel.SelectElement2(Ref,"TEST",true)
   
    msgbox typename(UserSel.Item(1).Value)
    UserSel.Clear
 
  Loop Until (typename(UserSel.Item(1).Value) = "Body")
End Sub

---

CU
    Tapani

------------------
Don't take life so seriously....
it's not a permanent  condition

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

---

Hi Tapani,

erstmal dabke für deine Hilfe. Ich muss mit CATScript arbeiten da mein MACRO auch unter Unix laufen soll. Ich habe deinen Code mal als VB - Script laufen lassen, bekommen folegende Fehlermeldung: method Item failed

in Zeile ==Loop Until (typename(UserSel.Item(1).Value) = "Body")==

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

---

Ich habe das Problem selber lösen können, zwar mit einem kleinem Umweg aber es geht als CATScript. Ich habe einfach eine neue Variable zum überprüfen der Bedingung definiert.

Sub CATMain()

Dim Ref(0)
Ref(0)= "AnyObject"

Do

Dim UserSel As Selection
Set UserSel=CATIA.ActiveDocument.Selection
UserSel.clear

Dim E,A As CATBSTR
E = UserSel.SelectElement2(Ref,"TEST",true)

Msgbox (typename(UserSel.Item(1).Value)

A = typename(UserSel.Item(1).Value)

UserSel.EndSelectElement
UserSel.Clear

Loop Until (A="Body")

End Sub

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