有没有动态移动文字的办法？

aprilsea

谢谢各位，这两天太忙没来得及回复。实测文字还是虚化。我这个要求的初衷是为了看清移动轨迹

aprilsea

菜卷鱼 发表于 2013-12-30 11:25
在这个论坛，首先要先学会搜索功能

没搜到合适的，看来是需要用到动态了，过几天研究下动态的写法

浮世小半生

(defun c:tt ()
  (setq eg1 (entget (car (entsel "\n選擇文字"))))
  (setq go 1)
  (while go
    (setq ged (grread 4 0))
    (if        (= (car ged) 5)
      (entmod (subst (cons 10 (cadr ged)) (assoc 10 eg1) eg1))
      (setq go nil)
    )
  )
)

aprilsea

浮世小半生 发表于 2013-12-31 13:42
(defun c:tt ()
  (setq eg1 (entget (car (entsel "\n選擇文字"))))
  (setq go 1)

谢谢！基础效果正是如此，果然是grread，我来改下别的就好用了！

菜卷鱼

aprilsea 发表于 2013-12-31 10:28
没搜到合适的，看来是需要用到动态了，过几天研究下动态的写法

你搞个示意图，看你要怎样的功能，我看我会不会

aprilsea

菜卷鱼 发表于 2013-12-31 15:00
你搞个示意图，看你要怎样的功能，我看我会不会

不好意思没录制gif的工具。就是实现这样的效果，前面的网友做的基本效果了，我改成了：
(defun c:tt ()
  (setq eg1 (entget (car (entsel "\n请选择文字："))))
  (setq go 1)
  (while go
    (setq ged (grread T 4 1))
    (if (= (car ged) 5)
      (entmod (subst (cons 10 (cadr ged)) (assoc 10 eg1) eg1))
      (setq go nil)
    )
  )
)


不带光标。
但存在两个问题：
1、移动过程中不能使用正交等开关（grread的硬伤，但使用G版的模拟grread失败）
2、esc取消不能回到原来位置，这点不如move命令

菜卷鱼

aprilsea 发表于 2013-12-31 15:35
不好意思没录制gif的工具。就是实现这样的效果，前面的网友做的基本效果了，我改成了：
(defun c:tt ()
...

你还要正交功能？那我做不了动态了

菜卷鱼

如果这是你要的效果，右下角给我评分！

1. (defun c:tt ( )
   
2. (setq ent (ssget ":e:s" ))
   
3. (setq pt (cdr (assoc 10 (entget (ssname  ent 0)))))
   
4. (command "_.move" ent ""  pt pause)
   
5. (prin1)
   
6. )

(defun c:tt ( )<br /> (setq ent (ssget ":e:s" ))<br /> (setq pt (cdr (assoc 10 (entget (ssname  ent 0)))))<br /> (command "_.move" ent ""  pt pause)<br /> (prin1)<br /> )

edata

带正交不带捕捉的fas格式不知道楼主能否接受，不接受就算了，昨晚熬夜写的，没时间发，在外跑了一天，现在才回家，手机上的网。

aprilsea

edata 发表于 2013-12-31 19:15
带正交不带捕捉的fas格式不知道楼主能否接受，不接受就算了，昨晚熬夜写的，没时间发，在外跑了一天，现在才 ...

能啊，只要能完美实现这个效果就可以，先谢谢了