changyiran 发表于 2013-11-21 11:13:20

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

本帖最后由 changyiran 于 2013-11-21 11:16 编辑

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

changyiran 发表于 2013-11-21 11:17:45

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

changyiran 发表于 2013-11-21 12:59:20

没人知道吗？
页: [1]
查看完整版本: 如何让用lisp打开的word处于激活状态