I want a lisp to find all objects with center assigned to it and set color to by layer, layer to E-CEN, linetype to BYlayer and Lineweight to by layer
(setq LT_LIST (list "CENTER" "CENTER2" "CENTERX2"))
(foreach LT_NAME LT_LIST
(command "._chprop" (ssget "X" '((6 . "CENTER"))) "" "C" "bylayer" "LT" "bylayer" "LW" "bylayer" "la" "E-CEN" "")
(command "._chprop" (ssget "X" '((6 . "CENTER2"))) "" "C" "bylayer" "LT" "bylayer" "LW" "bylayer" "la" "E-CEN" "")
(command "._chprop" (ssget "X" '((6 . "CENTERX2"))) "" "C" "bylayer" "LT" "bylayer" "LW" "bylayer" "la" "E-CEN" "")
)
I also want it to work in blocks