带记忆功能的移动--【源代码】

hhh454

简单的代码，qq群里有人问的，我学着写的，新手有抄袭的部分，呵呵下面是图片说明：


下面是代码：

2. ;x正反方向移动带记忆，正数为正方向，负数为反方向
   
3. (defun c:tt1 (/ Newmove ngc_snx ngc_ty)
   
4.   (setvar "CMDECHO" 0)
   
5.   (if *move* (setq Newmove (getreal (strcat  "\n移动值<" (rtos *move* 2 2) ">:") ) )
   
6.       (setq Newmove (getreal  "\n移动值:"))
   
7.     )
   
8.   (if (null Newmove) (setq Newmove *move*) (setq *move* Newmove))
   
9.   (setq ngc_snx (strcat (rtos *move* 2 2) ",0,0" )
   
10.         ngc_ty (ssget))
    
11.   (command ".move" ngc_ty "" "d" ngc_snx )
    
12.   (setvar "CMDECHO" 1)
    
13.   (princ)
    
14.   )
    
15. 
    
16. ;y正反方向移动带记忆，正数为正方向，负数为反方向
    
17. (defun c:tt2 (/ Newmove ngc_snx ngc_ty)
    
18.   (setvar "CMDECHO" 0)
    
19.   (if *move* (setq Newmove (getreal (strcat  "\n移动值<" (rtos *move* 2 2) ">:") ) )
    
20.       (setq Newmove (getreal  "\n移动值:"))
    
21.     )
    
22.   (if (null Newmove) (setq Newmove *move*) (setq *move* Newmove))
    
23.   (setq ngc_snx (strcat "0," (rtos *move* 2 2) ",0" )
    
24.         ngc_ty (ssget))
    
25.   (command ".move" ngc_ty "" "d" ngc_snx)
    
26.   (setvar "CMDECHO" 1)
    
27.   (princ)
    
28.   )
    

;x正反方向移动带记忆，正数为正方向，负数为反方向<br /> (defun c:tt1 (/ Newmove ngc_snx ngc_ty)<br />   (setvar "CMDECHO" 0)<br />   (if *move* (setq Newmove (getreal (strcat  "\n移动值<" (rtos *move* 2 2) ">:") ) )<br />       (setq Newmove (getreal  "\n移动值:"))<br />     )<br />   (if (null Newmove) (setq Newmove *move*) (setq *move* Newmove))<br />   (setq ngc_snx (strcat (rtos *move* 2 2) ",0,0" )<br />         ngc_ty (ssget))<br />   (command ".move" ngc_ty "" "d" ngc_snx )<br />   (setvar "CMDECHO" 1)<br />   (princ)<br />   )<br /> <br /> ;y正反方向移动带记忆，正数为正方向，负数为反方向<br /> (defun c:tt2 (/ Newmove ngc_snx ngc_ty)<br />   (setvar "CMDECHO" 0)<br />   (if *move* (setq Newmove (getreal (strcat  "\n移动值<" (rtos *move* 2 2) ">:") ) )<br />       (setq Newmove (getreal  "\n移动值:"))<br />     )<br />   (if (null Newmove) (setq Newmove *move*) (setq *move* Newmove))<br />   (setq ngc_snx (strcat "0," (rtos *move* 2 2) ",0" )<br />         ngc_ty (ssget))<br />   (command ".move" ngc_ty "" "d" ngc_snx)<br />   (setvar "CMDECHO" 1)<br />   (princ)<br />   )<br />

下面是文件，可以直接下载：



该贴已经同步到 hhh454的微博

999999

好贴子遇到了，还是得顶起来学习的

wx_fCZsGgCb

感谢楼主的无私奉献精神！！！

magicheno

感谢大佬分享，学习了~

haoryh

路过，顶一个！

kwok

不错,不过不实用,要任意方向记忆移动更好..

ddisddis

论坛上有个用鼠标控制方向的，可以搜搜看，

lidaxiu

Y方向上好像有问题，可以利用CAD自带的MOVE里的（D）编个更简单的随意方向的记忆移动

hhh454

初学的，就是用了几个很简单的命令实现一个功能，呵呵，我也知道肯定有更加简单的办法，希望高手指教

mp3_2004

感谢楼主的无私奉献精神！！！

longer1000

感谢楼主

moshouhot

楼主的分享功能非常佩服，希望有高手能优化一下，达到记忆原移动矢量的功能，相当于原移动功能的加强版。

bdboy

不错 有记忆功能，但如果能改成随鼠标方向会好很多，比输入正负号方便多了