(defun c:ufl00002 ( / ss nn pp1 pp2 en )
;選択した図形内の２図形を移動する
  (prompt "\n移動する図形を選択:")
  (setq ss (ssget))
  (setq nn 0)
  (if (/= ss nil)
    (setq nn (sslength ss))
  )
  (if (< nn 3)
    (prompt "\n３個以上の図形を選択して下さい。")
    (progn
      (setq pp1 (list 10.0 10.0 0.0))
      (setq pp2 (list 30.0 20.0 0.0))
      (setq en (ssname ss 0))
      (command "move" en "" "none" pp1 "none" pp2)
      (setq en (ssname ss 2))
      (command "move" en "" "none" pp1 "none" pp2)
    )
  )
  (princ)
)