文件另存为Lisp
早上好我在询问是否有人这样做。
我想另存为文件，为文件名添加后缀或前缀
所以画。dwg变为Drawing_Old。例如Dwg
然而，图纸很旧。Dwg可能存在，有没有人有一个例程可以将（1）（或下一个最大数字）添加到新文件名中
所以画。dwg可能变为Prefix\u Drawing\u Old（5）。图纸
（我在想一些类似的事情（是的，我知道它需要正确的语法和东西，只是我的快速想法）：
Setq drawing (findfile Prefix_Drawing_Old.dwg)
If (= nil drawing saveas Prefix_Drawing_Old.dwg)
If (/= nil drawing
Progn
setq x 1
(while (/= drawing nil)
findfile Prefix_Drawing_Old(x).dwg
setq x (+ 1 x)
);end while
saveas Prefix_Drawing_Old(x)
))f
如果我能记住或找到它，你可能会更好地使用它。你可以得到一个图纸名称列表*。dwg so排序列表并查看最后一个条目，它不是1还是最后一个数字。它可能使用了doslib函数。将尝试查找。也许可以查一下李。通用域名格式。 谢谢，艾尔，我不会想到的，我想那会更整洁
李·麦克。通用域名格式。。男生错误，没有先检查那里，哎呀。猜猜谷歌下一步会带我去哪里？
你可以参考我在这里发布的LM:uniquefilename函数。 谢谢李，一如既往的天才，非常受欢迎 不客气！
页:
[1]