How to Find a Layer if It Exists?

[BeKirra]

Hello ALL,

I had a problem with my routine.
What I want is:
(1) Find a layer "Landscape" if it exists;
(2) If the layer exist, change it's color to "green" bylayer.
(3) If it doesn't exist, create it then set it to current.

I can do the steps (2) & (3) except step (1)

Any helps would be appreciated.

[Opie]

Try

(tblsearch "LAYER" "Landscape")

[BeKirra]

Try

(tblsearch "LAYER" "Landscape")

Thanks, tblsearch is the one, but how could it tell if it found the layer?
I mean, what is the statement exactly?
Will it be:
(if (eq (tblsearch "LAYER" "Landscape"))
(command "-layer" "set" "Landscape" "color" "3" "" ""))

I am sure that the eq function is wrong.
But what is the replacement for it?

[CADmium]

(if (tblsearch "LAYER" "Landscape")
(command "_-layer" "_set" "Landscape" "_color" "3" "" "")
(command "_-layer" "_make" "Landscape" "_color" "3" "" "")
)

[rkmcswain]

...but how could it tell if it found the layer?

The (tblsearch) function will return nil if the table entry is not found.
So you just test it for a non-nil value.

http://www.hyperpics.com/customizati...nce.asp?id=200

[BeKirra]

The (tblsearch) function will return nil if the table entry is not found.
So you just test it for a non-nil value.

http://www.hyperpics.com/customizati...nce.asp?id=200

with thanks to all.

[BeKirra]

Try

(tblsearch "LAYER" "Landscape")

From the HELP, I found the following description for the tblsearch function:
(tblsearch table-name symbol [setnext])

With your sample, the table-name is LAYER.
And another one I know is STYLE.

How to get the complete list of table-name?

Thanks again.

[kennet.sjoberg]

. . . How to get the complete list of table-name?

From the HELP tblnext, valid table-name values are "LAYER", "LTYPE", "VIEW", "STYLE", "BLOCK", "UCS", "APPID", "DIMSTYLE", and "VPORT".

: ) Happy Computing !

kennet

[irneb]

And to see exactly what's returned if the layer is found with tblsearch, check the DXF / TABLES Section in Developer Help.

[BeKirra]

From the HELP tblnext, valid table-name values are "LAYER", "LTYPE", "VIEW", "STYLE", "BLOCK", "UCS", "APPID", "DIMSTYLE", and "VPORT".

: ) Happy Computing !

kennet

Thank you & also thanks to irneb.