浏览当前目录

ScribbleJ · 发表于 2022-7-6 08:25:46

下面是一个例程，该例程将从AutoCad中打开Windows资源管理器，并将其打开到当前工作目录和自动保存目录。我不相信这一点，我也不知道作者是谁。我只是想分享这个，因为我觉得它非常有用。

享受

;========= Explorer to Current Directory
(Defun C:ECD ()
  (Setvar "Cmdecho" 0)
  (Command "Shell"
     (Strcat
        "Explorer /n,"              ;Explorer, New Window, (add /e to use Explorer View) 
        (Chr 34)                       ;Quote marks
        (Getvar "dwgprefix")           ;Current drive and folder
        (Chr 34)                       ;Quote marks
     )                                 ;Close Strcat
  )                                    ;Close Command
  (Princ)
)                                       ;Close Defun on C:ECD
;========= Explorer to AutoSave Directory
(Defun C:EASD ()
  (Setvar "Cmdecho" 0)
  (Command "Shell"
     (Strcat
        "Explorer /n,"              ;Explorer, New Window, (add /e to use Explorer View) 
        (Chr 34)                       ;Quote marks
        (getvar "savefilepath")        ;Current drive and folder
        (Chr 34)                       ;Quote marks
     )                                 ;Close Strcat
  )                                    ;Close Command
  (Princ)
)                                       ;Close Defun on C:EASD

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

感谢分享卡尔文

这是我使用的：

http://lee-mac.com/open.html

打开文件/文件夹/特殊文件夹

ScribbleJ · 发表于 2022-7-6 08:47:53

李也感谢分享。在我学习LISP的过程中，很高兴看到其他人如何达到类似的目标。我喜欢我贴的那个，因为它是一个三个字母的键盘，用来打开我当前工作的文件夹。我尽量缩短我的努力。我在工作中重复了很多事情，我发现少键入一个字符或少点击一次鼠标确实对我有很大的帮助，尤其是当我重复这样做以产生结果时。因此，能够在命令行中键入“ECD”对我来说是一种快速打开资源管理器以访问我正在处理的文件的方法。我通常不会通过explorer访问文件，因为我们在这里使用图纸集管理器，这是公司的标准，可以帮助我们管理项目以及平面图、纵断面图和详图中的字段参考气泡。

我想我的观点是，我在寻找最快和最有效的方式来执行任务。

干杯

alanjt · 发表于 2022-7-6 08:59:51

多年来，我在创业公司就有这样的经历：

copy

(defun c:DIRR (/) (STARTAPP "EXPLORER" (GETVAR "DWGPREFIX")) (princ))

Lee Mac · 发表于 2022-7-6 09:01:32

在同一个主题上，我相信在while back的Swarm上有一个请求，用户希望有一个程序，可以打开一组与他们正在进行的项目相关的文件；例如，如果用户每天使用相同的文件，他们可以打开AutoCAD（或将AutoCAD添加到Windows启动），然后只需单击一个按钮，与项目相关的所有文件都将打开（这些文件的名称可以存储在一个小文本文件中）。

只是一个想法，不太难创造

alanjt · 发表于 2022-7-6 09:11:05

我记得那条线。有什么结果吗？编写代码不会太难。

Lee Mac · 发表于 2022-7-6 09:19:39

不记得和cba搜索了-我想我发布了一些示例代码，但没有走得太远。

pBe · 发表于 2022-7-6 09:26:31

copy

 
(if (= (getvar 'dwgtitled) 1)
     (startapp
           (strcat "explorer /select, "
                   (getvar "dwgprefix")
                   (getvar "dwgname")
                   ", /e"))
     )

突出显示的文件

[编程交流] 浏览当前目录

发表回复

精选推荐