Remove selection method

[pt_zooropa]

How can i change my routine to remove the selection method? Thanks

(setq ce (getvar "cmdecho"))
(setq ln (getvar "clayer"))
(setq ss (ssget))
(if (= (tblsearch "layer" "TMF") nil)
(command "layer" "make" "A-ARQUITECTURA" "color" "40" "" "lt" "Continuous" """"))
(command "chprop" ss "" "la" "A-ARQUITECTURA" "ltype" "" "Color" """")
(setvar "clayer" ln)
(setvar "cmdecho" ce)
(princ)

(vl-load-com)
(vlax-for blk (vla-get-blocks
(vla-get-ActiveDocument
(vlax-get-acad-object)
)
)
(vlax-for obj blk
(vla-put-Layer obj "A-ARQUITECTURA")
(vla-put-Color obj 40)
)
)

[rkmcswain]

Are you talking about removing the (ssget)?

[pt_zooropa]

Are you talking about removing the (ssget)?
maybe ssget "X" select everything?