Create layer with true Color in Lisp
("K-BEV" "4" "CONTINUOUS")
("K-BEV-MISC" "11" "CONTINUOUS")
("K-CENT-CKEP" "4" "CONTINUOUS")
("K-CENT-XXEX" "4" "CONTINUOUS")
("K-CENT-XXXP" "4" "CONTINUOUS")
("K-CHAS-CKEP" "4" "CONTINUOUS")
("K-DEMO" "255,209,0" "HIDDEN4")
(defun truecolor (r g b)
(+ (lsh (fix r) 16)
(lsh (fix g) 8)
(fix b)
)
)
(defun create_layer (name linetype r g b)
(setq lyr (tblsearch "layer" name) col (truecolor r g b) )
(if (not lyr)
(entmake
(list (cons 0 "layer")
(cons 100 "acdbsymboltablerecord")
(cons 100 "acdblayertablerecord")
(cons 2 name)
(cons 6 linetype)
(cons 62 198)
(cons 420 col)
(cons 70 0)))
)
(princ)
)
Usage:
(create_layer "K-DEMO" "HIDDEN4" 255 209 0)I hope that's what you looking for!
At the time of layer creation you should have line type definition loaded.
If not use
(setvar "expert" 3)
(command "-linetype" "load" "*" "acad.lin" "") ; or other
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
@Anonymouswrote:it might be but i do not understand all of the code. It looks like you are creating an entity with entmake & creating a list with some cons cells. What turns the layer color into 255,209,0 & what applies that to K-DEMO? Would i have to duplicate this code for the othe 3 layers that i need to have the true colors? I need to create these layers:
LAYER: COLOR LINETYPE
K-DEMO 255,209,0 HIDDEN 4
K-EQPM 0,33,235 CONTINUOUS
K-EQPM-OPTIONAL 51,204,9 CONTINUOUS
K-EQPM-RELO 244,47,21 CONTINUOUS
No. I+ve created a function that looks in layers table to see if layer with a name exist. If it don't it creates new layer .
In your code insert my function and create how many layers you want by calling function
(create_layer "K-DEMO" "HIDDEN4" 255 209 0)
(create_layer "K-EQPM" "CONTINUOUS" 0 33 235)
(create_layer "K-EQPM-OPTIONAL" "CONTINUOUS" 51 204 9)
(create_layer "K-EQPM-RELO" "continuous" 244 47 21)
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Just put my code to the top or bottom of the list in your code.
Copy code for creating those layers and
In your list delete rows that are there to create layers with truecolor.
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
@Anonymouswrote:Looks like this only works if the layer is not already in the drawing. Also i discovered that if the linetype is not already in my acad.lin file it also does not work. I have had this issue before.
Yes. It only works if layer isn't in a drawing, since you can not create two layers with same name - first row in a script (tblsearch "layer" name).
So you have to delete rows in your script that create layers with true color I sayed.
About linetype. Hidden4 is not standard definition (maybe I'm wrong). Copy its definition in acad line, or put autolisp code that I provided on the top of your list.
(setvar "expert" 3)
(command "-linetype" "load" "*" "acad.lin" "") ; or any other linetype definition here
(defun truecolor (r g b)
(+ (lsh (fix r) 16)
(lsh (fix g) 8)
(fix b)
)
)
(defun create_layer (name linetype r g b)
(setq lyr (tblsearch "layer" name) col (truecolor r g b) )
(if (not lyr)
(entmake
(list (cons 0 "layer")
(cons 100 "acdbsymboltablerecord")
(cons 100 "acdblayertablerecord")
(cons 2 name)
(cons 6 linetype)
(cons 62 198)
(cons 420 col)
(cons 70 0)))
)
(princ)
)
(create_layer "K-DEMO" "HIDDEN4" 255 209 0)
(create_layer "K-EQPM" "CONTINUOUS" 0 33 235)
(create_layer "K-EQPM-OPTIONAL" "CONTINUOUS" 51 204 9)
(create_layer "K-EQPM-RELO" "continuous" 244 47 21)
- Your script here
This was all you had to do.
I would create empty drawing with all layers , text sizes and so on created.
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
I agree. I also prefer indexed colors.
In this routine that creates layer list I would also include lineweights.
Now you have all lineweights set to "default".
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
@Anonymous wrote:
... the line type is not in the drawing it uses the default which is continuous.
In (entmake)ing a Layer [at least in Acad2016 I have here], it doesn't even do that, but simply does not create the Layer at all. It does at least create it, and default to Continuous if it doesn't find the specified linetype, when using (command "_.layer" "_make" ....) [or "_new"].
BUT another advantage of the (command)-function way is that if the specified linetype is in acad.lin, it does not even need to be loaded into the drawing first -- it will find it, which (entmake) isn't smart enough to do. [That's why I said "if it doesn't find the specified linetype" above, rather than "if the linetype is not loaded."]
However, if you have a very large number of Layers, the (command) approach could take noticeably longer than the (entmake) approach. That can be lessened by not doing each one separately, but applying options to comma-delimited multiple-Layer-name strings, for example in your sampling [other than the one TrueColor Layer]:
(command "_.layer"
"_new" "K-BEV,K-BEV-MISC,K-CENT-CKEP,K-CENT-XXEX,K-CENT-XXXP,K-CHAS-CKEP"
"_color" 4 "K-CENT-CKEP,K-CENT-XXEX,K-CENT-XXXP,K-CHAS-CKEP"
"_color" 11 "K-BEV-MISC"
""
)
And you never have to assign Continuous as a linetype in the (command) approach as you do with (entmake) -- only non-continuous types.
Another advantage is that it won't matter if a Layer is already in the drawing.
Kent Cooper, AIA 
OK. Before we jump into editing acad.lin
At the top of your layer generation script add next line
(command "-linetype" "load" "*" "acad.lin" "")
Or if you want to just load some lintype
(command "-linetype" "load" "dashed" "acad.lin" "")
(command "-linetype" "load" "border" "acad.lin" "")
Then open a new empty drawing and check if all layers are generated correctly
in regard linetype definition. When you open new drawing just few definitions are
loaded but we want to be sure that all linetype definitions are preloaded.
If some linetype definition is missing I'll explain how to add additional linetype
definitions to acad.lin
Miljenko Hatlak
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.