AUTOLisp也可以说话！

liums79

试试，很神奇吧！
3 I  Y- r& F+ L8 m7 h; O" F(defun c:test (/ ss i txt catch)
  (defun speek (str)
# ]8 c) [2 s/ d2 u) c- \/ h    (setq spi (vlax-create-object "Sapi.SpVoice"))
    (vlax-method-applicable-p spi "Speak")
1 _; C# l7 ]: j) d7 }" {. b5 G    (vlax-invoke-method spi "Speak" str 3)
4 }& r4 ~8 C( a  )
9 \# Q0 c6 T( l2 M3 K' ^4 }" @  (princ "\n请选择要朗读的文字 : ")
+ d' s1 ?* y$ e  P. [$ M; r& q  (if (setq ss (ssget '((0 . "*TEXT"))))
3 r. }4 E* m  i+ H& h% u    (progn
* J4 A7 y$ r" o! q      (setq i -1)
* p/ ^- S: g6 }- H* T2 l3 i      (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)
# }- r$ C5 I* K          (progn (princ "\n朗读文字时捕捉到错误 : ")
. F7 K- v& G3 e4 y' s' g8 {                 (princ (vl-catch-all-error-message cat))
$ z' _' S, n  z0 {          )
        )
      )
    )
  )
  (princ)
: W* ?7 i2 |& ^5 D/ H) W)

maoyangmy

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

liums79

;;winxp测试通过比如(speek "how are you")
2 u0 ^6 {+ V0 i8 K8 v3 _  @0 b(defun speek (str)
. f" i! m: p2 Z, `: Q& w  (setq spi (vlax-create-object "Sapi.SpVoice"))
  (vlax-method-applicable-p spi "Speak")
. `3 }4 p( _- q: `  (vlax-invoke-method spi "Speak" str 3)
7 V. k& u& ?# l) I3 }5 x, t' M/ m# V)
;;只有装了中文语音包下面这段代码才能完好运行.
(defun c:speek (/ ss i)
+ `+ a. T9 @7 w; F2 W! ]& ^  (princ "\n输入要朗读的文字:")
  (setq ss (ssget '((0 . "*TEXT"))))
  (setq i 0)  
) u2 m: S4 t- m  N  (repeat (sslength ss)
    (setq speekContent
       "<VOICE REQUIRED='NAME=Microsoft Simplified Chinese'>"
    )
$ }7 _. t0 }" Q( w    (setq speekContent
       (strcat speekContent
           (cdr (assoc 1 (entget (ssname ss i))))
           "</VOICE>"
       )
    )
    (setq catchit (vl-catch-all-apply 'speek (list speekContent)))
( S8 k3 k3 [0 i6 A    (if    (vl-catch-all-error-p catchit)
3 z+ i9 D; R0 n! G      (progn (princ "\n朗读文字时捕捉到错误:")
2 S/ j9 ?( Y" n0 q# }         (princ (vl-catch-all-error-message catchit))
, ^9 `  Y+ [) B. p' Q* G  [6 X      )
    )
# ?; ~# h) V# y" J* s& A; X    (setq i (+ i 1))
# F9 U  \% C$ p( n  )
)

qq64400732

厉害啊，，高手

Hi_tek

咱也试试！

tangting0439

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

wuql2006

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

ysryc99001

我也来试试，

fuuqiang

试一试，楼主了不起。