AUTOLisp也可以说话！

liums79

试试，很神奇吧！
' t! }; c. _3 S% ~) V(defun c:test (/ ss i txt catch)
! d" f. `6 i- g/ w& u, W+ R3 E  (defun speek (str)
    (setq spi (vlax-create-object "Sapi.SpVoice"))
    (vlax-method-applicable-p spi "Speak")
    (vlax-invoke-method spi "Speak" str 3)
3 A+ U% J. \" S) h  )
+ h" T7 I7 V4 @( z& B8 Y  (princ "\n请选择要朗读的文字 : ")
# z# |1 c% z; B, m  (if (setq ss (ssget '((0 . "*TEXT"))))
9 h- \- E) O  P6 t    (progn
      (setq i -1)
8 Z1 I8 |* m1 b- V- g" u      (repeat (sslength ss)
# u- D% {1 r( _* ]3 V  g( }        (setq txt (cdr (assoc 1 (entget (ssname ss (setq i (1+ i))))))
( j/ ^( \3 |' l8 V: f              cat (vl-catch-all-apply 'speek (list txt))
        )
8 `0 t+ B& X' {7 A1 J+ E- p7 o        (if (vl-catch-all-error-p cat)
          (progn (princ "\n朗读文字时捕捉到错误 : ")
                 (princ (vl-catch-all-error-message cat))
          )
+ ?# e9 x7 Y2 f: w- \& ~5 m' Y        )
      )
  c) V9 }$ N7 O    )
  )
  (princ)
) N! n: G4 K3 }7 U1 l6 ]' H8 M)

maoyangmy

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

liums79

;;winxp测试通过比如(speek "how are you")
. Q& _+ R+ v( `0 o$ z8 e) S- d(defun speek (str)
7 ^& L/ C' ^) n4 U  (setq spi (vlax-create-object "Sapi.SpVoice"))
) q+ @( U9 a8 c. Y& C( X* m9 }  (vlax-method-applicable-p spi "Speak")
; x! K7 A9 O( M* b  f3 Z% K  (vlax-invoke-method spi "Speak" str 3)
7 P9 D7 r) @& [% G) ~0 ?1 N. [7 p)
8 z, K6 p+ ^" K2 v( I;;只有装了中文语音包下面这段代码才能完好运行.
+ Y* x. b6 Z, g(defun c:speek (/ ss i)
  (princ "\n输入要朗读的文字:")
/ ?! E: f3 W( V. C9 q  (setq ss (ssget '((0 . "*TEXT"))))
  (setq i 0)  
6 v2 }0 Y2 @! y/ u" R- Z, P  (repeat (sslength ss)
& ^0 u3 e% Y/ f: K8 G8 j( c    (setq speekContent
# ~) b0 J# F1 Z% o& P; C       "<VOICE REQUIRED='NAME=Microsoft Simplified Chinese'>"
    )
8 [' c& i9 v- ^8 U: t+ j    (setq speekContent
& w* X) ^6 Z% Q       (strcat speekContent
' F4 @- |/ ~2 k# p           (cdr (assoc 1 (entget (ssname ss i))))
7 E+ C- p8 _3 A+ H           "</VOICE>"
       )
+ l6 b# T* V) A    )
( S& z8 ]. l! W0 v& k9 Y# S& ]    (setq catchit (vl-catch-all-apply 'speek (list speekContent)))
, m1 \! x9 o& X9 D$ L/ ~4 W9 V    (if    (vl-catch-all-error-p catchit)
9 c: Z" u/ \; p9 g' S/ d2 g      (progn (princ "\n朗读文字时捕捉到错误:")
         (princ (vl-catch-all-error-message catchit))
; X0 t4 J) M  i: S      )
    )
, z/ A# s* \" Q: @  j4 p    (setq i (+ i 1))
! L' Y+ H. F8 ~8 m  )
7 I) N+ V; H/ g# o$ Y)

qq64400732

厉害啊，，高手

Hi_tek

咱也试试！

tangting0439

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

wuql2006

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

ysryc99001

我也来试试，

fuuqiang

试一试，楼主了不起。