[求助]：移动图元时可不可以不显示原来位置的图元和矢量线

fireplay

我想一定一个圆，只想显示图圆跟随光标移动，而不显示虚线的原图和矢量线

carrot1983

这样子，很好玩吗？？？？
楼主，有时间玩这个，应该认真学点东西。
当我没说。。。。
[php]
(defun c:tt (/ _sset pos_mouse pt_mouse pt)
  (setq echo (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq _sset (ssget))
  (setq pt (getpoint "\n指定基点:"))
  (while (= (car (setq pos_mouse (grread t 1 0))) 5)
    (setq pt_mouse (cadr pos_mouse))
    (command "_.move" _sset "" pt pt_mouse)
    (setq pt pt_mouse)
  )
  (setvar "cmdecho" echo)
  (princ)
)


[/php]

carrot1983

这样子，很好玩吗？？？？
楼主，有时间玩这个，应该认真学点东西。
当我没说。。。。
[php]
(defun c:tt (/ _sset pos_mouse pt_mouse pt)
  (setq echo (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq _sset (ssget))
  (setq pt (getpoint "\n指定基点:"))
  (while (= (car (setq pos_mouse (grread t 1 0))) 5)
    (setq pt_mouse (cadr pos_mouse))
    (command "_.move" _sset "" pt pt_mouse)
    (setq pt pt_mouse)
  )
  (setvar "cmdecho" echo)
  (princ)
)


[/php]

zml84

2楼的代码已经满足楼主的要求了。
为了实现右键退出，可以接着修改为：

2. 
   
3. (defun C:TT (/ _SSET POS_MOUSE PT_MOUSE PT)
   
4.     (setq ECHO (getvar "cmdecho"))
   
5.     (setvar "cmdecho" 0)
   
6.     (if        (and (setq _SSET (ssget))
   
7.              (setq PT (getpoint "\n指定基点:"))
   
8.              (princ "\n移动到:")
   
9.         )
   
10.         (while (= (car (setq POS_MOUSE (grread t 1 0))) 5)
    
11.             (setq PT_MOUSE (cadr POS_MOUSE))
    
12.             (command "_.move" _SSET "" PT PT_MOUSE)
    
13.             (setq PT PT_MOUSE)
    
14.         )
    
15.     )
    
16.     (setvar "cmdecho" ECHO)
    
17.     (princ)
    
18. )
    

<br /> (defun C:TT (/ _SSET POS_MOUSE PT_MOUSE PT)<br />     (setq ECHO (getvar "cmdecho"))<br />     (setvar "cmdecho" 0)<br />     (if        (and (setq _SSET (ssget))<br />              (setq PT (getpoint "\n指定基点:"))<br />              (princ "\n移动到:")<br />         )<br />         (while (= (car (setq POS_MOUSE (grread t 1 0))) 5)<br />             (setq PT_MOUSE (cadr POS_MOUSE))<br />             (command "_.move" _SSET "" PT PT_MOUSE)<br />             (setq PT PT_MOUSE)<br />         )<br />     )<br />     (setvar "cmdecho" ECHO)<br />     (princ)<br /> )<br />

fireplay

对不起楼上的两位，也许是我没有说清楚，当光标带动图元移动时，光标还要具有捕捉功能，如果按两位的方法我早就试验过了，不但光标没有捕捉功能，而且图象还闪的非常厉害，不知用别的什么方法能解决我这个问题。