高分求catia宏命令文件批量重命名？

Question

就是批量把这些零件批量重命名，求宏命令！

Answer 1

Language="VBSCRIPT"
Dim dir_in as string
Dim dir_out as string

Dim Docs_Array(2000) as string
Dim Docs_Num as integer

'定义敏感的字符串，可扩充
'StrCount 与字符串大小相等
Dim StrCount as Integer
StrCount = 3
Dim StrSensitive(3) as string
StrSensitive(1) = "jiaozhengfangan"
'StrSensitive(2) = ""
'StrSensitive(3) = ""

'定义替换后的字符串
Dim StrResult(3) as string

StrResult(1) = ""
'StrResult(2) = ""
'StrResult(3) = ""

'定义装配件是否有错误链接的标志值
Dim linkError As Integer
linkError=0

'定义三维标注中的旗标的url的内容和位置
Dim url As String
url=""

Sub CATMain()

CATIA.DisplayFileAlerts = False

On Error Resume Next

Dim prompt as string

if( CATIA.Documents.count > 0 ) then
prompt = "There are some documents in CATIA Session!!" & chr(13)+chr(10)
prompt = prompt & chr(13)+chr(10) & "Please Close All opened Documents First !!"
msgbox prompt
exit sub
end if

msgbox chr(13)+chr(10) & " 文件转换前，请做好文件备份！！" & chr(13)+chr(10)

' ---------------------------------------------------------------------
dim FileSys as FileSystem
set FileSys = CATIA.FileSystem
Dim Exists As Boolean

Answer 2

我有批量重命名工具，可以将产品导出Excel，然后在Excel里修改。再倒回去。图号和外部文件名都可以修改，还可以修改零件版次、定义、术语、实例名称本回答被网友采纳

Answer 3

为什么不用臭豆腐工具箱CATIA版呢？可以批量重命名，加前缀后缀，替换字符都可以，最重要的是免费

Answer 4

臭豆腐工具箱 下载链接

Answer 5

save management里面可以一次性分别另存为啊，可以试试