Prompts
for colors at the command line
(acad_truecolorcli color [allowbylayer] [alternatePrompt])
Arguments
- color
-
A dotted pair that describes
the default color. The first element of the dotted pair must be
one of the color-related DXF group codes (62, 420, or 430); for
example, (62 . ColorIndex), (420 . TrueColor), or (430 . "colorbook$colorname").
- allowbylayer
-
Omitting the allowbylayer argument
or setting it to a non-nil value
enables entering bylayer or byblock to set the color. If set to nil, an error results if bylayer or
byblock is entered.
- alternateprompt
-
An optional prompt string.
If this string is omitted, the default value is “New color”.
Return Values
When the operation is
successful, the function returns a list of one or more dotted pairs
(depending on the tab on which the color is selected) describing the
color selected. The last dotted pair in the list indicates the color
selected. The function returns nil if
the user cancels the dialog box.
- Color book color
-
If the last item in the
returned list is a 430 pair, then the specified color originates
from a color book. This returned list will also contain a 420 pair
that describes the corresponding true color and a 62 pair that describes
the closest matching color index value.
- True color
-
If the returned list
contains a 420 pair as the last item, then a true color was specified
(as “Red,Green,Blue”). The list will also contain a 62 pair that
indicates the closest matching color index. No 430 pair will be
present.
- Color index
-
If the last item in the
list is a 62 pair, then a colorindex was chosen. No other dotted
pairs will be present in the returned list.
Examples
Prompt for a color selection
at the command line with a purple color index default selection
and alternative text for the command prompt:
Command: (acad_truecolorcli
'(62 . 215) 1 "Pick a color")
New Color [Truecolor/COlorbook]
<215>:
((62 . 215))
Prompt for a color selection
at the command line with a yellow color index default selection,
then set the color by layer:
Command: (acad_truecolorcli
'(62 . 2))
New Color [Truecolor/COlorbook]
<2 (yellow)>: bylayer
((62 . 256))
