请帮我处理一下 如何添加选择一个文字后自动为默认

aytoasmile

我这个是移动文字的，多选文字后以某个文字为基础来移动文字，但是我发现单只选一个文字时候他不能默认基础文字就是这个文字，希望大神帮忙修改完美一点
(defun C:yt(/ ss pt p2)
  (if (null scale)(setq scale (getvar "DIMSCALE")))
  (while
    (princ "\n选择需要移动的文本(可多选)：")
          (setq ss (ssget))
          (setq ent1 (car (entsel "\n选择基础文本：")))
                (if (/= ent1 nil)
                  (progn
                                (setq ent (entget ent1))
                                (setq  pt    (cdr (assoc 10 ent))); 文本基点坐标
                                (setq dy (cadr pt)
                                        dx (car pt)
                                        dx1 (- dx (* 0.5 scale))
                                        dy1 (- dy (* 0.5 scale))
                                        pt1 (list dx1 dy1)
                          )
                        ))
                        (princ "\n选择移动方式  基点(左键)/基点偏移50(右键)/指定点(空格)____X(退出)")
            (setq aa (grread))
            (cond
              ((= (car aa) 3)  (COMMAND "MOVE" ss "" pt pause)(setq aa nil))
              ((= (car aa) 25) (COMMAND "MOVE" ss "" pt1 pause)(setq aa nil))
              ((= (cadr aa) 32) (setq  pt2   (getpoint "\n未指定文本，请点选的基点："))(COMMAND "MOVE" a "" pt2 pause)(setq aa nil))
              ((or (= (cadr aa) 88)(= (cadr aa) 120))(setq aa 1))
                        )
        )
        (princ)
)