catia - Catia V5 CATScript 从零件主体名称中删除符号

Question

我一直在寻找一个可以让我删除“。”的宏。和 Catia v5 Part Body 名称中的“/”。

有人见过这样的宏吗？

我有一个读入 Catia 的部分，其中包含多个带有这些符号的 Part Body。我想运行这个宏，这样我就可以运行一个我已经拥有的宏，它从每个零件主体创建单独的零件并将它们组装成一个产品。创建单独部分的宏失败，因为“。” 和“/”不允许在部件名称中。

Answer 1

您的宏可能是这样的，它循环遍历零件中的所有主体并使用该replace函数连续重命名它们：

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