---

Ich habe vor einiger Zeit ein Programm geschrieben mit dem ich den Layern eine Linienstärke zuweise. Ich habe mir dazu eine Text-Datei erstellt, wo ich vordefiniert habe welche Farbe welche Linienstärke hat. Die weise ich mit dem Programm den Layern und den Objekten wo die Farbe nicht von Layer ist zu. Das ganze funktioniert ganz gut, aber jetzt bin ich drauf gekommen, das es bei Blöcken nicht funktioniert.
Ich bin bis jetzt noch nicht dahinter gekommen wie ich es anstellen soll das ich den Objekten die in dem Blöcken enthalten sind auch die Linienstärke zuweise.

So sieht mein Auswahlsatz aus:

Set sset = ThisDrawing.SelectionSets.Add("SS2")
FilterType(0) = -4
FilterData(0) = "<>"
FilterType(1) = 62
FilterData(1) = 256
sset.Select acSelectionSetAll, , , FilterType, FilterData

Wie kann ich es anstellen das ich den Objekten die in dem Block enthalten sind auch eine Linienstärke zuweise?

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

---

Hi,

Schau mal hier wie du an die Objekte der BlockRef rankommst.

Gruß, Carsten

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

---

Hallo Carsten
Wie immer ein guter Tipp von dir Danke!

Ich habe mir den Code an geschaut und ihn auch schon in mein Programm eingebaut

ich noch eine Fragen:
In dem Programm wird der Block über eine Usereingabe gewählt
Ausgabe = "Objekt wählen:"
ThisDrawing.Utility.GetEntity Object, Pickedpoint, Ausgabe

Meine Frage "Wie kann ich eine Schleife programmieren das alle Blöcken die in der Zeichnung enthalten sind abgearbeitet werden???"

mfg Alex

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

---

Hallo Alex,

versuchs mal so:

Code:

---

    Dim BlockDef As AcadBlock
    Dim Entity As AcadEntity
   
    For Each BlockDef In ThisDrawing.Blocks
        If Not BlockDef.IsXRef And Not BlockDef.IsLayout Then
            For Each Entity In BlockDef
                Debug.Print Entity.ObjectName
            Next Entity
        End If
    Next BlockDef

---

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 Stelli

Haut echt super hin

DANKE

mfg Alex

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