Adding the ability to select True Colors to your LISP programs

If you take a look at the help files for both AutoCAD 2004 and 2005 you find the old function ACAD_COLORDLG listed for AutoLISP. However, the ACAD_COLORDLG function doesn't support True Colors in AutoCAD though. So was it over looked, is it missing... really it is just undocumented. The function you need in your code if you want to all the user to select True Colors is ACAD_TRUECOLORDLG. Since the function is undocumented it took a little while to exactly figure out the syntax for this function a year ago. Below is what I know of the function itself and its companion command to select True Colors at the command line.

Dialog Box
Syntax: (acad_truecolordlg color [allowbylayer])

Example:
(acad_truecolordlg 137 nil)
((62 . 137))

Alternative to use True color:
(acad_truecolordlg (cons 420 2594))

Alternative to use Color Book color:
(acad_truecolordlg (cons 430 "PANTONE(R) a & i-cotton$PANTONE 11-4800TC"))

Command Line
Syntax: (acad_truecolorcli color [allowbylayer] [alternatePrompt])

Example:
(acad_truecolorcli 137)
New Color [Truecolor/COlorbook] <137>:
((62 . 137))

Other return values:
Returns ACI as: ((62 . 144))

Returns True Color as: ((62 . 137) (420 . 2594437))

Returns Color Book Color as:
((62 . 254) (420 . 15789027) (430 . "PANTONE(R) a & i-cotton$PANTONE 11-4800 TC"))

Sincerely,
  Lee Ambrosius

Comments

[Melissa]

I praise God for answering my prayers. God, you are so wonderful, majestic. Jesus Christ, I adore Your Sacred Heart.n