为啥没有拖动效果？(command "_.text" pause 3 0 "AAA")

wdb

(command "_.text" pause 3 0 "AAA")不见拖动效果，怎么办才能有拖动效果？

alin

After the insertion of the text, use Grread to trace the cursor position and at the same time, update the insertion of the text.

wdb

谢谢alin,能写出代码吗？

mkhsj928

参考一下 (defun c:xz( / m_wz m_pt)
(setq m_wz "AAA")
(setq m_pt (getvar "viewctr"))
(command "text" "mc" m_pt 3 0 m_wz)
(command "block" "m_blocktmp" m_pt (entlast) "")
(princ"\n标注点：")
(command "insert" "m_blocktmp" pause "" "" "")(command) （command"explode" (entlast))(command)
(command"-purge" "b" "m_blocktmp" "y" "y")(command)

(princ)
)

wdb

非常好，谢谢