---

Hallo zusammen,

Wir sind seit kurzen auf AutoCAD 2005 umgestiegen. Dort funktioniert die Farbzuweisung mit VBA ja über die Truecoloreigenschaft.
Leider habe ich es bis jetzt noch nicht hinbekommen, einem neu angelegten Layer eine bestimmte Farbe zu zuweisen.
Kann mir mal bitte jemand mit einem Codebsp. auf die Sprünge helfen? 
Vielen Dank!
René

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

---

Hm, steht doch eigentlich ganz gut in der Hilfe zu Truecolor,
also irgendsowas müsstes eigentlich tun [hoffe ich] ;-)

Code:

---

Dim color As AcadAcCmColor
Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")
Call color.SetRGB(50, 20, 40)
ThisDrawing.Layers(1).TrueColor = color

---

Gruss Nancy   

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

---

Mhh, das hab ich auch schon entdeckt, konnte aber nicht so recht glauben, dass man für eine simple Farbzuweisung nun gleich 4 tolle Anweisungen braucht. Und was hat es mit GetInterfaceObject("AutoCAD.AcCmColor.16") auf sich? Und warum eigentlich call?
Ich raff das net!
Gibt's nicht auch was einfaches?
Grüße!
René

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

---

Versuch es einmal damit:

Code:

---

    Dim objCol As New AcadAcCmColor
    Dim tmpColMethod As Variant
    tmpColMethod = objCol.ColorMethod          'aktuelle Farbzuweisung
    objCol.ColorMethod = acColorMethodByACI    'Farbzuweisung auf Farbnummern stellen
    objCol.ColorIndex = 1                      'Farbnummer setzten
    NewLayer.TrueColor = objCol                'dem Layer Farbe zuweisen
    objCol.ColorMethod = tmpColMethod          'vorige Farzuweisung wieder herstellen

---

Du kannst dir ja eine Funktion erstellen die diese Zeilen beinhaltet, der brauchst du dann nur die Farbnummer übergeben.

------------------
Roland

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

---

Guten Morgen!

So, ich hab's jetzt endlich geschnickt, wie das laufen muss:

Erst Farbobjekt deklarieren:
 
  Dim color As AcadAcCmColor
  Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")

dann Farbdefinition via:
 
  color.SetRGB 255, 0, 0  ' wird rot
  oder:
  color.ColorMethod = acColorMethodByBlock ' Farbe von Block
  oder:
  color.ColorIndex = acBlue ' wird blau
  oder ...

dann zuweisen an Objekt:
 
  Objekt.TrueColor=color

Fertig! Ist ja eigentlich ganz einfach... 

Grüße!
René

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

---

So ist es, kannst dir aber auch noch einmal meinen Code ansehen, in diesem Fall kannst du die Farbnummer angeben, dann ist das so wie früher 

------------------
Roland

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