A few minor things off the bat:
(defun MoveSHT_OptionsDRHorton
( / c e s
) '(0 . "INSERT")
'(2 . "SHT_OptionsDRHorton*")
'(410 . "Model")
)
)
)
)
)
)
)
)
- Include the entity type (INSERT) in the selection set filter list.
- Check for the existence of a selection set before doing anything.
- Only obtain the selection set once.
- Since you are using the MOVE command, only operate on objects in the current layout/viewport.
- Transform the insertion point to be relative to the active UCS when using points in a command call.
- Only change CMDECHO if a selection set exists.
You could of course abandon the
MOVE command and use
entmod or
vla-put-insertionpoint.
This all assumes that your block is non-dynamic.