seemingly strange behavior is chargeable to the entmake function.
After command (command "_move" ...) add this line:
(princ (strcat "\ntipo entita: (cdr) "\n")
of any entity that selects you the type; in the presence of primitive entities, line, pline, circle etc., entmake education does not create difficulties, just pass the list obtained from nentsel and works.
in the presence of blocks, before passing the list you should calculate scale factors and other parameters that the enclosed routine does not.
I hope I've made it clear to you.
bye