qq284417238 发表于 2015-7-17 16:49:16

怎么能让cad中选中文字说话呢？

以下代码是在高飞鸟老师帖子里看到的，希望大大能修改一下，
改成　读出选中的文字来，一定很好玩，希望各位大大的帮忙。
～～～～～～～～～～～～～～～～～
(DEFUN c:SAPI ()
(setq sapi (vlax-create-object "Sapi.SpVoice"))
;;(vlax-invoke sapi "Speak" "Would you like to play Global Thermo Nuclear War ?" 0) ;;;
(vlax-invoke sapi "Speak" "程序现在开始!" 0)
(vlax-release-object sapi)
)

qq284417238 发表于 2015-7-17 18:16:57

(DEFUN c:王()
(setq sapi (vlax-create-object "Sapi.SpVoice"))

(vlax-invoke sapi "Speak" (getstring"请输入：") 0)
(vlax-release-object sapi)
)
～～～～～～～～～～～～～～～～～～～～～～～～～～·
自己弄了个这个（将输入的文字读出来），虽然非常简单，但对于我这样的小白，也查了好久，才弄明白

qq284417238 发表于 2015-7-17 19:34:50

又找了好久，未能解决自己的问题

陨落 发表于 2015-7-17 19:43:05

(vlax-invoke sapi "Speak" (cdr(assoc 1(entget(car(entsel"请选择单行文字"))))))
手机回复的，自己查一下符号对不对

qq284417238 发表于 2015-7-17 19:55:27

陨落 发表于 2015-7-17 19:43 static/image/common/back.gif
(vlax-invoke sapi "Speak" (cdr(assoc 1(entget(car(entsel"请选择单行文字"))))))
手机回复的，自己查一 ...

非常感谢
谢谢指导，可以运行

香田里浪人 发表于 2015-7-18 18:34:25

本帖最后由 香田里浪人 于 2015-7-19 19:21 编辑

如果没有安装中文朗读，那么就只认得英文认不得中文。

fankefreedom 发表于 2015-7-19 11:23:38

楼主好身手

fankefreedom 发表于 2015-7-19 11:36:15

为什么我运行你的代码没反应的？？？？
页: [1]
查看完整版本: 怎么能让cad中选中文字说话呢？