早上好
我在询问是否有人这样做。
我想另存为文件,为文件名添加后缀或前缀
所以画。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
|