[求助]：如何实现重复移动？？

shardine

(defun C:PY(/ s pt1 pt2 pt3 ang dis)

(setq pt1 (getpoint "

请给出平移的基准点:"))

(setvar "ORTHOMODE" 1)

(setq pt2 (getpoint pt1 "

请给出平移的方向:"))

(setq ang (angle pt1 pt2))

(setq dis (getdist "

请给出平移的距离:"))

(setq s(ssget))

(setq pt3 (polar pt1 ang dis))

(command "MOVE" s "" pt1 pt3)

(setvar "ORTHOMODE" 0)

)



以上内容可以实现输入一次基点方向距离进行一次定向移动，能否对此进行修改，以实现可以输入一次基点方向和距离而进行多次的定向移动？？？？？？
拜谢

心梦相随

(defun C:PY(/ s pt1 pt2 pt3 ang dis)
  (if(and(setq pt1 (getpoint "\n请给出平移的基准点<退出>:"))
       (setvar "ORTHOMODE" 1)
       (setq pt2 (getpoint pt1 "\n请给出平移的方向<退出>:"))
       (setq ang (angle pt1 pt2))
       (setq dis (getdist "\n请给出平移的距离<退出>:")))
     (while(and(princ"\n请选择平移的实体<退出>:")(setq s(ssget)))
       (setq pt3 (polar pt1 ang dis))
       (command "_.MOVE" s "" "_non" pt1"_non" pt3)
     )
  )
(princ))