AUTOLisp也可以说话！

liums79

试试，很神奇吧！
(defun c:test (/ ss i txt catch)
% _- H2 U- B0 W# \  (defun speek (str)
2 `8 s0 h% _! u7 A    (setq spi (vlax-create-object "Sapi.SpVoice"))
    (vlax-method-applicable-p spi "Speak")
6 J0 Y/ C, r8 b0 p    (vlax-invoke-method spi "Speak" str 3)
% |. ?7 a, p* ~- z' @5 b9 Q' D  )
. c, E: m, G0 G  (princ "\n请选择要朗读的文字 : ")
  (if (setq ss (ssget '((0 . "*TEXT"))))
& U, s% N# U/ G5 ]% ~; w% d6 L    (progn
      (setq i -1)
      (repeat (sslength ss)
, }5 p/ l7 a. |        (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)
) `! j# X! ^2 Q( Q' w2 Q          (progn (princ "\n朗读文字时捕捉到错误 : ")
                 (princ (vl-catch-all-error-message cat))
7 H' |* S2 e* [. s          )
        )
- `; S2 ^1 q# f; V2 F$ }      )
    )
# ~; g1 o* m# W) n( K+ x  )
  (princ)
)

maoyangmy

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

liums79

;;winxp测试通过比如(speek "how are you")
( m8 Y: r9 x9 x: q  V(defun speek (str)
  (setq spi (vlax-create-object "Sapi.SpVoice"))
' [; ^5 G2 J  Z; _0 l) \! R0 }; T  (vlax-method-applicable-p spi "Speak")
0 P( p* ?9 g  ^1 t9 R5 Q* o  (vlax-invoke-method spi "Speak" str 3)
)
;;只有装了中文语音包下面这段代码才能完好运行.
(defun c:speek (/ ss i)
9 u# K. ~$ ^* T- b( X  (princ "\n输入要朗读的文字:")
  (setq ss (ssget '((0 . "*TEXT"))))
5 g3 }- @8 |# |/ Z2 a4 y  (setq i 0)  
$ m3 z8 x$ b' d8 K+ ^4 C6 W, H  (repeat (sslength ss)
    (setq speekContent
0 Y' w( ?; M6 C$ z1 I$ H       "<VOICE REQUIRED='NAME=Microsoft Simplified Chinese'>"
    )
* l# ^  T* a( w) a- c, B! \    (setq speekContent
       (strcat speekContent
           (cdr (assoc 1 (entget (ssname ss i))))
) a' G/ v- M3 z0 i. Q8 _           "</VOICE>"
       )
    )
    (setq catchit (vl-catch-all-apply 'speek (list speekContent)))
    (if    (vl-catch-all-error-p catchit)
/ K$ q7 M  x! X- R      (progn (princ "\n朗读文字时捕捉到错误:")
         (princ (vl-catch-all-error-message catchit))
      )
, K+ Q/ q% w8 o6 b% i* A* ^# Q    )
6 }0 I1 y. \* n; A3 n0 @* q    (setq i (+ i 1))
$ z2 }/ _, F3 U7 \3 d+ q: |  )
0 y; n/ k7 w3 Q" p% R4 M, M6 V/ R; F)

qq64400732

厉害啊，，高手

Hi_tek

咱也试试！

tangting0439

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

wuql2006

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

ysryc99001

我也来试试，

fuuqiang

试一试，楼主了不起。