add a layer directly to the table..?

ok.. you can use..
(TBLSEARCH "LAYER" "TEXT")
to see the xdata of a layer.. but how can i add a layer to the table?..
(without using core cad commands ie:layer)

I know it must be possible.. but how? (the cad help only details vba,
and i'm basic/moderate lisp)

TIA

 

(setq mylayer (vla-add (vla-get-layers (vla-get-activeDocument (vlax-get-acad-object))) "layername"))



Bill

 

ok.. few questions..

1) why setq mylayer?
2) how do I set the layer properties this way?

 

You can add a new object to the layer collection
with something like this.

(setq
object
(vla-add
(vla-get-layers
(vla-get-activedocument
(vlax-get-acad-object)))
"MyNewLayer"
)
)

(vlax-put object 'color 6)
(vlax-put object 'linetype "Hidden")
(vlax-put object ......)


Of course, if you are adding multiple layers
you should assign the layer collection to a
variable, rather than access each time you
add a layer.

 

"Of course, if you are adding multiple layers
you should assign the layer collection to a
variable, rather than access each time you
add a layer."

and how would I do that? (I'm thinking that this is the easy part, but I
can't figure out how..)

 

1.) mylayer is the variable that holds the object.

Hence: #2

(vla-put-color mylayer "30")
(vla-put-lineweight mylayer acLnWt018)
(vla-put-plotstyleName mylayer "Screening 100%.ctb")

etc.


Bill

 

(setq
layerCollection
(vla-get-layers
(vla-get-activedocument
(vlax-get-acad-object))) )


(setq object (vla-add layerCollection) "MyNewLayer")

 

Typo alert

(setq object (vla-add layerCollection "MyNewLayer"))

 

thank you, that should work.

 

thanks

 

If you're using lsp, and have acad.lsp, then use something like the following:

(if (not (tblsearch "layer" "1"))
(command "layer" "M" "1" "c" "red" "1" "L" "continuous" "1" ""))

 

that is the way i was doing it. now doing it without using a "cad command".