dxf文件重命名和内容c
大家好。。。我在一个文件夹中有100个dxf图形。我想把它的文件名从69xx改为70xx
其内容也将从69xx更改为70xx。
你能帮帮我吗。我也在做这个。。。
谢谢
尼钦 对于重命名文件，我建议您寻找第三部分工具-例如LupasRename（免费软件）。
请澄清，你这是什么意思？ 我有大约100个dxf文件，基本上它的文件名和文件中的文本是要更改的。
dxf文件中的txt类似于69-5511,69-5512,69-5513。。。。等
在一个dxf中只有一个文本，必须更改为70 xxxx。 如果这些文件的内容只有一个字符串，并且考虑到DXF是ASCII（纯文本）文件，则可能需要寻找支持批处理的文本编辑器；记事本++就是一个例子。 ;; purge, zoom and saves all drawings in a folder
;; By Abbas Aqdam
(defun C:PZT ( / path files dwg sf )
(if (or (= (getvar "SDI") 0) (> (getvar "DBMOD") 0))
(alert "Please: \n\n1-SAVE and close all open drawing!\n\n2-Set SDI to 0")
(progn
(setq path "C:\\TEST\\")
(setq files (vl-directory-files path "*.dwg" 1))
(if (> (length files) 0)
(progn
(setq sf (open (strcat path "T.SCR") "w"))
(write-line "Filedia" sf)
(write-line "0" sf)
(foreach dwg files
(write-line "open" sf)
(write-line (strcat "\"" path dwg "\"") sf)
(write-line "(command \"purge\" \"a\" \"*\" \"N\")" sf)
(write-line "(command \"zoom\" \"e\" \"zoom\" \"s\" \"0.95x\")" sf)
(write-line "qsave" sf)
);foreach
(write-line "Filedia" sf)
(write-line "1" sf)
(close sf)
(command "script" (strcat path "t.scr"))
);progn
(Alert (strcat "There is no dwg files in " path "!"))
);if
);progn
);if
);defun
希望我们可以使用编辑文本命令，而不是清除和缩放。。
正在等待答复。。 该代码正在为文件列表构建脚本；稍后需要通过脚本命令调用它。对于一堆文件，还有其他解决方案可以做到这一点，其中之一是使用Excel（或其他工作表应用程序）。
我没有建议您使用脚本方法，因为我真的不知道如何使用这种技术通过模式编辑文本实体。
你说的模式是什么意思？
69替换为70右？？
说真的，我不知道如何使用记事本++，也不知道如何使用excel。。
可能我需要学习更多关于记事本的知识++
谢谢你的快速回复。。。
尼钦 通过模式编辑，我的意思是替换“69-？？”带有“70-？？”它只替换字符串的一部分。
只有当有人能够提供解决方案来通过脚本进行编辑时，Excel才会派上用场；然后，您可以生成要编辑的文件列表，为第一个文件编写脚本，并使用Excel的功能克隆所有文件。 Nithink55，如果您决定使用NotePad++解决方案，那么本文可能会对您感兴趣。 我不想混淆这个问题，但我会非常小心尝试替换DXF文件中的模式。您可以只替换dxf代码而不是文本字符串，并完全更改结构。
我不知道您是打算使用AutoCAD还是通过文本编辑器来更改这些内容。根据您对DXF文件的引用，我假设您不想使用AutoCAD，但现在我不太确定。
就我个人而言，我会使用DOS RENAME命令更改文件名，并在AutoCAD中打开DXF文件，然后进行查找和替换。像往常一样，我确信李已经写了其中一个。
页:
[1]
2