Color By Selection

I have a routine that allows me to select all of the objects of a particular
color (not bylayer) and change them with a color number of your choosing.
What I want to be able to do is to call the color dialog box and pass the
color selected as a variable to finish the routine. I tried (command
"color")
but that only changes the color for new objects created.

Any ideas

Thanks


Tim W.

 

;; Get a Color Selection..
(defun g_col ( / ocol )
(initdia)
(setq ocol (getvar "cecolor"))
(command "color"); user picks one..
(setq col (getvar "cecolor")); pick up that color..
(setvar "cecolor" ocol)
(princ)
); function
..............
Variable col has the color number..
Bob

 

(setq clr (acad_colordlg 7)) ;will start the dialog with a default color of
7. clr will hold the color of choice

 

Thanks Jim Works great..
where can I find the dialog references?

Tim W.

 

acad_dev.chm in the help folder

 

Okay thanks

Tim W.

 

Hi Tim

If you are using A2k4+, you can use 'acad_truecolordlg'. For details search
in AutoCAD folder:
...\Sample\VisualLISP\color-util.lsp

Cheers