---

Hi zusammen,

zur Zeit bin ich dran VBA zu lernen an praktischen Beispielen aus meiner Arbeit.
Vielleicht könnt ihr mir hier weiterhelfen wie ich an so einem Beispiel beginne.

In einer Zeichnung gibt es mehrere Blöcke die markiert werden müssen

z.b. ABCD_01_dpvs
    ABCD_01_dpva
    ABCD_01_dpvk

und danach auf einen neuen Layer kommen

    Layer mechanisch

Die Auswahl der Blöcke würde ich gerne mit *ABCD_01_dpv* erstellen.

Über die Suche funktion konnte ich nichts passendes finden vielleicht kann mir ja jemand weiterhelfen.

Vielen Dank

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

---

warum müssen die markiert werden ?

...durchlauf die Blocktabelle, wenn du auf ein Insert kommst, das deinen Namenskonventionen entspricht, änder die Property "Layer" ..

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Naja dachte daran die Blöcke zu markieren und ihnen dann einen neuen Layer zuzuordnen.

oder gibt es eine schönere lösung dafür?

Mit der filterfunktion bekomme ich es schon hin dass mir ein Blocktyp bereits markiert wird allerdings mit zwei oder mehreren bekomme ich es nicht hin.

Gibt es auch eine Möglichkeit die Markierung nach dem Makro automatisch auf die ganze Zeichnung zu bringen?
So muss ich manuell noch alles eintippen

Sub Ch4_FilterMtext()
Dim sstext As AcadSelectionSet
Dim FilterType(0) As Integer
Dim FilterData(0) As Variant
Set sstext = ThisDrawing.SelectionSets.Add("SS2")
FilterType(0) = 2
FilterData(0) = "*AQA_dpv*"
sstext.SelectOnScreen FilterType, FilterData
End Sub

Grüße

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

---

naja mit Lisp ist das eine Zeile

(sssetfirst nil (ssget "_x" '((0 . "INSERT")(2 . "*AQA_dpv*"))))

die kannst du dir als Buttonmakro ablegen oder einfach mal zum Testen in die Befehlszeile kopieren

VBA ist nicht so mein Ding

------------------
      - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

das sieht auch schon ganz nett aus da werd ich gleich mal reinschauen.

Kann ich da auch gleich mehrere Blöcke markieren?

(sssetfirst nil (ssget "_x" '((0 . "INSERT")(2 . "*AQA_dpv*"))))
(sssetfirst nil (ssget "_x" '((0 . "INSERT")(2 . "*AQA_upv*"))))
(sssetfirst nil (ssget "_x" '((0 . "INSERT")(2 . "*AQA_dps*"))))
.........

Danke schonmal

Grüße

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

---

Hi,

schreib die Layer einfach, mit Beistrich getrennt, hintereinander:

(sssetfirst nil (ssget "_x" '((0 . "INSERT")(2 . "*AQA_dpv*,*AQA_upv*,*AQA_dps*"))))

- alfred -

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

---

ich glaube LISP gefällt mir besser :-)

kann ich hier auch automatisch eine abfolge reinbringen?

Markiere Block A - D und lege auf Layer A1
Markiere Block E - G und lege auf Layer A2
....

Vielen Dank für den super Tip

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