(Defun c:cl ( ) (Prompt "\nChon doi tuong muon chuyen lop...") (Setq chuyen (Ssget)) (command "chprop" chuyen "" "la" "!es1-netthay" "") (Princ) )