AUTOLisp也可以说话！

liums79 · 发表于 2009-3-2 16:35:49

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

试试，很神奇吧！
(defun c:test (/ 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)
)

maoyangmy · 发表于 2009-3-3 16:04:08

太神奇了，楼主用的是VBA 中的vl-catch-all-apply函数，学习了，还有什么神奇功能？？

liums79 · 发表于 2009-3-3 16:35:18

;;winxp测试通过比如(speek "how are you")
(defun speek (str)
  (setq spi (vlax-create-object "Sapi.SpVoice"))
  (vlax-method-applicable-p spi "Speak")
  (vlax-invoke-method spi "Speak" str 3)
)
;;只有装了中文语音包下面这段代码才能完好运行.
(defun c:speek (/ ss i)
  (princ "\n输入要朗读的文字:")
  (setq ss (ssget '((0 . "*TEXT"))))
  (setq i 0)
  (repeat (sslength ss)
(setq speekContent
   "<VOICE REQUIRED='NAME=Microsoft Simplified Chinese'>"
)
(setq speekContent
   (strcat speekContent
         (cdr (assoc 1 (entget (ssname ss i))))
         "</VOICE>"
   )
)
(setq catchit (vl-catch-all-apply 'speek (list speekContent)))
(if (vl-catch-all-error-p catchit)
   (progn (princ "\n朗读文字时捕捉到错误:")
      (princ (vl-catch-all-error-message catchit))
   )
)
(setq i (+ i 1))
  )
)

qq64400732 · 发表于 2009-3-9 23:57:44

厉害啊，，高手

Hi_tek · 发表于 2009-3-12 20:59:31

咱也试试！

tangting0439 · 发表于 2009-3-15 00:20:35

帅气，我看到那个就头晕，真了不起

wuql2006 · 发表于 2010-1-31 19:39:37

我是刘姥姥进了大观圆了。佩服佩服！

ysryc99001 · 发表于 2011-1-14 16:27:48

我也来试试，

fuuqiang · 发表于 2011-1-19 13:02:45

试一试，楼主了不起。

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

通知

[分享] AUTOLisp也可以说话！

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

还可以这样