Hallo Zusammen,
ich möchte ein Produkt und dessen Parts mittels eines Makros 1 umbenennen. Anschließend will ich das komplette Produkt mit allen Unterprodukten und Einzelteilen mittels eines anderen Makros, Makro 2, speichern können, sodass mein Speichername immer der Bezeichnung der "Part Number" des Parts oder Assemblys entspricht. Hierfür habe das Makro das unten steht erstellt.
Es funktioniert auch einwandfrei, solange ich keinen "." in der Bezeichnung "Part Number" habe.
Leider benennen wir in unserer Firma alle Einzelteile mit einer Positionsnummer, die einen Punkt beinhaltet. (Bsp. 6104101__1000.0001__Grundplatte_oben). All diese Einzelteile, die einen Punkt in der Bezeichnung beinhalten, speichert er zwar unter dem richtigen Namen, nämlich "6104101__1000.0001__Grundplatte_oben" ab. Aber nicht, wie alle anderen Teile unter dem Namen+Typ "6104101__1000.0001__Grundplatte_oben.CatPart". Dh. es wird nicht als CatiaTeil gespeichert.
Kann mir bitte jemand helfen, mein Makro so abzuändern, dass diese Teile mit der Endung ".CatPart" abspeichert?
Vielen Dank im Voraus.
Sub CATMain()
'_____________Eingabe des Speicherorts_________________________________________________
Dim Eingabe As String
Strich = "\"
Eingabe = "D:\Pf"
Eingabe = InputBox ("Bitte geben Sie den Speicherort ein.", "Eingabe Speichern", Eingabe) '____Eingabe entspricht Speicherpfad____
'_____________Abfrage Selektierte Elemente_____________________________________________
Dim UserSelektion As Selection
Set productDocument1 = CATIA.ActiveDocument
Set UserSelektion = productDocument1.Selection
UserSelektion.Search "(CATAsmSearch.Part+(CATAsmSearch.Product)),all"
For I = 1 to UserSelektion.Count
Name = (UserSelektion.Item(I).Value.ReferenceProduct.Name) '____ReferenceProduct.Name entspricht PartNumber____
'_____________Zuordnung____________________________________________________________
Set productDocument1 = CATIA.ActiveDocument
'_____________Abfrage Selektierte Elemente zum Speichen_________________________________
Dim SelectedProduct As Product
Set SelectedProduct = CATIA.ActiveDocument.Selection.Item2(I).Value
Dim doc As Document
Set doc = SelectedProduct.ReferenceProduct.Parent
'_____________Speicher Befehl Selektierte Elemente ______________________________________
CATIA.DisplayFileAlerts = False
Next
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP