Move PLine and Line specific color to other layer

[mbelleza]

Hi,

I have lines and polylines in two different colors (150 and 200) in the same layer, layer W for now.

I would like to move all color 150 lines and polylines to layer Y and the color 200 to layer Z.

I know that I need to use something like this:

(setq ss (ssget "X" '((0 . "*TEXT") (62 . 1)))

 I dont know how to limit the search to layer W.

[dlanorh · Accepted solution]

Try this. Not tested as I'm no acad on this laptop.

The (8 . "W") in the ssget line is how you filter for the layer

(defun c:test ( / c_doc ss)
	(setq   c_doc (vla-get-activedocument (vlax-get-acad-object))
		ss (ssget "_X" '((0 . "LINE,*POLYLINE") (8 . "W")))
	)
	(vlax-for obj (vla-get-activeselectionset c_doc)
	  (if (= (vlax-get-property obj 'color) 150) (vlax-put-property obj 'layer "Y"))
	  (if (= (vlax-get-property obj 'color) 200) (vlax-put-property obj 'layer "Z"))
	)
)	

[mbelleza]

It works, thank you very much!!!

[dlanorh]

---

@dlanorh wrote:

Try this. Not tested as I'm no acad on this laptop.

The (8 . "W") in the ssget line is how you filter for the layer

(defun c:test ( / c_doc ss)
        (vl-load-com)
	(setq   c_doc (vla-get-activedocument (vlax-get-acad-object))
		ss (ssget "_X" '((0 . "LINE,*POLYLINE") (8 . "W")))
	)
	(vlax-for obj (vla-get-activeselectionset c_doc)
	  (if (= (vlax-get-property obj 'color) 150) (vlax-put-property obj 'layer "Y"))
	  (if (= (vlax-get-property obj 'color) 200) (vlax-put-property obj 'layer "Z"))
	)
)	

---

Amended code : Forgot the (vl-load-com)