Setting RAL colors

Hi,

There is an example in AutoCAD help for assigning color book colors to
objects:

Sub Example_SetNames()
'This example draws a circle and
'returns the color name and color book name of the color.

Dim col As New AcadAcCmColor
Call col.SetRGB(125, 175, 235)
Call col.SetNames("MyColor", "MyColorBook")

Dim cir As AcadCircle
Dim pt(0 To 2) As Double
Set cir = ThisDrawing.ModelSpace.AddCircle(pt, 2)
cir.TrueColor = col
ZoomAll

Dim retCol As AcadAcCmColor
Set retCol = cir.TrueColor
MsgBox "BookName=" & col.BookName
MsgBox "ColorName=" & col.ColorName
End Sub


Why is there two lines:

Call col.SetRGB(125, 175, 235)
Call col.SetNames("MyColor", "MyColorBook")

I need to set a RAL color to an object, do I need to use the RGB syntax,
is the second line of code not enough to give an object a particular color?

Thanks.

--
/////
(o)-(o)
-----ooO---(_)---Ooo--------------------------
Patrick EMIN www.CADxp.com
Le portail francophone CAO et Nouvelles Technologies

 

The second line of code is enough
Sub test()
Dim col As New AutoCAD.AcadAcCmColor
col.SetColorBookColor "RAL CLASSIC", "RAL 1002"
End Sub

 

Ravi Pothineni a écrit :

Thanks, I'll try that out.
--
/////
(o)-(o)
-----ooO---(_)---Ooo--------------------------
Patrick EMIN www.CADxp.com
Le portail francophone CAO et Nouvelles Technologies

 

Patrick EMIN a écrit :

It works but it's very, very slow... I guess it's reading the color book
from the hard disk XML file?
I resolved to build a table with the RAL colde and the RGB values instead.
--
/////
(o)-(o)
-----ooO---(_)---Ooo--------------------------
Patrick EMIN www.CADxp.com
Le portail francophone CAO et Nouvelles Technologies

 

It should be slow only the first time the color book is accessed (i.e. the
XML file is loaded from disk). Any subsequent access to the colorbook in
that session of AutoCAD should be instantanous.

Patrick EMIN a écrit :

It works but it's very, very slow... I guess it's reading the color book
from the hard disk XML file?
I resolved to build a table with the RAL colde and the RGB values instead.
--
/////
(o)-(o)
-----ooO---(_)---Ooo--------------------------
Patrick EMIN www.CADxp.com
Le portail francophone CAO et Nouvelles Technologies