Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Part / Assembly
  Neu Aus mit Makro umbenennen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Neu Aus mit Makro umbenennen (1231 mal gelesen)
Lutz293
Mitglied



Sehen Sie sich das Profil von Lutz293 an!   Senden Sie eine Private Message an Lutz293  Schreiben Sie einen Gästebucheintrag für Lutz293

Beiträge: 25
Registriert: 08.08.2008

V5R18/19 WinXP 64Bit

erstellt am: 29. Aug. 2008 09:18    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo

Ich lade ein bestehendes Product mit Neu Aus und muss dann alle parts händisch umbenennen. Gibt es dafür ein Makro?   Ich habe schon im Forum gestöbert und etwas gefunden. Leider ist die Seite auf der dieses Makro zu finden sein soll veraltet und das Makro nicht mehr auffindbar.
Es muss eine suchen&ersetzen Funktion haben. Glaub ich...

LG Lutz293

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Lutz293
Mitglied



Sehen Sie sich das Profil von Lutz293 an!   Senden Sie eine Private Message an Lutz293  Schreiben Sie einen Gästebucheintrag für Lutz293

Beiträge: 25
Registriert: 08.08.2008

V5R18/19 WinXP 64Bit

erstellt am: 29. Aug. 2008 09:54    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


Habs doch noch im Forum gefunden!!!

Sub CATMain()


String5 = Inputbox ("Eingeben welcher Name oder Nummer ersetzt werden soll!!! ", "Test")
String3 = Inputbox ("Zu ersetzenden Namen oder Nummer eingeben", "Test")

    Set productDocument1 = CATIA.ActiveDocument 
    Set selection1 = productDocument1.Selection 
    selection1.Search "(CATAsmSearch.Part),all"
    For i = 1 To selection1.Count     
        Set productDocument1 = CATIA.ActiveDocument     
        Set product1 = productDocument1.Product   
        Set products1 = product1.Products     
        Set product2 = products1.Item(selection1.Item(i).Value.Name)
        String2=product2.partnumber
        String4=product2.name
        Dim Text1, Text2, Text3, Vergleich, Text4
        Text1 = String2
        Text2 = String5
        Text3 = String3
        Text4 = String4
        Vergleich = Replace(Text1, Text2, Text3)   
        product2.partnumber=vergleich
        Vergleich2 = Replace(Text4, Text2, Text3)
        product2.name=Vergleich2

Next

End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz