Catia V5 CATScript pour supprimer des symboles de noms de parties de corps

Question

J'ai cherché pour toujours une macro qui me permettrait de supprimer "." et "/" dans les noms de parties de Catia v5.

Est-ce que quelqu'un a déjà vu une macro comme ça?

J'ai une partie qui lit dans Catia avec plus d'un corps de partie en eux avec ces symboles. Je veux exécuter cette macro afin que je puisse ensuite exécuter une macro que j'ai déjà qui crée des parties séparées de chacun des corps de la pièce et les assemble en un produit. La macro qui crée des pièces séparées échoue car le "." et "/" ne sont pas autorisés dans les noms de pièces.

Answer 1

Votre macro pourrait être quelque chose comme ce qui boucle à travers tous les corps dans la partie et les renomme en utilisant la fonction replace successivement:

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