---

Hallo,
ich möchte für die Erstellung einer Standard-Layerliste die Layereigenschaften in eine Textdatei schreiben, bearbeiten und später wieder nach Wunsch in andere DWGs einlesen.

Bei der Farbe hat AC etweder einen Wert wie "weiß", eine Zahl von 0-255 oder ein RGB-Tripel. Beim Abfragen der Farbe kann ich offenbar immer sowohl einen Farbindex als auch eine Truecolor bekommen.

Code:

---

    For Each lay In ThisDrawing.Layers
        intCol = lay.color
        intRed = lay.TrueColor.Red
        intGreen = lay.TrueColor.Green
        intBlue = lay.TrueColor.Blue
    Next lay

---

Ich würde aber gerne so auslesen und auch zurückschreiben wie es eingestellt ist: Wenn Farbindex, dann dieser und NICHT Truecolor. Wenn Truecolor, dann nicht Farbindex. Wie bekomme ich das? Die Hilfefunktionen verstehe ich leider nicht dazu. 8(

MfG,
wwwilli

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

---

werte doch die Property COLORMETHOD des TRUECOLOROBJECTES aus.. die würde ich als ersten Wert in deine Liste schreiben, damit erschlägt du "von Layer" und "von Block" auch gleich

..
acColorMethodByACI
acColorMethodByBlock
acColorMethodByLayer
acColorMethodByRGB

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

---

Hi wwwilli,

Wobei hast du denn noch ein Problem?! Beim Ein- oder beim Auslesen der Layereigenschaften?!

Hier noch ein Ansatz zum auslesen:

Code:

---

Public Sub abc()
Dim object As AcadLayer
For Each object In ThisDrawing.Layers
    If object.TrueColor.ColorMethod = acColorMethodByACI Then
        MsgBox "Layer " & object.Name & " nach ACI-Farben" _
        & " Farbe: " & object.color
    ElseIf object.TrueColor.ColorMethod = acColorMethodByRGB Then
        If object.TrueColor.ColorName = "" Then
            MsgBox "Layer " & object.Name & " nach Truecolor-Farben" _
            & vbCr & "Rot: " & object.TrueColor.Red _
            & vbCr & "Grün: " & object.TrueColor.Green _
            & vbCr & "Blau: " & object.TrueColor.Blue
        Else
            MsgBox "Layer " & object.Name & " nach Truecolor-Farben" _
            & vbCr & "Farbname: " & object.TrueColor.ColorName _
            & vbCr & "Farbbuch: " & object.TrueColor.BookName
        End If
    End If
Next
End Sub

---

Gruß, Carsten

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

---

Hallo,
kann ein Layer "ByBlock-Farbe" haben?
"ByLayer-Farbe" jedenfalls nicht.
MfG,
wwwilli

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

---

für den SPEZIALFALL Layerobjekte fallen diese beiden Farben weg ..

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

---

Hallo.

@Carsten
Jetzt gerade habe ich ein Problem, Werte aus farbbüchern wieder zurückzuschreiben. Da erwartet SetColorBookColor offenbar einen Dateinamen (.acb) als 2. Parameter, vorher wurde mit .bookname aber etwas anderes geliefert.

Danke an Euch bis hierher.
MfG,
wwwilli

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

---

Hi wwwilli,

Probiers mal so:

Code:

---

Dim col As New AcadAcCmColor
Call col.SetColorBookColor("RAL CLASSIC", "RAL 9006")
object.TrueColor = col

---

Der Nutzen von Truecolor- und Farbbücherfarben hat sich mir persönlich allerdings noch nicht erschlossen. Mir reichen die ACI-Farben. Ist vielleicht Geschmackssache.

Gruß, Carsten

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

---

Hallo Carsten,
ich arbeite auch nicht mit Farbbüchern, ich möchte nur, dass mein Makro nicht beim ersten Kollegen, der irgendwo eine solche Angabe hat, abstürzt.
So wie Du es schreibst, ist es OK.
In meiner "Hilfe" steht eindeutig:

object.SetColorBookColor (ColorName, ColorBook)

Und damit geht es nicht, sondern mit umgekehrten Parametern.
Und dann läuft es auch. Danke.

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

---

Hi wwwilli,

Ich habs auch nicht aus der Hilfe, sondern aus dem Objektkatalog.

Gruß, Carsten

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

---

P.S.
Ansonsten arbeite ich viel mit Truecolor-Farben beim Einfärben von Plänen. Da brauche ich Blassgrün, Blassblau, Zartrosa und so etwas. Dafür auch die hellsten ACI-Farben, die mir vorliegen, noch zu dunkel.
MfG,
wwwilli

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