会说英语的lisp

xianaihua

2. (defun SayIt (Phrase$ / Sapi)
3.   (setq Sapi (vlax-create-object "Sapi.SpVoice"))
4.   (vlax-invoke Sapi "Speak" Phrase$ 0)
5.   (vlax-release-object Sapi)
6.   (princ)
7. )
8. (setq Phrase$ "good morning")
9. (SayIt Phrase$)

(defun SayIt (Phrase$ / Sapi)   (setq Sapi (vlax-create-object "Sapi.SpVoice"))   (vlax-invoke Sapi "Speak" Phrase$ 0)   (vlax-release-object Sapi)   (princ) ) (setq Phrase$ "good morning") (SayIt Phrase$)

aicr317

会说中文吗

zdqwy19

我试验了一下，中文、中英混合都可以，我的系统win7

zyhandw

高手啊！！！