Topic: Display number color of objects

[irneb]

Or even a smaller change:

Code: [Select]

;;  CAB/Recursive version
(defun _GetColour (e / c)
  (if (setq c (cdr (assoc 62 e)))
    (cond
      (
       (cdr
         (assoc c
                '(
                  (0 . "ByBlock")
                  (1 . "Red")
                  (2 . "Yellow")
                  (3 . "Green")
                  (4 . "Cyan")
                  (5 . "Blue")
                  (6 . "Magenta")
                  (7 . "White")
                 )
         )
       )
      )
      ((itoa c))
    )
    (strcat "ByLayer -> " (_GetColour (tblsearch "LAYER" (cdr (assoc 8 e))))) ;Irné change to recursive
    ;;  CAB change
  )
)