尝试存储最后一个文件夹

Kablamtron · 发表于 2022-7-6 15:16:53

大家好，

我试图让autolisp命令getfield转到我再次运行lisp时它保存文件的最后一个文件夹。

我有默认的目录设置，但我一直在研究如何让它返回到上次运行autolisp代码时所在的目录。

  (setq file (open (getfiled "specify output file" "C:/data08/" "xyz" 1) "w"))

基本上这就是我现在正在使用的，所有它都会转到C:\data08\

我真的很困惑，有没有办法让变量保存命令保存文件的最后一个目录，然后在再次运行autolisp时调用该变量？还是有更简单的方法？

感谢阅读，

卡布拉姆

hendie · 发表于 2022-7-6 15:24:53

为路径创建一个全局变量，并将其替换为“C:/data08/”

Kablamtron · 发表于 2022-7-6 15:29:56

谢谢hendie，

由于某种原因，我试图让它工作。GetField不喜欢C:\\data08\\t只有在我使用C:\\data08\\t时才能工作。

有什么方法可以让getfield命令使用两个，或者我可以将两个转换成一个斜杠吗？

Lee Mac · 发表于 2022-7-6 15:39:20

我认为可以使用双反斜杠存储变量：

C：数据08\\\\

不确定这是否有效。。。

Kablamtron · 发表于 2022-7-6 15:41:09

我会尽力解释清楚的

GetField无法读取c:\\Data08\\it give me this error

; 错误：错误函数：“C:\\Data08\”

GetField可以读取c:\Data08\

Autolisp自动将所有\转换为\\

我试图使用vl string subst命令将\\更改为\它不工作的atm，但我会继续。

谢谢你们的帮助，伙计们，这让我很困惑

Kablamtron · 发表于 2022-7-6 15:49:11

好吧，我成功了，但不知道为什么

copy

  (setq file (open (getfiled "specify output file" path1 "xyz" 1) "w"))

这个不行！

copy

  (setq file (open (getfiled "specify output file" path1 "xyz" 17) "w"))

这是我添加的

不知道为什么它会起作用，但它确实起了作用。哈哈，伙计，我对这件事很糟糕。谢谢大家的帮助

jammie · 发表于 2022-7-6 15:55:42

也许这也能有所帮助
它将记住上次使用的搜索路径

copy

;Date         :        19:11 19/01/2009
;;Add to start of routine
;;Load active x support
(vl-load-com)
;;Set the default directory for the first time the routine is loaded
(or dir (setq dir "C:/data08/")) ;;"C:/data08/"  can be changed to any path as a default
;;Verify that the directory is a valid one otherwise set it to the C drive 
(or (vl-file-directory-p dir)(setq dir "C:/"))
(setq fname(getfiled "specify output file" dir "xyz" 1))
;(setq file (open fname "w"))
;(close file)
;;Add to end of routine
;;Store the path for the next time the routine is run
(setq dir (vl-filename-directory   fname))

恐怕我不确定为什么Getfield在阅读路径时遇到问题。。

-杰米

jammie · 发表于 2022-7-6 16:01:30

变量path1是否可能是带有文件名的路径？

例如：C:/data08/调查。xyz公司

在GetField中添加16（第4位）似乎会去掉文件名并只搜索路径。

该错误可能是由于将路径和文件名传递给getfield并将标志设置为1引起的

Lee Mac · 发表于 2022-7-6 16:09:18

Jammie的观点很好，代码也很好。

Kablamtron · 发表于 2022-7-6 16:13:38

嗯，谢谢你的帮助，jammie，我会看看是否能用上你的代码，它比我的代码干净多了，哈！它很好地记住了路径特征。

对于路径，我认为它不会包含文件名。我在命令提示符下手动输入路径，这可能与此有关。

可能是它从路径中删除了final\\s，这可能就是问题所在。

无16位
e、 g.C:/data08/

带16位
e、 g.C:/data08

我只是在猜测它为什么起作用我真的不知道

[编程交流] 尝试存储最后一个文件夹

发表回复

精选推荐