[求助]：LISP高手请看一下：加强型快速移动文字

雪茄

我编了一个加强型快速移动文字的小程序，功能为：点文字后,就可点插入点。移动文字只需两次击鼠标，但我现在点插入点时看不见文字的虚影（用move时有），所以文字很难准确定位，有时文字落在线上，还的再挪文字，这可不是我所想要的，各位高手给指点一下，谢谢！
源程序如下：

(defun C:mm()
(setvar "cmdecho" 0)
(setq en1 (entsel))                 ；选文字
(while en1
(setq en1_data (entget (car en1)))
(setq p1d (assoc 10 en1_data))
(setq p1 (cdr p1d))
(command "move" en1 "" p1 (getpoint p1))
(setq en1 (entsel))
)
(prin1)
)
请指导