Autor
|
Thema: Benennungen von Parts/Produkten per Macro kürzen (1273 mal gelesen)
|
Grünschnabel2019 Mitglied
Beiträge: 4 Registriert: 27.05.2019
|
erstellt am: 27. Mai. 2019 10:57 <-- editieren / zitieren --> Unities abgeben:
Hallo an Alle, ich bin mittlerweile etwas verzweifelt da ich es nicht hin bekommen, den Namen von Parts und Produkten auf 13 Stellen zu kürzen. Hintergrund ist, dass ich lediglich die ersten 13 Stellen der Nummern benötige im Baum und mehr nicht. Es wäre toll wenn mir jemand dabei helfen könnte. Es würde für den Anfang auch reichen zunächst die Teilenummern zu ändern. Wie geht man da am besten vor? Kann man die Stellen vorher per Abfrage abfragen? Vielen Dank Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Randle Mitglied CAD/PLM Consultant
Beiträge: 695 Registriert: 12.04.2003 Win10 x64 CATIA V5 R18, R19, R21, R27-29
|
erstellt am: 27. Mai. 2019 13:34 <-- editieren / zitieren --> Unities abgeben: Nur für Grünschnabel2019
Hallo, könntest du dir per Makro die ersten 13 Zeichen der Teilenummer in eine andere - nicht genutzte - Standardeigenschaft (z.B. Nomenclature, Definition etc.) schreiben und dir dann nur diese anzeigen lassen. Gruß Randle ------------------ Wer für nichts steht, fällt für alles! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Grünschnabel2019 Mitglied
Beiträge: 4 Registriert: 27.05.2019
|
erstellt am: 27. Mai. 2019 13:57 <-- editieren / zitieren --> Unities abgeben:
|
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 27. Mai. 2019 14:04 <-- editieren / zitieren --> Unities abgeben: Nur für Grünschnabel2019
Servus Was willst du denn Umbenennen? Die PartNumber, Dateiname, Nomenclatur? Hast du schon mal hier im Forum nach "umbenennen" gesucht (zB das hier könnte ein brauchbarer Ansatz sein). Such mal am besten nach ähnlichen Themen, vielleicht ist was passendes dabei. Die PartNumber auf die ersten 13 Zeichen kürzen könnte dann so aussehen (am Beispiel des verlinkten Themas): Code: product2.PartNumber = left(product2.PartNumber,13)
Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Randle Mitglied CAD/PLM Consultant
Beiträge: 695 Registriert: 12.04.2003 Win10 x64 CATIA V5 R18, R19, R21, R27-29
|
erstellt am: 28. Mai. 2019 08:35 <-- editieren / zitieren --> Unities abgeben: Nur für Grünschnabel2019
Moin, moin, das hier sollte gehen (ungetestet). Code:
Sub CATMain() Dim oDoc As Document Dim oProd As Product Dim sExtension As String Dim intCounter As Integero intCounter = 13 If CATIA.Documents.Count > 0 Then For Each oDoc In CATIA.Documents Select Case TypeName(oDoc) Case "PartDocument": sExtension = ".CATPart" Case "ProductDocument": sExtension = ".CATProduct" Case Else: sExtension = "" End Select If sExtension <> "" Then Set oProd = oDoc.Product oProd.PartNumber = Left(oProd.PartNumber, intCounter) oDoc.SaveAs oDoc.Path & "\" & oProd.PartNumber & sExtension End If Next End If MsgBox "Finish!" & vbNewLine & "Check the Savemanagent and save unsaved files before close the CATIA session.", vbInformation, "Info" End Sub
Gruß Randle ------------------ Wer für nichts steht, fällt für alles! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Grünschnabel2019 Mitglied
Beiträge: 4 Registriert: 27.05.2019
|
erstellt am: 28. Mai. 2019 09:36 <-- editieren / zitieren --> Unities abgeben:
|
Randle Mitglied CAD/PLM Consultant
Beiträge: 695 Registriert: 12.04.2003 Win10 x64 CATIA V5 R18, R19, R21, R27-29
|
erstellt am: 28. Mai. 2019 10:41 <-- editieren / zitieren --> Unities abgeben: Nur für Grünschnabel2019
vielleicht noch der Hinweis das hier ALLE in CATIA V5 geladenen Dokumente berücksichtigt werden und nicht nur die Dokumente innerhalb eines (aktiven) Products! ------------------ Wer für nichts steht, fällt für alles! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Grünschnabel2019 Mitglied
Beiträge: 4 Registriert: 27.05.2019
|
erstellt am: 28. Mai. 2019 12:41 <-- editieren / zitieren --> Unities abgeben:
|