需要LISP或脚本

CadTechJGC184 · 发表于 2022-7-6 14:41:04

大家好，

我有100多个dwg用于重命名标题（非外部参照）和更改文件名。一次只做一个会花我很长时间！而且我会先自杀。英雄联盟

有什么建议吗？

提前感谢！！

我想一个lisp或scr做文件重命名和另一个将做的标题。这样我可以在将来使用它们。

Freerefill · 发表于 2022-7-6 14:49:33

有很多方法可以满足你的要求，但你能更具体一点吗？作品中的图案在哪里。。你是否在每个文件中添加了特定的文本位，它们是否都在某个目录中？我觉得有很多简单的方法可以做你想做的事，而且一点都不成问题。

我之前已经发布了这个。。仅将其从“vl文件复制”更改为“vl文件重命名”：

copy


(defun c:renameFiles( / )
 (vl-load-com)
 (setq filExt ".dwg")
 (setq filApp "_new")
 
 (setq getDir (vl-filename-directory (getfiled "Select file to specify directory.." "" "" 32)))
 (setq getFil (vl-directory-files getDir (strcat "*" filExt) 1))
 (foreach filVar getFil
   (vl-file-rename (strcat getDir "\" filVar) (strcat getDir "\" (substr filVar 1 (- (strlen filvar) 4)) filApp filExt))
   )
 (princ)
 )

只需在代码中指定文件类型以及要附加到文件末尾的任何字符串。如果需要将字符串放在特定位置，也可以这样做。当你运行程序时，它会要求你在一个目录中选择一个文件，它会对该目录中的所有文件运行该函数。

编辑标题栏也很容易。要更改的属性的值/名称是什么，您希望将其更改为什么？您是要为每个文件指定它，还是要保持一致？

CadTechJGC184 · 发表于 2022-7-6 14:54:01

免费加注，

我必须更改的工作表标题不是属性。它们是独立文本。这会有问题吗？

至于文件名，它们都在同一个目录中，只需在计划的末尾添加一个s即可。我希望以后能有更多的变化。

非常感谢。

Lee Mac · 发表于 2022-7-6 14:55:53

标题在自己的层上吗？还是有自己独特的色彩？

如果他们有一些决定性的因素，这将是有益的

Freerefill · 发表于 2022-7-6 15:02:50

一旦你知道自己在做什么，VLA肯定很有趣^

这里有几个命令，很抱歉这些命令太长了，但是你可以更改。每一个都很像它听起来的样子。

renameFiles\u append用文本filApp追加每个文件
renameFiles\u remove从文件名中删除选定数量的字符（filRem）
renameFiles\u replace将给定文本（filSea）替换为其他给定文本（filRep）（注意，这仅替换第一个实例，而不是所有实例）

是的，只要有开始的地方，替换独立文本比属性文本容易得多！属性文本有名称，因此一旦你知道如何在块中爬行，通常更容易找到它们，这是很困难的。独立文本很难定位，但您只需要一个简单的entmod，就完成了。为此，你能详细阐述一下文本的属性吗？有什么能让它与众不同的地方吗？