Macro: CLAYER+LAYCUR

[M.Lindell]

Hello,
I have made quick buttons for my favourite layers. (faster than scrolling the full list of layers)
   -Macro: CLAYER "Layer name here"
I would like it to also change the layer of a selected object.

So I want to combine CLAYER and LAYCUR.
I always lose the selection after CLAYER-command and I can't select PREVIOUS for LAYCUR because it would change the previous modified object even if I have nothing selected.

Little help would be appreciated 🙂

[pendean]

Aren't you just looking for LAYMCUR command https://knowledge.autodesk.com/support/autocad/learn-explore/caas/CloudHelp/cloudhelp/2021/ENU/AutoC...

[CodeDing · Accepted solution]

@M.Lindell ,

I'm no expert with macros, but I believe this is what you're looking for. Try this as your macro (update your layer name):

(progn (setq ss (ssget "_I")) (setvar 'CLAYER "Layer Name Here") (if ss (command "_.LAYCUR" ss "") (command "_.LAYCUR" pause)) (setq ss nil) (princ))

Best,

~DD

[ВeekeeCZ]

Since the only purpose of setting your layer current is to serve to the LAYCUR command... Don't you rather want to just CHANGE a layer of preselected/selected objects to some of your predefined layers? Leaving the layer Current might be confusing.

BTW Are you on LT?

[ВeekeeCZ]

---

@ВeekeeCZ wrote:

Since the only purpose of setting your layer current is to serve to the LAYCUR command... Don't you rather want to just CHANGE a layer of preselected/selected objects to some of your predefined layers? Leaving the layer Current might be confusing.

BTW Are you on LT?

---

If you not on LT here's the lisp/macro for you button to just change the layer.

((lambda (/ s) (if (setq s (ssget "_:L")) (command "_.chprop" s "" "_la" "_kom_1_hrany" "")) (princ)))

[Kent1Cooper]

Maybe you can use variants of this routine:

(defun C:L0 ()
  ; put pre-selected object(s) [if any] on Layer 0, otherwise set current Layer to 0
  (if (ssget "_I")
    (command "_.chprop" "_layer" "0" ""); then
    (command "_.layer" "_thaw" "0" "_set" "0" ""); else
  ); if
  (princ)
)

If there are any pre-selected objects, it puts them on Layer 0 [you can substitute a different Layer name, and make such a command for any Layer(s) you need].  If there are no pre-selected objects, it sets Layer 0 current.  [It does not account for possible locked Layers, but they would not cause an error -- they just won't be changed.]

Or, maybe you can use something like this, which is to put things on the current Layer:

;| ToCurrentLayer.lsp [command name: TCL]
  Moves selected objects to current layer.
  Kent Cooper, last edited 29 Jan 2021 to allow pre-selection
|;
(defun C:TCL (); = To Current Layer
  (command "_.chprop"
    (cond
      ((ssget "_I") (ssget "_:L-I")); unlocked only among pre-selection if any
      ((ssget "_:L")); otherwise, unlocked only among new selection
    ); cond
    "" "_layer" (getvar 'clayer) ""
  ); command
  (princ)
); defun

If there are any pre-selected objects, it moves them [any of them not on locked Layers, that is] to the current Layer.  If not, it asks the User to select objects [again forbidding those on locked Layers], and moves them to the current Layer.

But I agree with the question -- is the only reason for changing the current Layer to move things to it?  It's not necessary to do it that way, but you can just put things on that Layer without making it current, as the L0 command above does if there's a pre-selection.

[M.Lindell]

Thank you very much!
I added ;^C^C at the end and now it works just as I wanted.

I'm no expert either with macros and couldn't have been able to figure that one out without your help.

[M.Lindell]

Thank you for responding. The first routine is really good alternative but I think the one @CodeDing shared works better for me (;^C^C added at the end).

 "is the only reason for changing the current Layer to move things to it?"
  -No. For me the primary function of this macro is to change layers among my "favourites" but often I have noticed that I need need to take some object to that new layer at the same time.