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

文本朗读

(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:48

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

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

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

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

这么久回复了。谢谢。

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

怎么使用？
页: [1] 2
查看完整版本: 文本朗读