另一个我有这个设置，用于使用用户id作为提醒其他人的各种测量消息。
- (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")
| 
