Get color name from hatch.

Hi users,

I´m looking to get the color bookname and color name from

selected hatch and write the name as text into

the drawing. (see images)

Can anybody help.

Thanks.

Juergen.

Here's a hint:

(if (setq e (car (entsel)))
 (alert (vl-princ-to-string (cdr (assoc 430 (entget e)))))
)

Will it always be a ColorBook color?

Or could it be an ACI color or RGB?

Another, which should account for everything...

(defun objectcolour ( enx / col )
   (cond
       (   (cdr (assoc 430 enx)))
       (   (setq col (cdr (assoc 420 enx)))
           (mapcar '(lambda ( x ) (lsh (lsh (fix col) x) -24)) '(8 16 24))
       )
       (   (setq col (cdr (assoc 62 enx))))
       (   (objectcolour (entget (tblobjname "layer" (cdr (assoc 8 enx))))))
   )
)

To test:

(defun c:test ( / ent )
   (if (setq ent (car (entsel)))
       (print (objectcolour (entget ent)))
   )
   (princ)
)

Nice @Lee Mac

Hi ronjonp, hi Lee,

tanks for your help.

It helps me a lot to learn more about lisp.

@rkmcswain: yes it´s always a ColorBook color.

(I need it to title our color palette)