---

Wie kann ich eine true color Definieren,

Layer12.color = 251  ' das hier geht

aber....

Layer11.color = (132, 142, 152)  'so geht das nicht aber leider weiss ich nicht wie man so eine farbe definiert....

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

---

Hi,

so steht's in der Hilfe (von Acad2010) 

 

Zitat:

---

Sub Example_TrueColor()
    ' This example draws a line and returns the RGB values
    Dim color As AcadAcCmColor
    Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.18") 'das ist AutoCAD-versionsabhängig
    Call color.SetRGB(80, 100, 244)
   
    Dim line As AcadLine
    Dim startPoint(0 To 2) As Double
    Dim endPoint(0 To 2) As Double
       
    startPoint(0) = 1#: startPoint(1) = 1#: startPoint(2) = 0#
    endPoint(0) = 5#: endPoint(1) = 5#: endPoint(2) = 0#
       
    Set line = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)
    ZoomAll
   
    line.TrueColor = color
    Dim retcolor As AcadAcCmColor
    Set retcolor = line.TrueColor
   
    MsgBox "Red = " & retcolor.Red
    MsgBox "Green = " & retcolor.Green
    MsgBox "Blue = " & retcolor.Blue
End Sub

---

- alfred -

------------------
www.hollaus.at

[Diese Nachricht wurde von a.n. am 14. Mai. 2009 editiert.]