Leider, leider programmier ich mir hier grad mal wieder den Wolf an den Hintern, CATIA will meine Gedankengänge leider nicht akzeptieren.
Kann mir jemand von Euch helfen: Ich möchte den Benutzer über eine UserSelection Elemente auswählen lassen, die das Makro dann nachher löscht. Der Benutzer soll jeweils eine Linie auswählen können, das Makro löscht diese und fragt dann nach, ob ein weiteres Element gelöscht werden soll. Die Sache habe ich mit einer Schleife programmiert.
So: jetzt sollte nur noch die Löschroutine funktionieren, ich vermute mal wieder einen kapitalen Denkfehler in meiner Schulerbuben-Objektdenkweise. Mein derzeitiger Code:
Dim Was (0)
Was (0) = "Line"
Do
Dim Benauswahl as Selection
Set Benauswahl = AktivDok.Selection
Benauswahl.Clear
'---interaktive Benutzerauswahl starten
Dim Auswahl as CATBStr
Auswahl = Benauswahl.SelectElement (Was, "Linie wählen!", False)
'---hier möchte ich das Object aus der Benutzerauswahl als Referenz deklarieren und anschliessend löschen
Dim Ref6 as Reference
Set Ref6 = AktivDok.CreateReferenceFromObject (Auswahl)
Ref6.Delete
'---Abfrage, ob der Löschvorgang beendet ist
Idia2 = MsgBox ("weitere Linie löschen?", 4, "Auswahldialog")
Loop Until (Idia2 = 7)
Bitte innständig um Eure Hilfe, weiß hier nichtmehr weiter (wenns weiter so läuft wie heute beiß ich glaub noch eine Ecke aus meinem Schreibtisch raus...)
Besten Dank für Eure Hilfe, Gruß aus dem wilden Süden,
Fireman
------------------
Neugier ist der erste Schritt des Fortschritts
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP