---

Hallo an Alle,

ich muß recht häufig Objekte in einer Zeichnung auswählen, die auf Layern liegen die mit "NEB" beginnen. Zur Zeit ist meine Vorgehensweisse, daß ich den VBA-Code unten starte. Dann wähle ich meine Objekte aus. Dann wähle ich den Befehl den ich ausführen möchte(z.B. copy). Jetzt wähle ich den Letzten Auswahlsatz und habe damit die zuvor gewählten Objekte.
Das ist recht Umständlich. Hat jemand ne Idee, wie ich den Normalen Ablauf einhalten könnte. Ich möchte zuerst den Befehlsbutton drücken z. B. copy dann einen weiteren Button der meinen VBA-Code startet und dann meine Objekte auswählen können, während der Befehl Copy aktiv ist.

Vielen Dank im Vorraus.
Theo

Public Sub NebAuswahlsatz()
Dim FilterType(0) As Integer
Dim FilterData(0) As Variant
Dim sstext As AcadSelectionSet
    FilterType(0) = 8
    FilterData(0) = "NEB*"
    Set sstext = ThisDrawing.SelectionSets.Add("SS333")
    sstext.SelectOnScreen FilterType, FilterData
    If sstext.Count = 0 Then
        MsgBox "Sorry, keine NEB-Bezeichnungen gefunden!"
    End If
    sstext.Delete
End Sub

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

---

Hi,

wenn Du ein SelectionSet baust, das Du eigentlich in der Befehlszeile brauchst, dann ist VBA die ungünstigere Variante.

Leg auf Deinen 'Selection'-Knopf (den zweiten aus Deiner Beschreibung)

(ssget "X" (list (cons 8 "NEB*")))

und Du hast die Elemente an der Hand

- alfred -

------------------
www.hollaus.at

---

Hallo Alfred,

das ist die Lösung. Da bin ich nicht selbst drauf gekommen, weil meine Kentnisse in Lisp eher gering sind. Manche Dinge scheinen in Lisp erstaunlich einfach zu gehen, verglichen mit VBA.

Gruß, Theo

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