Autocad lisp change attribute block with command