如何在lisp中实现打开文件目录，已经打开就不再打开，直接显示在最前端并定位！

fangmin723

请问各位大神，如何在lisp中实现打开文件目录，如果已经打开了，就不再打开，直接跳出目录，并定位文件！

现在已经实现这两个功能，但是如果两者能柔和一下就好了！
;打开文件目录并定位文件
(startapp "explorer" "/select,C:\\Windows\\notepad.exe")

;打开本文件的路径的时候如果已经打开过了，就弹出，如果没有，就打开！
(command "shell" "start d:\\")

想要的效果就像这样：不管你点多少次文件夹，始终只打开一个目录，并定位到文件

1993063

;;;这个基本可以实现
(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")

fangmin723

1993063 发表于 2017-9-16 09:08
;;;这个基本可以实现
(defun test ( ext / shell)
  (vl-load-com)

谢谢，你这个只是能打开目录，并不能定位道文件！感谢热心帮助！

li809

我是过来学习的，我也需要这个功能