---

Hi,

ich habe hier ca. 100 Blöcke. Die Blockinhalte sind alle auf Layer 0 und Farbe vonLayer gezeichnet. Ich benötige aber nun das die Farbe im Block auf die Farbe 200 geändert wird. Habe hier schon ein vba Code Schnipsel gefunden der genau das macht was ich brauche. Allerdings muss ich jeden Block per Hand schreiben.

Kann mir jemand helfen, damit ich am besten gleich mehrere Blöcke mit der Maus auswählen kann und diese geändert werden???

BlockFarbe()

Dim strRefName As String
Dim objBlock As AcadBlock
Dim objEntity As AcadEntity

strRefName = ThisDrawing.Utility.GetString(1, "Blockname eingeben: ")

On Error Resume Next

Set objBlock = ThisDrawing.Blocks(strRefName)

If Err.Number <> 0 Then
  MsgBox "Ungültiger Blockname"
  Exit Sub
End If

For Each objEntity In objBlock
    objEntity.Color = 200 'Farbnummer
Next

Set objBlock = Nothing

ThisDrawing.Regen acActiveViewport

End Sub

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

---

Du hast ja schon eine foreach-Schleife. Darum legst Du einfach noch eine foreach-Schleife und läßt die Abfrage weg:

Code:

---

Sub BlockFarbe()

Dim objBlock As AcadBlock
Dim objEntity As AcadEntity
On Error Resume Next

For Each objBlock In ThisDrawing.Blocks()
For Each objEntity In objBlock
    objEntity.color = 200 'Farbnummer
Next
Next

ThisDrawing.Regen acActiveViewport

End Sub

---

[EDIT]Du mußt natürlich dann die Layouts und so noch ausschließen, da die auch in der Blocktabelle geführt werden.[/EDIT]

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

[Diese Nachricht wurde von wronzky am 01. Aug. 2014 editiert.]

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

---

Danke, hast mir sehr geholfen.        

[Diese Nachricht wurde von shakesbier am 01. Aug. 2014 editiert.]

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