Is there a lisp to move selected objects to a desired layer but does not change their current colors?

[Elektrik]

Thanks in advance.

[BIGAL]

So if a object is on layer 1 and its color is by ByLayer, you want it now on layer2 but with color of  layer 1 or if its not bylayer the color should just maintain anyway.

[Elektrik]

8 hours ago, BIGAL said:

So if a object is on layer 1 and its color is by ByLayer, you want it now on layer2 but with color of  layer 1 or if its not bylayer the color should just maintain anyway.

 

Yes, a object is on layer 1 and its color is by ByLayer, I want it now on layer2 but with color of  layer 1.

[abra-CAD-abra]

Elektrik, this VLA approach should set you in the right direction. No error trapping.

 

(defun C:LAYER-TEST ( / doc lay suf sel lyr col )

  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (setq lay (vla-get-layers doc))
  (setq suf "_1")

  (if (ssget)

    (progn

      (vlax-for	x (setq	sel (vla-get-activeselectionset doc))

	(cond

	  ((not	(tblsearch "Layer" (setq lyr (strcat (vla-get-layer x) suf))))
	   (vla-put-color
	     (vla-add lay lyr)
	     (setq col (vla-get-color (vla-item lay (vla-get-layer x))))
	   )
	   (vla-put-layer x lyr)
	  )

	  ( t

	   (if (not (= (vla-get-color (vla-item lay lyr)) col))
	     (progn
	       (vla-put-color (vla-item lay lyr) col)
	       (vla-put-layer x lyr)
	     )
	   )

	  )

	)

      )

      (vla-delete sel)

    )
  )

  (princ)
  
)

(princ)