[Patrick_35]让autocad发声的程序

;;;http://www.theswamp.org/index.php?topic=14549.0;all
;;;Patrick_35

(setq sapi (vlax-create-object "Sapi.SpVoice"))
(vlax-invoke sapi "Speak" "Do you want autocad speak ?" 0)
(vlax-release-object sapi)