批量对应移动，建立选择集出错

李钊伟2012

(defun c:mo1(/ ss pt1 pt2 pt1lt pt1lt );(getint"\n循环次数:") ;"\n依次选择单个对象："
(setq num 3       ss nil  pt1lt '()  pt12t '() )

(repeat num
(setq ss  (ssadd (ssget) ss))
(setq pt1(getpoint"\n图元对应基点") pt1lt(append pt1 pt1lt)))

(repeat num
(setq pt2(getpoint"\n对应目标点")   pt2lt(append pt2 pt2lt)))

(repeat num
(command "move" (nth i ss) "" (nth i pt1lt) (nth i pt2lt) "")        (setq i (1+ i)) )        (princ))

;对于ssadd理解不够，找不到相关方法，而且每次选择是两个图元一次选择。这句代码怎么写

satan421

你这可不是对ssadd理解不够。
(defun c:tt ( / ss)
  (setq ss (ssget))
  (vl-cmdf "_.move" ss "" pause)
)