this program speaks what is picked.
Code:(defun c:SayIt2 () (setq nent (car (nentsel "Pick words to say: "))) (setq nentl (entget nent)) (setq nentv (cdr (assoc 1 nentl))) (setq Phrase$ nentv) ; (setq Phrase$ (getstring T "Enter string: ")) (setq Phrase$l (strlen Phrase$)) (if (> Phrase$l 1000) (setq Phrase$ (substr Phrase$ 1 1000))) (vl-load-com) (setq sapi (vlax-create-object "Sapi.SpVoice")) (vlax-invoke sapi "Speak" Phrase$ 0) (vlax-release-object sapi) (princ) );defun c:SayIt2