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

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

以下代码是在高飞鸟老师帖子里看到的，希望大大能修改一下，
改成　读出选中的文字来，一定很好玩，希望各位大大的帮忙。
～～～～～～～～～～～～～～～～～
(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
(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

为什么我运行你的代码没反应的？？？？

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

[已解答] 怎么能让cad中选中文字说话呢？

相关帖子

评分