带记忆移动

a2580106803

带记忆移动
命令m

萧●﹏●明

• (defun c:m ()
•   (or (setq sg (ssget)) (setq sg gs))
•   (setq dyd (getpoint "\n第一个点或空格重复上次移动距离:"))
•   (setq drd (getpoint dyd "\n第二个点:"))
•   (setq gs sg)
•   (angle dyd drd)
•   (setq poa (polar '(0 0) (angle dyd drd) (distance dyd drd)))
•   (command "move" sg "" dyd drd)
•   (setq dyd nil)
•   (while (NOT dyd)
•     (command "move" sg "" "d" poa)
•     (setq dyd (getpoint "空格继续重复移动左键取消"))
•   )
•   )
  

chenxiy825

出问题了，参数太少

中国梦

出问题了，参数太少

tianbeiyuan

呵呵，怎么记忆变成了循环。。。。

a2580106803

chenxiy825 发表于 2022-11-6 12:46
出问题了，参数太少

ssget
用错了,改过了

a2580106803

tianbeiyuan 发表于 2022-11-7 08:37
呵呵，怎么记忆变成了循环。。。。

没理解你意思,就只是记录上一次移动方位,下一次移动时调用罢了

a2580106803

萧●﹏●明 发表于 2022-11-6 19:56

(defun c:m ()

  (or (setq sg (ssget)) (setq sg gs))

  (setq dyd (getpoint "\n第一个点或 ...

正解