Moving entire layer(s) to a new defined layer by selection an object
I don't think you need any code for this. LAYMRG [= LAYer MeRGe] lets you select just an object to define the Layer [or an object each on multiple Layers] you want to move to another, or to type in the Layer name, and the same for the target Layer [i.e., you can still do it even if there are no objects on the appropriate Layer(s) currently in view].
try by changing the code into something like this.
;;;;;;;;;;;;;; Here would be the change?
(setq new_lay "CONTOURS")
(foreach obj ss_obj_list
(setq obj_lay (cdr (assoc 8 (entget obj))))
(if (not (wcmatch obj_lay new_lay))
(progn
(command "_.rename" "_la" obj_lay new_lay)
(command "_.layer" "_co" 3 new_lay "")
(princ (strcat "\nLayer \"" obj_lay "\" rename to: \"" new_lay))
);progn
(princ "Layer name is same, nothing changed");
);if
| 
| 
@s_plant wrote:
I found this lisp.... The only change that I want to do is to disable user input layer naming and approval. I have set of layer name. ....
In simplest terms, try changing this part:
(if (not usermel) (setq usermel "0") );if
(setq a (strcase (getstring (strcat
"Move Entire Layer \nEnter destination layer <" usermel ">: "))))
(if (= (strlen a) 0) (setq a usermel) );if
to this:
(setq a "YourLayerName")
It could be simplified further if you know the Layer will always already exist in the drawing, and will already be frozen if that's what you're after. [And in some other ways -- there are some unnecessary elements there -- but first try the simple change.]
@s_plant wrote:
.... Now how can I change the color to "3" LT to "Center" and LW "0.25"?
Purge is not working?why?!!
You have a choice about how to handle the color/linetype/lineweight part. You could add the color/linetype/lineweight to the Layer definition, and force all of those to be ByLayer for each object before moving it to that Layer. Or you could force those as overrides on each object.
Purge may not be working because there may be things on that Layer nested in Block definitions -- that's one of the advantages of LAYMRG, which will change those, too, and will eliminate the old Layer so you don't need to Purge it. Or it may still be the current Layer, which you can't Purge -- use the Make option instead of the New option in the Layer command to take care of that.
@s_plant wrote:
....
BeeKeeCZ, thanks for you neat code. There is only one issue with this code which is fine with my modified lisp. When I change text style to layer "0" (I removed the exception part (/= li "0") ) it does not move text objects to the ABC layer.any idea?
I would assume that's because LAYMRG Purges the source Layer, and it's not going to let you do that with Layer 0. If you want to do things on Layer 0, you're going to need to use an approach that moves things one way or another, without getting rid of the source Layer, rather than by way of LAYMRG. Presumably you could have a routine that checks for the source Layer's name first, and if it's not Layer 0, uses LAYMRG, but if it is, uses CHPROP or (subst)/(entmod) or (vla-put-Layer) or some such thing on all the objects on that Layer.
