[原创]：让你的程序可以说话(免币!!!)

wujimmy

[PHP]  
;;winxp测试通过比如(speek "how are you")
(defun speek (str)
  (setq spi (vlax-create-object "Sapi.SpVoice"))
  (vlax-method-applicable-p spi "Speak")
  (vlax-invoke-method spi "Speak" str 3)
)
;;只有装了中文语音包下面这段代码才能完好运行.
(defun c:speek (/ ss i)
  (setq ss (ssget (list (cons 0 "text"))))
  (setq i 0)
  (princ "\n输入要朗读的文字:")
  (repeat (sslength ss)
    (setq speekContent
           "<VOICE REQUIRED='NAME=Microsoft Simplified Chinese'>"
    )
    (setq speekContent
           (strcat speekContent
                   (cdr (assoc 1 (entget (ssname ss i))))
                   "</VOICE>"
           )
    )
    (setq catchit (vl-catch-all-apply 'speek (list speekContent)))
    (if        (vl-catch-all-error-p catchit)
      (progn (princ "\n朗读文字时捕捉到错误:")
             (princ (vl-catch-all-error-message catchit))
      )
    )
    (setq i (+ i 1))
  )
)[/PHP]

xyp1964

2. [FONT=courier new]
   
3. ;;;只有装了中文语音包下面这段代码才能完好运行
   
4. ;;;不支持中文
   
5. (defun c:test (/ ss i txt catch)
   
6.   (defun speek (str)
   
7.     (setq spi (vlax-create-object "Sapi.SpVoice"))
   
8.     (vlax-method-applicable-p spi "Speak")
   
9.     (vlax-invoke-method spi "Speak" str 3)
   
10.   )
    
11.   (princ "\n请选择要朗读的文字 : ")
    
12.   (if (setq ss (ssget '((0 . "*TEXT"))))
    
13.     (progn
    
14.       (setq i -1)
    
15.       (repeat (sslength ss)
    
16.         (setq txt (cdr (assoc 1 (entget (ssname ss (setq i (1+ i))))))
    
17.               cat (vl-catch-all-apply 'speek (list txt))
    
18.         )
    
19.         (if (vl-catch-all-error-p cat)
    
20.           (progn (princ "\n朗读文字时捕捉到错误 : ")
    
21.                  (princ (vl-catch-all-error-message cat))
    
22.           )
    
23.         )
    
24.       )
    
25.     )
    
26.   )
    
27.   (princ)
    
28. )
    
29. [/FONT]

[FONT=courier new]<br /> ;;;只有装了中文语音包下面这段代码才能完好运行<br /> ;;;不支持中文<br /> (defun c:test (/ ss i txt catch)<br />   (defun speek (str)<br />     (setq spi (vlax-create-object "Sapi.SpVoice"))<br />     (vlax-method-applicable-p spi "Speak")<br />     (vlax-invoke-method spi "Speak" str 3)<br />   )<br />   (princ "\n请选择要朗读的文字 : ")<br />   (if (setq ss (ssget '((0 . "*TEXT"))))<br />     (progn<br />       (setq i -1)<br />       (repeat (sslength ss)<br />         (setq txt (cdr (assoc 1 (entget (ssname ss (setq i (1+ i))))))<br />               cat (vl-catch-all-apply 'speek (list txt))<br />         )<br />         (if (vl-catch-all-error-p cat)<br />           (progn (princ "\n朗读文字时捕捉到错误 : ")<br />                  (princ (vl-catch-all-error-message cat))<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> [/FONT]

功能：朗读CAD中的文本（不支持中文）
命令：wbld  (文本朗读)

它山之石

呵呵，还真的能说话呀。
修改下就可以帮俺校对图纸了。

wujimmy

最初由 它山之石 发布
[B]呵呵，还真的能说话呀。
修改下就可以帮俺校对图纸了。 [/B]

你的程序都能校对出哪些错误来啊?

它山之石

1、俺的机子能读中文呀。
2、不同的程序可以校对不同的错误呀。
3、这个东东可以让CAD也变得“有声有色”了。好呀！

zhang8755

在安装了SimpChinese Speech Package.msi后，就可以朗读中文了，但是英文却变成了字母朗读了，不能两全其美。还要记得在[控制面板]中－>语音选项中将Microsoft Simplified Chinese 作为缺省语音。

wujimmy

<FONT face=Verdana>

最初由 zhang8755 发布<BR>[B]在安装了SimpChinese Speech Package.msi后，就可以朗读中文了，但是英文却变成了字母朗读了，不能两全其美。还要记得在[控制面板]中－&gt;语音选项中将Microsoft Simplified Chinese 作为缺省语音。 [/B]

<BR>不一定要指定缺省语音的.如果你要发音中文,只要把要朗读的文字前后分别加上 "&lt;VOICE REQUIRED='NAME=Microsoft Simplified Chinese'&gt;"和"&lt;/VOICE&gt;"就可以了.不加的就话就按缺省的英文发音了.<BR>你只要在程序里判断是中文还是英文就可以分别对待了.</FONT>

狂刀

最初由 xyp1964 发布
[B][CODE]
;;;只有装了中文语音包下面这段代码才能完好运行
;;;不支持中文
(defun c:test (/ ss i txt catch)
  (defun speek (str)
    (setq spi (vlax-create-object "Sapi.SpVoice"))
    ... [/B]

呵呵，老手了，用str保留字做参数?

雨箭风刀

做了个可以中英文混读的。没有带身上。下次。

dlsgj

的确非常有趣
不过有多大的实际意义呢？

yocan

只作探讨还可以。

xiaobai924

多谢斑竹，只是我的金币太少了，不能下那个文本朗读，过段时间我就下。
不过，请说详细点，这个程序怎么使用。

sfjlx

SimpChinese Speech Package.msi???
那里有?
中文语音包?那里有?
如何安装?谢谢!

chlgk

这个加载后怎么用呢？？我加载后不知道输什么命令耶。我输入wbld说没有此命令，怎么回事呢？ 楼主的那段代码怎么用的？？？

呵呵，不好意思，我自己把命令写错了。可以加载。但是wbld那个不可以。

livy316

支持一下