AUTOLisp也可以说话！

liums79

试试，很神奇吧！
8 X- I! {" G* K, r5 d! g(defun c:test (/ ss i txt catch)
  (defun speek (str)
8 r8 q3 z" A2 h5 i  ]( E    (setq spi (vlax-create-object "Sapi.SpVoice"))
% ~- p  p! c. I  D. a8 U    (vlax-method-applicable-p spi "Speak")
    (vlax-invoke-method spi "Speak" str 3)
  )
1 V. X" f' w+ i  (princ "\n请选择要朗读的文字 : ")
  (if (setq ss (ssget '((0 . "*TEXT"))))
: W3 e5 Z& H4 ~. c( c- N4 z    (progn
      (setq i -1)
; ?( ^! v! d7 ?! t2 }- ]      (repeat (sslength ss)
, c/ z, h' Z& A( u; \5 g        (setq txt (cdr (assoc 1 (entget (ssname ss (setq i (1+ i))))))
1 q* ?" S8 a- a2 r8 U              cat (vl-catch-all-apply 'speek (list txt))
        )
        (if (vl-catch-all-error-p cat)
          (progn (princ "\n朗读文字时捕捉到错误 : ")
/ U& W5 u, f8 i* V' g                 (princ (vl-catch-all-error-message cat))
3 Q# ]$ D# \( _; z          )
        )
1 d! Y2 G- D; E2 f5 H% Q      )
    )
  )
  B- v& r& U6 B6 R5 V, Q0 z4 L! a  (princ)
)

maoyangmy

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

liums79

;;winxp测试通过比如(speek "how are you")
6 W1 T: l" H+ ~5 x7 I  E5 D: d(defun speek (str)
  (setq spi (vlax-create-object "Sapi.SpVoice"))
3 i8 M3 M9 w2 v' r2 g' w  (vlax-method-applicable-p spi "Speak")
  (vlax-invoke-method spi "Speak" str 3)
0 }$ D9 O# [  B/ m2 ?7 v4 f)
8 B, d+ v, g/ p) a;;只有装了中文语音包下面这段代码才能完好运行.
' C( ~2 {9 b$ Z- P, m(defun c:speek (/ ss i)
) j# n2 i( g: l: S: J: ]4 o! S5 v  (princ "\n输入要朗读的文字:")
1 y' U6 ?' e/ W3 Y9 ?$ T' J$ o5 @! L  (setq ss (ssget '((0 . "*TEXT"))))
. ~6 S7 g) x& v5 j2 M" s; Y- q# Q  (setq i 0)  
  v3 U% I8 @7 ]& S3 D: J2 r  (repeat (sslength ss)
9 A+ u" @& Q) `9 v* Q    (setq speekContent
9 i) \, j( @* {* D       "<VOICE REQUIRED='NAME=Microsoft Simplified Chinese'>"
    )
    (setq speekContent
       (strcat speekContent
           (cdr (assoc 1 (entget (ssname ss i))))
( b4 _/ ]1 `& s4 W8 {* t           "</VOICE>"
) r$ r5 c4 F, ~5 x, @8 M! Y; n       )
    )
/ |8 @  r5 T9 }& t0 j  n/ X    (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))
      )
6 ?1 R' V) X1 m2 M8 g2 U    )
3 }6 a# N5 F: ]+ O    (setq i (+ i 1))
  )
! Z% f4 b- N% |5 T2 ])

qq64400732

厉害啊，，高手

Hi_tek

咱也试试！

tangting0439

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

wuql2006

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

ysryc99001

我也来试试，

fuuqiang

试一试，楼主了不起。