求助参考移动（可设定移动的间距的角度和间距）求记忆上一次的设置

hehoubin

2. (defun c:yd ()
   
3.   (setvar "cmdecho" 0)
   
4.   (setq cy (getvar "clayer"))
   
5.   (setq os(getvar 'osmode) cmd(getvar 'cmdecho))
   
6. (setvar 'cmdecho 0)
   
7. (setq ss (ssget))
   
8.     (setq dis (getpoint "\输入间距值:《第一点》 "))
   
9.   (setq dis1 (getpoint dis "\n指定下一点<方向和距离点>: "))
   
10.     (setq p1 (getpoint "\n指定基点或位点: "))
    
11.   (setq p2 (getpoint p1 "\n指定下个基点或位点: "))
    
12.   (setq shr1 (distance dis dis1))
    
13.   (setq ang1 (angle dis dis1))
    
14.    (setq pd1 (polar p1 ang1 shr1))
    
15.   (setvar "osmode" 0)
    
16. (command "move" ss "" pd1 p2 )
    
17. (setvar "osmode" os)
    
18. (setvar "cmdecho" cmd)
    
19.   (princ)
    
20.      )

(defun c:yd ()<br />   (setvar "cmdecho" 0)<br />   (setq cy (getvar "clayer"))<br />   (setq os(getvar 'osmode) cmd(getvar 'cmdecho))<br /> (setvar 'cmdecho 0)<br /> (setq ss (ssget))<br />     (setq dis (getpoint "\输入间距值:《第一点》 "))<br />   (setq dis1 (getpoint dis "\n指定下一点<方向和距离点>: "))<br />     (setq p1 (getpoint "\n指定基点或位点: "))<br />   (setq p2 (getpoint p1 "\n指定下个基点或位点: "))<br />   (setq shr1 (distance dis dis1))<br />   (setq ang1 (angle dis dis1))<br />    (setq pd1 (polar p1 ang1 shr1))<br />   (setvar "osmode" 0)<br /> (command "move" ss "" pd1 p2 )<br /> (setvar "osmode" os)<br /> (setvar "cmdecho" cmd)<br />   (princ)<br />      )

以上是一个定制间距在移动命令 想在这里加入一个记忆功能，角度和距离同时记忆上一次的输入值。谢谢！