Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Makro speichern von Produkten inkl Parts

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:  Makro speichern von Produkten inkl Parts (698 mal gelesen)
Langer11
Mitglied



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

Beiträge: 31
Registriert: 30.07.2015

Catia V5 R29
VBA

erstellt am: 17. Mai. 2019 14:28    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 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

bgrittmann
Moderator
Konstrukteur


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

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 17. Mai. 2019 19:59    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 Nur für Langer11 10 Unities + Antwort hilfreich

Servus

Wo speicherst du denn in deinem Code?
Vermutlich müsstest du für SaveAs nur den kompletten Pfad mit Dateiendung (ggf Fallunterscheidung CATPart und CATProduct) zusammen setzen

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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