(setq selez (ssget))
(setq n 0)
(setq ent1 (ssname selez n))
(while (/= ent1 nil)
(progn
(command "_chprop" ent1 "" "_c" "1" "")
;--
(setq n (+ n 1))
(setq ent1 (ssname selez n))
)
)
(setq selez (ssget))
(setq n 0)
(setq ent1 (ssname selez n))
(while (/= ent1 nil)
(progn
(entdel ent1)
;--
(setq n (+ n 1))
(setq ent1 (ssname selez n))
)
)