[密技]：能说话的CAD是不是很酷

mmmm

语音AutoCAD提示
参考http://www.theswamp.org/index.php?topic=14549.0

2. 
   
3. (defun SayIt (Phrase$ / Sapi)
   
4.   (setq Sapi (vlax-create-object "Sapi.SpVoice"))
   
5.   (vlax-invoke Sapi "Speak" Phrase$ 0)
   
6.   (vlax-release-object Sapi)
   
7.   (princ)
   
8. )
   

<br /> (defun SayIt (Phrase$ / Sapi)<br />   (setq Sapi (vlax-create-object "Sapi.SpVoice"))<br />   (vlax-invoke Sapi "Speak" Phrase$ 0)<br />   (vlax-release-object Sapi)<br />   (princ)<br /> )<br />

(sayit "能说话的CAD是不是很酷！")
(sayit "Say it")

这种情况下，汉语就是比英文强！编程序时可以用作提示、警告等等，语音AutoCAD就此实现了。

zml84

http://zml84.blog.sohu.com/45480648.html
;|;=====================================================================        定义函数：zml-speak ( str mode )                                                功    能：将字符转换为语音输出                                                参数说明：        str----欲语音输出的内容，类型：字符串                                        mode---语音模式（0--英文；1--中文）                        返回值        ：若成功为字符串，否则为nil                                        示    例：(zml-speak "欢迎您!" 1)                                                        返  回："欢迎您!"                                        日    期：zml84 于2007-05-10                                        |;

TYEEXDD

呵呵！有意思，果然是高手啊，开眼界

flowerson

强，以后的cad命令要是用语音输入那就厉害了！

pdesign

不能说中文

zml84

语音练习.lsp
--------------------------------------------------------------------------------

;|;=====================================================================
       
定义函数：zml-speak ( str mode )                                               
功    能：将字符转换为语音输出                                               
参数说明：        str----欲语音输出的内容，类型：字符串                                        mode---语音模式（0--英文；1--中文）                       
返回值        ：若成功为字符串，否则为nil                                       
示    例：(zml-speak "欢迎您!" 1)                                                       
返  回："欢迎您!"                                       
日    期：zml84 于2007-05-10                                       
|;
(defun zml-speak (str mode)
    (if        (= (type str) 'STR)
        (if (setq sapi (vlax-create-object "Sapi.SpVoice"))
            (progn
                (cond
                    ;;使用英文引擎
                    ((= mode 0)
                     (setq speekContent                              "<VOICE REQUIRED='NAME=Microsoft Sam'>"                     )                    )
                    ;;使用中文引擎
                    ((= mode 1)
                     (setq speekContent                              "<VOICE REQUIRED='NAME=Microsoft Simplified Chinese'>"                     )                    )                ) ;_结束 cond
                (setq speekContent                         (strcat speekContent                                 str                                 "</VOICE>"                         )                )                (setq str speekContent)                ;;(vlax-invoke-method sapi "Speak" str 3)                (vlax-invoke                    sapi                    "Speak"                    str                    0                )                (vlax-release-object sapi)                str            )
        )
    )
)
;;;=====================================================================
;;;练习
(vl-load-com)
(defun c:speak (/ tmp)
    (if        (zml-speak "输入词句！" 1)
        (while (/=                   (setq tmp (getstring "\n输入字词或句子:"))       
           ""
               )
            (zml-speak tmp 1)
        )
        (princ "\n不能继续，原因是：系统中未安装语音工具包。")    )
    (princ)
)
;;;=====================================================================
;;;加载后的提示信息
(princ "\n语音提示练习 加载完成!!")
(zml-speak "加载完成!!" 1)
(princ "\n★输入命令\"speak\"开始运行\n")
(princ)

hhc_1

语音模式设为0、1、2、3都不能说中文，总之，就是不能说中文

xisogou

呵呵 还蛮有意思的

sfjlx

最初由 zml84 发布
[B]语音练习.lsp
--------------------------------------------------------------------------------

;|;=====================================================================
       
定义函数：zml-speak ( str... [/B]

不对啊！说你的程序少个括号！而且发不了声音啊！难道我操作不对？

yshf

(defun zml-speak (str mode)
   (if (= (type str) 'STR)
       (if (setq sapi (vlax-create-object "Sapi.SpVoice"))
           (progn
               (cond
                  ;;使用英文引擎
                  ((= mode 0) (setq speekContent "" ) )
                  ;;使用中文引擎
                  ((= mode 1) (setq speekContent "" ) )
               ) ;_结束 cond
               (setq speekContent (strcat speekContent str "" ) )
               (setq str speekContent)
               ;;(vlax-invoke-method sapi "Speak" str 3) (vlax-invoke sapi "Speak" str 0 ) (vlax-release-object sapi) str )
              (vlax-invoke-method sapi "Speak" str mod)
          )
       )
   )
)

sfjlx

最初由 yshf 发布
[B](defun zml-speak (str mode)
   (if (= (type str) 'STR)
       (if (setq sapi (vlax-create-object "Sapi.SpVoice"))
           (progn
               (cond
                  ;;使用英文引擎
        ... [/B]

不好意思，打搅！您的程序我用了一下，英文发音没问题，中文不行！请教一下，是不是缺什么？

hhy1985

牛人啊 这都想的出来

狂刀

1 卖旧货了
可分次读取剪贴板文本。

狂刀

朗读不了的（包括中文），要先下载、安装中文语音引擎。自己在网上搜索下载

SGP007

呵呵 有点意思