---

Ich suche eine möglichkeit, ein SelectionSet zu erstellen, mit allen Blöcken in denen ein bestimmter Layer gebraucht wurde.

z.B alle Blöcke, in denen Objekte mit dem Layer7 vorhanden sind, sollen dem SelectionSet hinzugefügt werden.

kan mir hier jemand einen Tip geben?

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

---

1.durch die Blocktabelle iterieren->bei jedem Block durch die Objektliste iterieren-> jedes Objekt auf entsprechenden Layer testen-> wenn TRUE, dann Blocknamen merken

2. durch die Blocktabelle (oder nur durch die Layoutblöcke, wenn keine Verschachtelungen berücksichtig werden sollen)  iterieren -> bei jedem Block durch die Objektliste iterieren- bei jeder Blockreferenz eines Blockes, von dem der NAme auf der MERKLISTE steht-> Blockreferenzobject  in die Auswahlliste(Auswahlsatz)

------------------
  - 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

---

Und falls nicht daran gedacht wurde um es nicht zu vergessen: : Welche Layer die ATTRIBUTe an den Blockreferenzen nutzen, lässt sich nur an den Inserts/Attribs selbst feststellen.

EDIT: Schweres Däutsch

[Diese Nachricht wurde von cadffm am 01. Mrz. 2007 editiert.]

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

---

Zusätzlich müssten alle Blockreferenzen, die auf "Layer7" eingefügt sind, und sich mindestens ein Objekt mit dem Layer "0" in der Blockdefinition befindet ggf. auch selektiert werden, wenn nicht sowieso alle Blockferenzen auf "Layer7" gewählt werden sollen.
Allerdings mag es ja Blockreferenzen geben, die zwar auf "Layer7" eingefügt sind, aber keine Geometrie auf "Layer7" darstellen - wie sollen die denn behandelt werden?

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

Hallo,

schau dir mal das an. Hier wird in der komletten DWG nach Layern gesucht und jeder Bloch iterativ durchsucht.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Danke für die Antworten...

Der Blocklayer ist uninteressant, der kann Unterschiedlich sein.
Das Ziel wäre gewesen, die gefundenen Blöcke auf einen anderen BlockLayer zu schieben.

Bei diesem BlockInfo Script finde ich auch kein Beispiel, wie ich nun den Layer im Block Uberprüfe.

Sieht so aus als ist das ganze noch ein bisschen zu hoch für mich.
Vieleicht versuch ich das später wieder einmal...

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

---

Hallo,

irgendwie stimmt entweder in der ersten Frage was nicht oder in der letzten Antwort. 

Wenn es egal ist welche Layer in den Blockdefinitionen sind sondern nur der Layer des Einfügepunktes interessieren dann kannst du es so machen:

Code:

---

Sub test()

    Dim sset As AcadSelectionSet
   
    On Error Resume Next
    Set sset = ThisDrawing.SelectionSets("MySel")
    If Err.Number Then
        Set sset = ThisDrawing.SelectionSets.Add("MySel")
    End If
    On Error GoTo 0
   
    Dim FilterData(0 To 1) As Variant
    Dim FilterType(0 To 1) As Integer
    FilterType(0) = 0
    FilterData(0) = "INSERT"
    FilterType(1) = 8
    FilterData(1) = "LAYER1"
   
    sset.SelectOnScreen FilterType, FilterData
   
    MsgBox sset.Count & " Objekte gefunden", vbInformation

End Sub

---

Ansonsten ist in dem Tool in der Funktion FILLBLOCKINFO alles drin um einen Block rekursiv zu durchsuchen. Wenn dann ein Layer in einem Blockdetail gefunden wurde kannst du den mit sset.AddItem zu einem Auswahlsatz hinzufügen.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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