如何在lisp中实现打开文件目录，已经打开就不再打开，直接显示在最前端并定位！
本帖最后由 fangmin723 于 2017-9-15 16:31 编辑请问各位大神，如何在lisp中实现打开文件目录，如果已经打开了，就不再打开，直接跳出目录，并定位文件！
现在已经实现这两个功能，但是如果两者能柔和一下就好了！
;打开文件目录并定位文件
(startapp "explorer" "/select,C:\\Windows\\notepad.exe")
;打开本文件的路径的时候如果已经打开过了，就弹出，如果没有，就打开！
(command "shell" "start d:\\")
想要的效果就像这样：不管你点多少次文件夹，始终只打开一个目录，并定位到文件
;;;这个基本可以实现
(defun test ( ext / shell)
(vl-load-com)
(setq shell (vlax-create-object "shell.application"))
(vlax-invoke shell 'open ext)
(vlax-release-object shell)
)
;;(test "C:\\Windows") 1993063 发表于 2017-9-16 09:08
;;;这个基本可以实现
(defun test ( ext / shell)
(vl-load-com)
谢谢，你这个只是能打开目录，并不能定位道文件！感谢热心帮助！ 我是过来学习的，我也需要这个功能
页:
[1]