文本朗读

gaomingabc456 · 发表于 2018-3-30 16:11

(defun c:wbld ();;文本朗读
  (prompt "\n 功能文本朗读")
  (princ "\n 请选择需要朗读的内容....")
  (setq ss (ssget '((0 . "text,mtext"))))
  (progn
   (setq sn (sslength ss))
   (setq i 0)
   (repeat sn
(setq spt (ssname ss i ))
      (setq ept (entget spt))
      (setq wbnr(cdr(assoc 1 ept)))
      (SayIt wbnr)
(setq i(+ i 1))
   )
)
  (princ)
)

(defun SayIt (Phrase$ / Sapi)
  (setq Sapi (vlax-create-object "Sapi.SpVoice"))
  (vlax-invoke Sapi "Speak" Phrase$ 0)
  (vlax-release-object Sapi)
  (princ)
)

gaomingabc456 · 发表于 2018-10-6 11:07

434939575 发表于 2018-5-13 10:51
想要他朗读，他不听话，请问这个:Sapi.SpVoice,是要下载什么？

不用下载
这个是cad 尝试创建一个新的对象会话(进程)

434939575 · 发表于 2018-10-7 19:07

gaomingabc456 发表于 2018-10-6 11:07
不用下载
这个是cad 尝试创建一个新的对象会话(进程)

这么久回复了。谢谢。

二更更二 · 发表于 2022-10-30 23:12

1291500406 发表于 2019-1-20 20:52
文字朗读要写那么长吗？我两句话就可以

我的原来可以朗读，现在怎么不能读了？

wm123456 · 发表于 2018-3-30 22:09

这么神奇谢谢分享这么神奇谢谢分享

434939575 · 发表于 2018-5-13 10:51

想要他朗读，他不听话，请问这个:Sapi.SpVoice,是要下载什么？

1152213153 · 发表于 2018-5-15 16:42

每每看到大神，我的双腿瑟瑟发抖。总有一种想上前跪拜的冲动

依然低调 · 发表于 2018-10-27 15:14

1291500406 · 发表于 2019-1-20 20:52

本帖最后由 1291500406 于 2019-1-20 21:20 编辑

文字朗读要写那么长吗？我两句话就可以

二更更二 · 发表于 2019-6-15 21:04

请问我原来可以读，做了次系统后就不能读了是为什么

lijunfa12345 · 发表于 2019-8-26 18:28

怎么使用？

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