求助参考移动（可设定移动的间距的角度和间距）求记忆上一次的设置
(defun c:yd ()(setvar "cmdecho" 0)
(setq cy (getvar "clayer"))
(setq os(getvar 'osmode) cmd(getvar 'cmdecho))
(setvar 'cmdecho 0)
(setq ss (ssget))
(setq dis (getpoint "\输入间距值:《第一点》 "))
(setq dis1 (getpoint dis "\n指定下一点<方向和距离点>: "))
(setq p1 (getpoint "\n指定基点或位点: "))
(setq p2 (getpoint p1 "\n指定下个基点或位点: "))
(setq shr1 (distance dis dis1))
(setq ang1 (angle dis dis1))
(setq pd1 (polar p1 ang1 shr1))
(setvar "osmode" 0)
(command "move" ss "" pd1 p2 )
(setvar "osmode" os)
(setvar "cmdecho" cmd)
(princ)
)以上是一个定制间距在移动命令 想在这里加入一个记忆功能，角度和距离同时记忆上一次的输入值。谢谢！
页:
[1]