Another version, no Title though.
;;; FUNCTION
;;; Use ddedit box to edit a text string.
;;;
;;; ARGUMENTS
;;; txt = the text string
;;;
;;; USAGE
;;; text_edit
;;;
;;; PLATFORMS
;;; 2000+
;;;
;;; AUTHOR
;;; Charles Alan Butler
;;; ab2draft@TampaBay.rr.com
;;;
;;; VERSION
;;; 1.0 Oct. 06, 2004
(defun text_edit (txt / entlist ent)
(if (entmake
(list
'(0 . "TEXT")
(cons 10 '(0 0))
(cons 40 1)
(cons 7 (getvar "TEXTSTYLE"))
(cons 1 txt) ; Text String
)
)
(progn
(setq ent (entlast))
(command "._ddedit" ent "")
(setq txt (cdr (assoc 1 (entget ent))))
(entdel ent)
txt
)
)
)
(defun c:test (/ newtext)
(setq newtext (text_edit "This is a test string."))
)