如何让CAD点那个文字朗读一下

357785513 · 发表于 2017-12-13 07:55:52

(setq sapi (vlax-create-object "Sapi.SpVoice"))
(vlax-invoke sapi "Speak" "本工程依据抗震规范设计 !" 0)
各位好，有两年时间没有发铁了，有什么办法调用上面的在CAD里点那个文字就朗读一遍
各位有什么好办法不

357785513 · 发表于 2017-12-13 20:39:43

(defun c:WBLD (/ 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)
)

satan421 · 发表于 2019-5-8 11:44:27

测试可以用，本质是调用VBS的方法。

新建一个txt文档，复制下面一行的内容到文档内：
CreateObject("SAPI.SpVoice").Speak "朗读测试"
保存，关闭文档，将文档后缀的.txt改为.vbs，双击运行就会朗读。

不太熟悉这种用法，不过最后应该释放一下创建的对象吧

1291500406 · 发表于 2019-5-8 12:14:20

satan421 发表于 2019-5-8 11:44
测试可以用，本质是调用VBS的方法。

新建一个txt文档，复制下面一行的内容到文档内：

调用的SAPI.SpVoice不是vbs

357785513 · 发表于 2017-12-13 18:46:39

我的铁快垫底了

357785513 · 发表于 2017-12-13 20:40:09

完了抄不全，不能用呀

langke52 · 发表于 2017-12-13 22:28:41

居然还可以朗读。长见识了

fan_zh · 发表于 2017-12-14 12:27:22

这个厉害了，必须收藏

ssyfeng · 发表于 2017-12-16 10:27:44

真的能读嘛，好像不成功。

wosyuwu · 发表于 2017-12-24 00:21:46

朗读？？？第一次听说。还能这样玩啊。。

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

[基础] 如何让CAD点那个文字朗读一下