Author Topic: Text to Speech  (Read 1181 times)

0 Members and 1 Guest are viewing this topic.

mailmaverick

  • Bull Frog
  • Posts: 494
Text to Speech
« on: January 16, 2017, 02:30:30 AM »
I came across a nice routine for converting Text to Speech in AuTOCAD :-

Code: [Select]
(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))


Grrr1337

  • Swamp Rat
  • Posts: 812
Re: Text to Speech
« Reply #2 on: January 16, 2017, 11:29:44 AM »
Nice!
 Thanks for sharing guys! 8)
(apply ''((a b c)(a b c))
  '(
    (( f L ) (apply 'strcat (f L)))
    (( L ) (if L (cons (chr (car L)) (f (cdr L)))))
    (72 101 108 108 111 32 87 111 114 108 100)
  )
)
vevo.bg