I came across a nice routine for converting Text to Speech in AuTOCAD :-
(defun TexttoSpeech (str)
;; Text to Speech
;; Source : http://forums.autodesk.com/t5/autocad-civil-3d-forum/extract-and-export-surface-contours-and-labels/td-p/3013632
(vl-load-com)
(setq sapi (vlax-create-object "Sapi.SpVoice"))
(vlax-invoke sapi "Speak" str 0)
(vlax-release-object sapi)
)
(defun c:test () (TexttoSpeech "Hello ....... ") (princ))