Macro to put objects on a certain layer.

[Anonymous]

I'm using Autocad 2013 OEM with WoodCadCam interface.

I want to make a macro that puts certain objects in a certain layer.

I can't use the command CHPROP or COPYTOLAYER.

Can anyone help me out here?

Thanks!

[ВeekeeCZ]

Why not? Have you tried .CHPROP? - note the dot.

Does it have to be a macro?

Maybe a lisp... 

(vl-load-com)

(defun c:PutToLayer (/ layer obj ss i)

  (setq layer "MyLayer")
  
  (if (and (setq ss (ssget "_:L"))
	   (or (tblsearch "LAYER" layer)
	       (vl-cmdf "_.layer" "_n" layer ""))
	   )
    (repeat (setq i (sslength ss))
      (setq obj (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
      (vla-put-layer obj layer)))
  (princ)
)

[dbhunia]

Try this......

First make the layer current into which you want to move the selected objects.....

^C^C_select;\_change;p;;p;la;$m=$(getvar,clayer);;

Or if you enter the layer name manually then try this......By this no need to make the layer current into which you want to move the selected objects.....

^C^C_select;\_change;p;;p;la;

Why don't use Quick select to select the certain objects and put them into the selected layer (by selecting the layer from Layers tool).......

[Anonymous]

Hello,

Thank you, but I can't use AutoLisp, or the command change or select.

It is an oem version. That is the thing.

[ВeekeeCZ]

I see. In my understanding of OEM limits, this should work. But cannot test it.

(defun c:PutToLayerMyLayer (/ layer ed ss i)

  (setq layer "MyLayer")
  
  (if (and (or (tblsearch "LAYER" layer)
	       (prompt (strcat "\nLayer '" layer "' was not found in the drawing.")))
	   (setq ss (ssget "_:L")))
    (repeat (setq i (sslength ss))
      (setq ed (entget (ssname ss (setq i (1- i)))))
      (entmod (subst (cons 8 layer)
		     (assoc 8 ed)
		     ed))))
  (princ)
)

[Anonymous]

I can't use Lisp routines either.

[ВeekeeCZ]

And are you even able to do that somehow manually right now? 

[Anonymous]

Of course. I can select them with my mouse and select the concerning layer, and it works. But I need a command line command to use it in a macro.