---

Hallo zusammen,

ich habe ein Makro in dem der User während dieses läuft eine Selektion nach Parts durchführt. Nun möchte ich einen Filter einbauen nach dem nur noch bestimmte Instance Names und Partnumbers ausgewählt werden können.

Hier mein aktueller Code (CATScript):
_______
Sub CATMain()
    set Selection1 = CATIA.ActiveDocument.Selection
    dim ElementTyp(0)
    ElementTyp(0)="Part"
    Selection1.Clear
    do
      Selektion = Selection1.SelectElement2(ElementTyp,"Part auswählen!", false)
    if Selektion = "Normal" then
    set Element = Selection.item(1)
    MsgBox Element.value.name & " wurde ausgewählt" + Chr(10)+_
    "Abbruch des Makros.",48,"Benutzerhandbuch")
    exit Sub
    end if
loop until Fertig = true

End Sub
_______

Habe schon versucht den Filter einzubauen, doch bis jetzt leider erfolglos.

Ich hoffe es kein jemand helfen oder Tipps geben?!

Vielen Dank & Gruß

Alex

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

---

Hallo Alexander,

ich will Dir mal antworten, so wie es scheint, ist den anderen Programmierern eine Antwort
auf deinen Beitrag zu leicht! GRINS GRINS

1.
set Element = Selection.item(1) ist falsch es muss Selection1.item(1) heissen

2.
Die Klammer hinter der .....,"Benutzerhandbuch") muss weg

3.
loop until Fertig = true wird nie erreicht, aber ich schätze mal du warst noch nicht fertig

Gruss JPF

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

---

Guten Morgen JPF,

danke für deine Tipps, funktioniert auch alles soweit. Nur leider kann ich immer noch nicht nur nach bestimmten Namen auswählen lassen. 

Die Idee ist, dass der User parts auswählt (das klappt). Aber er soll nur parts mit bestimmten Instance Names/Partnumbers auswählen dürfen, z. B. nur Part1, Part2 und Part 6. Wählt er aber ein Part mit dem Namen "part9" an, dann ist die Selektion "gesperrt" bzw. nicht möglich.

Gruß
ALexander 

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

---

Servus
IMHO ist dies nicht direkt möglich, da bei der Selektion nur der Typ des Elements eingeschränkt werden kann.
ggf musst du nach der Wahl des Parts/der Parts die Partnumber überprüfen und ggf die Selektion neu starten bzw die falschen herausfiltern.

Gruß
Bernd

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

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

---

Hallo Alexander,

die einfachste Lösung ist (wobei die einfachste Lösung nicht unbedingt die eleganteste ist):

Nach der Zeile mit MsgBox, die Zeile mit ExitSub austauschen mit
If Element.value.name = "Part.1" Then Fertig = True

Gruss JPF

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

---

Hallo JPF und Bernd,

vielen Dank für eure Beiträge und Hilfe, auf cad.de ist doch immer Verlass :-). Habe das Problem mit den vorgeschlagenen Ansätzen gelöst!

Wenn das ausgewählte part jetzt nicht dem hinterlegten partnamen entspricht fängt der code dies ab und startet die Auswahl neu.

Nochmals vielen Dank für die tollen Antworten :-)

Bis zur nächsten Frage und viele Grüße 
Alexander

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