an AutoLISP routine that substitutes the symbol for blocks without changing the attributes of existing blocks.