LISP是否可以实现打开某个文件夹后选中某个文件

muwind

如题，设想在cad调用lisp程序打开个"C:\XXCAD"的文件夹，打开后选中某个XX.LSP的文件，类似windows快捷方式属性中的“打开文件位置”功能。打开文件夹"C:\XXCAD"很简单，不知道怎么让xx.lsp成为选中状态

ㄘ丶转裑ㄧ灬

(defun c:g44 ()
  (startapp (strcat "explorer /select, " "D:\\LISP_HT\\" "000_幕墙通用工具箱.lsp" ", /e" ))
  (princ)
)

muwind

ㄘ丶转裑ㄧ灬 发表于 2020-8-15 13:55
(defun c:g44 ()
  (startapp (strcat "explorer /select, " "D:\\LISP_HT\\" "000_幕墙通用工具箱.lsp" " ...

soga 3Q ，参考您的代码我用的（文件在支持目录下面） 非常好
(startapp (strcat "explorer /select, "   (findfile "XXX.lsp") ", /e"))
百度了下 explorer 命令行的参数
语法

EXPLORER.EXE [/n][/e][,/root,<object>][[,/select],<sub object>]

/n: 默认选项，用我的电脑视图为每个选中的item打开一个单独的窗口,  即使该窗口已经被打开。

/e: 使用资源管理器视图。资源管理器视图和Windows 3.x的文件管理器非常相似。

/root,<object>: 指定视图目录根，默认使用桌面作为根目录。

/select,<sub object>: 选中指定对象。如果使用"/select" , 则父目录被打开，并选中指定对象。

例子

打开资源管理器视图并以C:\Windows为目录根浏览

explorer /e,/root,C:\Windows

打开资源管理器视图并选中Calc.exe

explorer /e,/select,c:\windows\system32\calc.exe

maiko

tryhi 发表于 2020-8-17 09:30
烦请赐教。

;赐教不敢当,共同学习
(defun c:test (/ s)
  (vl-load-com)
  (setq s (vlax-create-object "shell.application"))
  (vlax-invoke s 'open "C:\\Windows")
  (vlax-release-object s)
)

GSD

感谢！！！！！！！！！！！！！！！！

走走逛逛瞧瞧

tryhi

ㄘ丶转裑ㄧ灬 发表于 2020-8-15 13:55
(defun c:g44 ()
  (startapp (strcat "explorer /select, " "D:\\LISP_HT\\" "000_幕墙通用工具箱.lsp" " ...

有没有可能实现当文件夹已经打开的时候，不新建一个窗口，而是定位原来的窗口？

muwind

tryhi 发表于 2020-8-16 23:05
有没有可能实现当文件夹已经打开的时候，不新建一个窗口，而是定位原来的窗口？

可以，昨晚在明净看到的，用shell，比如已经打开  d:\\
(command "shell" "start  d:\\")

tryhi

muwind 发表于 2020-8-16 23:19
可以，昨晚在明净看到的，用shell，比如已经打开  d:\\
(command "shell" "start  d:\\")

打开后定位选中呢？比如D:\\1.txt

maiko

tryhi 发表于 2020-8-16 23:05
有没有可能实现当文件夹已经打开的时候，不新建一个窗口，而是定位原来的窗口？

Shell.Application方式可以

tryhi

maiko 发表于 2020-8-17 00:49
Shell.Application方式可以

烦请赐教。