;;;Quick and dirty routine to append a number to a text string.
;;;Will work on any selectable object having an association group of 1.
;;;Fails if object selected does not have an association group of 1.
;;;The number will have the current precision.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3/31/00
;;;>		   EDITED: 05-06-2001
;;;
(defun c:addno ()
  (while
    (setq num2add (ureal 0 "" "Number to append: " nil))
    (setq text2add2 (entsel))
    (if text2add2
      (progn
        (setq txtent (entget(car text2add2)))
        (setq txtent (subst (cons 1 (strcat(cdr(assoc 1 txtent))(rtos num2add 2 2)))(assoc 1 txtent)txtent))
        (entmod txtent)
      )
    )
  )
  (princ)
)