Entmake Layers Works But I'm Having Trouble With Color Text vs Number

[Bill Tillman]

I'm using this small routine to add some new layers to a drawing:

defun fLayer (fName fColor Ltype fPlot)
 (entmake (list (cons 0 "LAYER")
                (cons 100 "AcDbSymbolTableRecord")
                (cons 100 "AcDbLayerTableRecord")
                (cons 2  fName)
                (cons 6 LType)
                (cons 62 fColor)
                (cons 70 0)                 
                (cons 290 fPlot)
        )
      )
 (princ)
 ); end Layer functions

And it works great if the value I send for the color is a number like 3, 2 or 1. But if I send it text like "White" or "Green" it will not work. I tried using the DXF code of 420 in lieu of 62 as well but still get the same results.

[Bill Tillman]

Okay I found the solution was to use another routine with 430 as the DXF code instead of 62. Was hoping to use only one routine for this.

 

Ooops, actually that didn't resolve it. The colors all default to "White" using 430 and send it something like "Magenta" or "Cyan".

[iconeo]

You could just convert white to 7, etc.

 

Sent from my SM-G920T using Tapatalk

[Tharwat]

(defun _pick:colour  (clr / clrs pos)
 ;; Tharwat - 22.Jul.2016	;;
 (setq clrs '("red" "yellow" "green" "cyan" "blue" "magenta" "white"))
 (if (and (= (type clr) 'STR) (setq pos (member (strcase clr t) clrs)))
   (1+ (vl-position (car pos) clrs))
   (if (and (numberp clr) (< 0 clr 257))
     clr
     )
   )
 )

[BIGAL]

Or use a cond before entmake

 

(cond
((= (strcase fcolor) "RED") (setq fcolor 1))