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

wujimmy · 发表于 2005-12-4 20:02:36

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;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))   ) )

xyp1964 · 发表于 2005-12-4 20:42:37

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

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

它山之石 · 发表于 2005-12-5 09:28:02

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

wujimmy · 发表于 2005-12-5 11:50:47

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

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

它山之石 · 发表于 2005-12-5 15:26:34

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

zhang8755 · 发表于 2005-12-5 17:18:53

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

wujimmy · 发表于 2005-12-5 20:10:24

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

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

狂刀 · 发表于 2005-12-5 22:58:35

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

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

WHGF · 发表于 2005-12-7 07:58:23

这样于活是一件挺有意思的事，对系统有什么要求？256MB内存够吗？

chinasbc · 发表于 2005-12-7 08:48:22

太牛了，哪个做个动画贴上来瞧瞧。

yuer0103 · 发表于 2005-12-10 13:52:06

各位功夫很深，哪位有实用版本？

lijianguang8188 · 发表于 2005-12-10 14:17:02

我笨笨，具体怎么用还是没有搞懂

nigma · 发表于 2005-12-10 15:39:44

可以用,非常不错,那个pdf文件也可以朗读的,你再那个pdf视图菜单下就有个朗读功能,看cad电子版太累,用朗读不错,就是默认的朗读速度太慢了,可以再控制面板里面把速度调快.大家可以试试

zxmmelly · 发表于 2005-12-12 23:15:49

牛人

雷顿 · 发表于 2006-1-6 15:59:19

R14能用么？

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子