如何让用lisp打开的word处于激活状态

changyiran

2. (defun c:xssm(/ APP)
   
3.   (setq app(strcat(vl-registry-read"HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\Winword.EXE""Path")"winword.exe"))
   
4.   (startapp app(strcat(vl-filename-directory(GETLSPPATH))"\""111说明.doc"))
   
5. 上述代码用于打开一个word文件，我用这个命令制作了一个按钮，但是点击按钮后，word是打开了，但为什么又瞬间返回到cad屏幕了呢，如何让打开后的word处于激活状态呢，请各位指教！

(defun c:xssm(/ APP)<br />   (setq app(strcat(vl-registry-read"HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\Winword.EXE""Path")"winword.exe"))<br />   (startapp app(strcat(vl-filename-directory(GETLSPPATH))"\""111说明.doc"))<br /> 上述代码用于打开一个word文件，我用这个命令制作了一个按钮，但是点击按钮后，word是打开了，但为什么又瞬间返回到cad屏幕了呢，如何让打开后的word处于激活状态呢，请各位指教！

changyiran

(vl-filename-directory(GETLSPPATH))返回一个路径，比如"d:\\"

changyiran

没人知道吗？