將VBA代碼轉換爲CATScript或VBScript

Question

GisMofx爲我提供了此VBA代碼。
我使用此代碼從我的Catia零件體中刪除指定的符號。
你能幫我轉換成CATScript或Vbscript嗎？

Sub FixPartBodyNames() 

Dim myPart As Part 
Set myPart = CATIA.ActiveDocument.Part 

Dim myBody As Body 

Dim newName As String 
Dim newCharacter As String 
newCharacter = " " 

For Each myBody In myPart.Bodies 'loop through all the bodies in the part 
newName = myBody.Name 'get the current body's name 
newName = Replace(newName, ".", newCharacter) 'replace all "." with " " 
newName = Replace(newName, "/", newCharacter) 'replace all "/" with " " 
myBody.Name = newName 'rename the current body with the revised name 
Next 

MsgBox "All Done!" 
End Sub 

Answer 1

您是否試圖用CATMain更改FixPartBodyNames？