(defun c:tt()
   (setq 高度(getreal "\n->>输入文字高度<默认2.5>"))
  (if (= 高度 nil)(setq 高度 2.5))
  (setq  数字(getint "\n->>输入起始数：<默认1>"))
  (if (= 数字 nil)(setq 数字 1))
  (setq 点 (getpoint "\n 插入点:"))
  (while 点
     (command "text" "j" "MC" 点 高度 0 数字)
     (setq 点 (getpoint 点 "\n 插入点:"))
     (setq 数字 (1+ 数字))
    )
  )

;;;(defun 调用()
;;;  
;;;  (setq 选择 (entlast))
;;;    (setq 选择1 (entget 选择))
;;;    (while (= (car (setq 鼠标 (grread t 0 0))) 5)
;;;      (setq 鼠标1 (cadr 鼠标))
;;;      (if (>= (car 鼠标1)(car 点))
;;;          (progn
;;;;;;	    (setq 选择1 (subst '(72 . 0) (assoc 72 选择1) 选择1))
;;;             (setq 选择1 (subst (cons 10 鼠标1)(assoc 10 选择1) 选择1))
;;;             (entmod 选择1)
;;;	    )
;;;	(progn
;;;;;;	    (setq 选择1 (subst '(72 . 0) (assoc 72 选择1) 选择1))
;;;             (setq 选择1 (subst (cons 10 鼠标1)(assoc 10 选择1) 选择1))
;;;             (entmod 选择1)
;;;	    )
;;;	)
;;;      )
;;;  )