(defun c:tt()
(setq s (list "A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z"));E F G H I J K L I M N O P Q R S T U V W X Y Z
;;;(nth 25 s)
  (setq n 0)
  (setq pt (getpoint "\n 指定插入点:"))
  (while pt
    (setq a (nth n s ))
    (command "text" "m" pt 5 0 a)
    (setq n (1+ n))
    (if (= 26 n) (setq n 0))
    (setq pt (getpoint "\n 指定下一个插入点:"))
   )
  )