I always use this code:



; setq oldblocksome in a way you like first...
; setq newblocksome in a way you like first...

(if (/= newblockname "")
(progn
(setq blockobjecten (ssget "_X"...