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

aprilsea

RT，求动态移动文字，不像m命令那样，不要选基点，文字处于正常状态（不是选中的虚化状态），随光标移动，支持正交等限制。

蓝图测绘

这个想法高级，图上有许多文字时，如果不选择，怎么知道要移动哪个文字？

ysq101

楼上所说极是啊~~~~

林霄云

楼主说的或许是这个意思，移动不要手动选基点，直接取其插入点作为基点。然后支持左键确定位置，右击取消移动。

aprilsea

林霄云 发表于 2013-12-29 21:10
楼主说的或许是这个意思，移动不要手动选基点，直接取其插入点作为基点。然后支持左键确定位置，右击取消移 ...

正是这个意思，不过esc取消移动就好了，右键也可以

菜卷鱼

在这个论坛，首先要先学会搜索功能

蓝图测绘

2. (defun C:lxyd ( )
   
3.   (while
   
4.     (setq en (entsel "选择对象:"));选择一个对象、空选退出
   
5.     (setq en_data (entget (car en)))
   
6.     (setq ptz (cdr (assoc 10 en_data)))
   
7.     (setq x (car ptz) y (cadr ptz))
   
8.     (setq pt (list x y))
   
9.     (command "move" en "" pt pause)
   
10.   )
    
11. )

(defun C:lxyd ( )<br />   (while <br />     (setq en (entsel "选择对象:"));选择一个对象、空选退出<br />     (setq en_data (entget (car en))) <br />     (setq ptz (cdr (assoc 10 en_data))) <br />     (setq x (car ptz) y (cadr ptz))<br />     (setq pt (list x y))<br />     (command "move" en "" pt pause)<br />   )<br /> )

林霄云

2. (defun C:dv ();dynamic move
   
3.   (while
   
4.     (setq en (entsel "\n选择对象:"));选择一个对象、空选退出。
   
5.     (setq ent (car en))
   
6.     (setq en_data (entget ent))
   
7.     (setq pt0 (cadr en))
   
8.     (setq pt (list (car pt0)(cadr  pt0)));二维点。
   
9.     (setq enttype (cdr (assoc 0 en_data)));取type进行判断
   
10.     (if (or (= enttype "TEXT")
    
11.       (= enttype "LINE");对线对象也可以
    
12.       )
    
13.         (command "move" en "" pt pause)
    
14.       )
    
15. );while
    
16.   (princ)
    
17. );defun

(defun C:dv ();dynamic move<br />   (while<br />     (setq en (entsel "\n选择对象:"));选择一个对象、空选退出。<br />     (setq ent (car en))<br />     (setq en_data (entget ent))<br />     (setq pt0 (cadr en))<br />     (setq pt (list (car pt0)(cadr  pt0)));二维点。<br />     (setq enttype (cdr (assoc 0 en_data)));取type进行判断<br />     (if (or (= enttype "TEXT")<br />       (= enttype "LINE");对线对象也可以<br />       )<br />         (command "move" en "" pt pause)<br />       )<br /> );while<br />   (princ)<br /> );defun

给一个完善一点的免基点输入的所谓，动态移动

edata

我来个简单的。command法。

2. (defun c:mm (/ ss *error*_New)
   
3.   (defun *error*_New (msg)
   
4.     (if        *error*_Old
   
5.       (setq *error* *error*_Old)
   
6.     )
   
7.     (if        cmd_old
   
8.       (setvar "cmdecho" cmd_old)
   
9.     )
   
10.     (if        (wcmatch (strcase msg t) "*break,*cancel*,*exit*,*取消*")
    
11.       (princ)
    
12.     )
    
13.     (setq cmd_old (getvar "cmdecho"))
    
14.     (setvar "cmdecho" 0)
    
15.     (command "undo" "e")
    
16.     (if        cmd_old
    
17.       (setvar "cmdecho" cmd_old)
    
18.     )
    
19.     (princ)
    
20.   )
    
21.   (setq *error*_Old *error*)
    
22.   (setq *error* *error*_New)
    
23.   (if (setq ss (ssget ":E:S"))
    
24.     (progn
    
25.       (setq cmd_old (getvar "cmdecho"))
    
26.       (setvar "cmdecho" 0)
    
27.       (command "undo" "be")
    
28.       ;(command "_cutclip" ss "")
    
29.       (command "_copyclip" ss "")
    
30.       (princ "\n指定位置:")
    
31.       (command "_pasteclip" pause)
    
32.       (command "erase" ss "")
    
33.       (command "undo" "e")
    
34.       (if cmd_old
    
35.         (setvar "cmdecho" cmd_old)
    
36.       )
    
37.       (if *error*_Old
    
38.         (setq *error* *error*_Old)
    
39.       )
    
40.     )
    
41.     (princ "\n未选中对象!")
    
42.   )
    
43.   (princ)
    
44. )

(defun c:mm (/ ss *error*_New)<br />   (defun *error*_New (msg)<br />     (if        *error*_Old<br />       (setq *error* *error*_Old)<br />     )<br />     (if        cmd_old<br />       (setvar "cmdecho" cmd_old)<br />     )<br />     (if        (wcmatch (strcase msg t) "*break,*cancel*,*exit*,*取消*")<br />       (princ)<br />     )<br />     (setq cmd_old (getvar "cmdecho"))<br />     (setvar "cmdecho" 0)<br />     (command "undo" "e")<br />     (if        cmd_old<br />       (setvar "cmdecho" cmd_old)<br />     )<br />     (princ)<br />   )<br />   (setq *error*_Old *error*)<br />   (setq *error* *error*_New)<br />   (if (setq ss (ssget ":E:S"))<br />     (progn<br />       (setq cmd_old (getvar "cmdecho"))<br />       (setvar "cmdecho" 0)<br />       (command "undo" "be")<br />       ;(command "_cutclip" ss "")<br />       (command "_copyclip" ss "")<br />       (princ "\n指定位置:")<br />       (command "_pasteclip" pause)<br />       (command "erase" ss "")<br />       (command "undo" "e")<br />       (if cmd_old<br />         (setvar "cmdecho" cmd_old)<br />       )<br />       (if *error*_Old<br />         (setq *error* *error*_Old)<br />       )<br />     )<br />     (princ "\n未选中对象!")<br />   )<br />   (princ)<br /> )

香田里浪人

l楼上3个程序都是左键移动右键删除