如何打开和关闭文件夹

nataca · 发表于 2022-7-6 07:41:01

如何使用visual lisp打开和关闭文件夹？
我有一条路（例如：“D:\\PROJECTS\2010”）

pBe · 发表于 2022-7-6 07:53:11

一种方法是

 
(defun openw (fldr)
(startapp "explorer" fldr)
 )

（openw“D:\\项目\ 2010”）

nataca · 发表于 2022-7-6 07:54:54

谢谢
李帮了我

copy


(defun Explore ( Directory / Shell result )
 (setq Shell  (vla-getInterfaceObject (vlax-get-acad-object) "Shell.Application"))
 (setq result (vl-catch-all-apply 'vlax-invoke (list Shell 'Explore Directory)))
 (vlax-release-object Shell)
 (not (vl-catch-all-error-p result))
)

但我仍然无法关闭文件夹

Ace · 发表于 2022-7-6 08:05:36

这可能会有所帮助

copy


;;;CADALYST 10/06   Tip2158: Directory.lsp   Directory   (c) Mark Newman 
;;; Created by Mark Newman : June 2002
;;;
;;  ----
;;  ----
(DEFUN C:DIRECTORY (/)
 (STARTAPP "EXPLORER" (GETVAR "DWGPREFIX"))
 (PRINC)
)
;;  ----
;;  ----

Bill Tillman · 发表于 2022-7-6 08:11:40

我需要一种方法让我们的用户打开特定文件夹中的文件。不是上次访问的文件或特定打开文件的来源文件夹。尝试使用Open命令不起作用，因此我使用类似的“startapp”在映射到服务器位置的T:\驱动器中打开Explorer：

copy

^C^C^P(startapp "Explorer T:")

这可行，但我只想要*。dwg文件出现在列表中并添加\*。dwg到上述命令对其没有影响。

Lee Mac · 发表于 2022-7-6 08:20:22

copy

(getfiled "" "T:\" "dwg" 16)

Bill Tillman · 发表于 2022-7-6 08:26:15

李，

谢谢我不得不再次检查我的语法，但这是可行的。再次感谢。

顺便说一句，你能去那里看奥运会吗？

Lee Mac · 发表于 2022-7-6 08:33:37

我当然是！节目中有一些很棒的天才，绝对吸引人

Bill Tillman · 发表于 2022-7-6 08:36:37

尤其是荷兰女子曲棍球队。哈巴哈巴！

为了完成这一点，我最终做了以下工作：

copy


(defun c:open4chk (/ fname)
 (vl-load-com)
 (setq fname (getfiled "" "T:/" "dwg" 16))
 (vla-activate (vla-open (vla-get-documents (vlax-get-acad-object)) fname))
)

效果很好。再次感谢。

Lee Mac · 发表于 2022-7-6 08:41:58

事实上，还是沙滩排球！

或者，考虑：

copy

(defun c:open4chk ( / f )
   (if (setq f (getfiled "" "T:/" "dwg" 16))
       (startapp "explorer" f)
   )
   (princ)
)

[编程交流] 如何打开和关闭文件夹

发表回复

精选推荐