1. 高分求catia宏命令文件批量重命名
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