需要LISP或脚本
大家好，我有100多个dwg用于重命名标题（非外部参照）和更改文件名。一次只做一个会花我很长时间！而且我会先自杀。英雄联盟
有什么建议吗？
提前感谢！！
我想一个lisp或scr做文件重命名和另一个将做的标题。这样我可以在将来使用它们。 有很多方法可以满足你的要求，但你能更具体一点吗？作品中的图案在哪里。。你是否在每个文件中添加了特定的文本位，它们是否都在某个目录中？我觉得有很多简单的方法可以做你想做的事，而且一点都不成问题。
我之前已经发布了这个。。仅将其从“vl文件复制”更改为“vl文件重命名”：
(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)
)
只需在代码中指定文件类型以及要附加到文件末尾的任何字符串。如果需要将字符串放在特定位置，也可以这样做。当你运行程序时，它会要求你在一个目录中选择一个文件，它会对该目录中的所有文件运行该函数。
编辑标题栏也很容易。要更改的属性的值/名称是什么，您希望将其更改为什么？您是要为每个文件指定它，还是要保持一致？ 免费加注，
我必须更改的工作表标题不是属性。它们是独立文本。这会有问题吗？
至于文件名，它们都在同一个目录中，只需在计划的末尾添加一个s即可。我希望以后能有更多的变化。
非常感谢。 标题在自己的层上吗？还是有自己独特的色彩？
如果他们有一些决定性的因素，这将是有益的 一旦你知道自己在做什么，VLA肯定很有趣^
这里有几个命令，很抱歉这些命令太长了，但是你可以更改。每一个都很像它听起来的样子。
renameFiles\u append用文本filApp追加每个文件
renameFiles\u remove从文件名中删除选定数量的字符（filRem）
renameFiles\u replace将给定文本（filSea）替换为其他给定文本（filRep）（注意，这仅替换第一个实例，而不是所有实例）
是的，只要有开始的地方，替换独立文本比属性文本容易得多！属性文本有名称，因此一旦你知道如何在块中爬行，通常更容易找到它们，这是很困难的。独立文本很难定位，但您只需要一个简单的entmod，就完成了。为此，你能详细阐述一下文本的属性吗？有什么能让它与众不同的地方吗？ 如果你用谷歌重命名，你会发现一个免费软件程序，可以让你很快地重命名图形。也适用于不同的文件类型。尤其是如果你只是想改变计划。我们在这里经常使用它。 好的，这是我得到的。它位于图层名称（A-BORDER文本标题）上。它们是同一层上的另一个文本，但它是页码（C2.1）。标题是：公用事业和铺路计划。我需要它说：电气现场平面图。我需要向你提供更多信息吗？ 这是一个打印屏幕。。。。对不起，这是一个双屏截图。我不知道如何在一个屏幕上进行打印https://www.cadtutor.net/forum/N:%5CJAMES%20CADE%20SHARED%5Ctitle.bmp屏幕。英雄联盟 这并不顺利。 按alt和print screen以获取当前屏幕
页:
[1]
2