AUTOLisp也可以说话！

liums79

试试，很神奇吧！
: F& C0 \7 \3 ~& X(defun c:test (/ ss i txt catch)
) s! ^. D! X% |/ W0 J9 s  (defun speek (str)
$ W, f- d  f: h    (setq spi (vlax-create-object "Sapi.SpVoice"))
! M1 C* Y& J' U' V6 _; |    (vlax-method-applicable-p spi "Speak")
8 \0 y0 n4 W& _5 ~: S    (vlax-invoke-method spi "Speak" str 3)
  )
  (princ "\n请选择要朗读的文字 : ")
! I- T) f& j5 t0 C$ h' s4 N: ], n  (if (setq ss (ssget '((0 . "*TEXT"))))
    (progn
; z0 @0 o4 p! a) O( V      (setq i -1)
' e+ B9 a2 N0 T2 e9 M      (repeat (sslength ss)
        (setq txt (cdr (assoc 1 (entget (ssname ss (setq i (1+ i))))))
. }" e% \# A8 c              cat (vl-catch-all-apply 'speek (list txt))
9 p+ U1 s0 z7 M- y7 ~, h' J        )
* e' l  x0 o8 z1 |) h5 F8 B( R        (if (vl-catch-all-error-p cat)
          (progn (princ "\n朗读文字时捕捉到错误 : ")
; y7 i1 H2 P8 C. g- n! C                 (princ (vl-catch-all-error-message cat))
8 o; g3 D5 {; W/ V1 k7 ^4 G- l          )
  {4 K0 m2 Q! b1 f, ^7 w        )
      )
    )
  )
2 V% t8 `$ a, R' N9 Z2 P2 ?0 ^  (princ)
)

maoyangmy

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

liums79

;;winxp测试通过比如(speek "how are you")
(defun speek (str)
' ?( ^2 S6 m8 J9 P  (setq spi (vlax-create-object "Sapi.SpVoice"))
  (vlax-method-applicable-p spi "Speak")
: X/ A5 d5 C" _6 {  (vlax-invoke-method spi "Speak" str 3)
" i4 b1 J% p, I)
4 i$ E" |* t/ u;;只有装了中文语音包下面这段代码才能完好运行.
" {% `- _/ C- M5 |6 Z+ _8 R(defun c:speek (/ ss i)
  (princ "\n输入要朗读的文字:")
' `' w, P3 z8 Q5 D/ x. L  (setq ss (ssget '((0 . "*TEXT"))))
: Y. Y7 v+ ]! G1 u0 F! u  (setq i 0)  
  (repeat (sslength ss)
7 h9 u  x& [2 b- F5 Q  W    (setq speekContent
2 w' e4 C$ Y3 T0 Z* r       "<VOICE REQUIRED='NAME=Microsoft Simplified Chinese'>"
+ y5 S# E4 F3 }4 H' f, z1 n% P    )
    (setq speekContent
       (strcat speekContent
) E, v+ E5 M* N/ s' l/ L           (cdr (assoc 1 (entget (ssname ss i))))
. F* s9 g- \. _! S. u) a0 `: [           "</VOICE>"
       )
    )
/ E" `% [  \3 B    (setq catchit (vl-catch-all-apply 'speek (list speekContent)))
4 h- `  N5 \8 O    (if    (vl-catch-all-error-p catchit)
      (progn (princ "\n朗读文字时捕捉到错误:")
4 H. h% N' f: h9 Y! e         (princ (vl-catch-all-error-message catchit))
; M) q  q7 m6 q4 N      )
/ P4 @9 `) d+ M* R    )
4 g* f% D4 X! M7 D7 _    (setq i (+ i 1))
3 n& c; A/ u! u1 G  )
, F: R3 p: u3 m7 }* w)

qq64400732

厉害啊，，高手

Hi_tek

咱也试试！

tangting0439

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

wuql2006

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

ysryc99001

我也来试试，

fuuqiang

试一试，楼主了不起。