Autor
|
Thema: Rename Publication ( Veröffentlichung umbenennen) (2388 mal gelesen)
|
cmb Mitglied Systembetreuer
Beiträge: 500 Registriert: 12.07.2002 CATIA V5-6R2016 64bit Smarteam R22.6 Moldflow Adviser 2014 Lenovo Think Pad P90
|
erstellt am: 06. Okt. 2011 15:21 <-- editieren / zitieren --> Unities abgeben:
Hallo Forum, es gibt zu diesem Thema schon einige Treads , eine Lösung dazu habe ich aber leider nicht finden können. Ich möchte meine Veröffentlichungen überprüfen und die Umlaute eliminieren. Das wäre mein Ansatz: Code:
Sub CATMain() On Error Resume Next Dim oDoc As Document Dim oProd As Product Set oDoc = CATIA.ActiveDocument Set oProd = oDoc.Product Set Publics = oProd.Publications Dim ref1 'As String For i = 1 To Publics.Count Set ref1 = Publics.Item(i).Valuation MyString = ref1.DisplayName If MyString Like "*ö*" Then MyString = Replace(MyString, "ö", "oe") ElseIf MyString Like "*ä*" Then MyString = Replace(MyString, "ä", "ae") ElseIf MyString Like "*ü*" Then MyString = Replace(MyString, "ü", "ue") ElseIf MyString Like "*ß*" Then MyString = Replace(MyString, "ß", "ss") End If Publics.Item(i).Valuation.DisplayName = MyString 'hier sollte die Umbenennung stattfinden Set i = i + 1 Next End Sub
leider übernimmt das Macro den Inhalt von MyString nicht. Hat so etwas schon jemand lösen können? G Norbert ------------------ V5R20 Catia + Smarteam Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 06. Okt. 2011 15:54 <-- editieren / zitieren --> Unities abgeben: Nur für cmb
Servus IMHO gibt dir "Valuation" die Referenz nicht die Publication zurück. Anbei wein Beispiel wie es klappen könnte: Zitat: Sub CATMain() On Error Resume Next Dim oDoc As Document Dim oProd As Product Set oDoc = CATIA.ActiveDocument Set oProd = oDoc.Product Set Publics = oProd.Publications Dim ref1 'As String For i = 1 To Publics.Count Set ref1 = Publics.Item(i) MyString = ref1.Name MyString = Replace(MyString, "ö", "oe") MyString = Replace(MyString, "ä", "ae") MyString = Replace(MyString, "ü", "ue") MyString = Replace(MyString, "ß", "ss") ref1.Name = MyString 'hier sollte die Umbenennung stattfinden Next End Sub
Achtung, falls du auch Umlaute in Großbuchstaben hast, musst du diese auch ersetzen. Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cmb Mitglied Systembetreuer
Beiträge: 500 Registriert: 12.07.2002 CATIA V5-6R2016 64bit Smarteam R22.6 Moldflow Adviser 2014 Lenovo Think Pad P90
|
erstellt am: 10. Okt. 2011 08:53 <-- editieren / zitieren --> Unities abgeben:
Hallo Bernd, vielen Dank für Deine Hilfe. Leider ersetzt das Macro den Namen der Publikation nicht Code: ref1.Name = MyString
ich werde mal weitersuchen Gruß Norbert ------------------ V5R20 Catia + Smarteam Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tobiley Mitglied Masterstudent
Beiträge: 59 Registriert: 15.02.2010 Win XP CatiaV5 R17, R18, R19 HD2-Lizenz VB2008
|
erstellt am: 10. Okt. 2011 17:56 <-- editieren / zitieren --> Unities abgeben: Nur für cmb
Hallo, ich habe damals auch nach einer Lösung gesucht Veröffentlichung per Makro umzubenennen. Bin aber dann zu dem Schluss gekommen das es keine Möglichkeit gibt. Hast du noch was gefunden? Gruß Tobi Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|