(setvar "modemacro" "Hello world is it not a nice day")
或者，为了好玩，为什么每次打开Autocad时都会发出一声问候呢？我想是Grr让我开始使用这个。
(defun SpeakSapi ( s / sapi )
(if (eq (type s) 'STR)
(progn
(setq sapi (vlax-create-object "Sapi.SpVoice"))
(vlax-put sapi 'SynchronousSpeakTimeout 1)
(vlax-invoke-method sapi 'WaitUntilDone 0)
(vlax-invoke sapi "Speak" s 0)
(vlax-release-object sapi)
)
)
)
(speaksapi "please remain seated during your Autocad session do not leave work area")
我只能看到错误选择对象的所有消息
(speaksapi "Arcs are like a banana ... please pick again")
(speaksapi "Dimensions the thing with the arrows on each end ... pick again")
(speaksapi "You picked incorrectly ...have another go")
(speaksapi "Circles are what happens when you spin around when sitting on your chair ... pick again")
比格尔大师真好。这些信息将帮助用户在工作时保持清醒。哈哈哈。谢谢你，先生
页:
1
[2]