---

Moin,
ich versuche seit letzter Woche Auftragsnummern in meinem CATIA Projekt umzubenennen.
Bei Solids und Flächen ist mir das schon geglückt. Allerdings bekomme ich meine Publications/Veröffentlichungen nicht umbenannt.
1. Frage: Kann mir dabei jemand sagen, ob es überhaupt geht und wenn ja, wie?

2. Frage: Ist dieser Ansatz erfolgsversprechend?

-------------------------------------------------------------------
Dim Publication() As Publication
        Dim Publications As Publications = MyProduct.Publications 'Produkt im aktiven Fenster

        Dim PubName As String

'Schleife zum Durchlauf der Veröffentlichungen/Publications
For i = 1 To Publications.Count
                    PubName = Publications.Item(i).Name
                    'Enthält der Publicationsname die alte Auftragsnummer?
                    TestPos = Strings.InStr(PubName, "Material_" & AuftragsNrAlt)

                    'Wenn ja, dann Auftragsnummer umbenennen

                    If TestPos > 0 Then
                        Publications.Item(i).Name = "Material_" & AuftragsNrNeu
                    End If
                   
                Next
------------------------------------------------------------------------------------

Als Fehlermeldung kommt dann "Die Methode oder der Vorgang ist nicht implementiert"

3.Frage:
Ein weiterer Ansatz wäre, die alte Publication zu kopieren und dann unter neuen Namen einzufügen.
Wie wäre es mit diesem Ansatz?

[Diese Nachricht wurde von mapast am 19. Feb. 2018 editiert.]

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

---

Hallo,

das Umbenennen von Veröffentlichungen per Makro geht nicht.

Was man machen könnte wäre das veröffentlichte Objekt einer Veröffentlichung auszulesen, die alte Veröffentlichung zu löschen und eine neue (korrekt benannte) zu erstellen.

Die Sache hat allerdings einen Haken. Durch das Löschen der alten Veröffentlichung gehen deine Links kaputt.

Ich würde mal drüber nachdenken ob es nicht möglich (und sinnvoller) ist Projektnamen/Zeichnungsnummern usw. aus den Namen der Veröffentlichungen zu entfernen (neutrale Namen).

Gruß
Randle

------------------
Wer für nichts steht, fällt für alles!

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

---

Servus

Willkommen im Forum. Bitte Systeminfo ausfüllen.
Hast du schon mal im Forum danach gesucht?
Hast du mal einfach deinen geposteten Code getestet?
AFAIR kann man Publications per Makro nicht umbenennen.
Das Kopieren/Einfügen wird wohl wenig bringen. Eher neue Publication erzeugen, mit SetDirect bzw SetRelay die Referenz zur Geometrie dranhängen und danach "alte" Publication löschen.

Gruß
Bernd

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

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

---

Moin Bernd,

Mit SetDirect bzw SetRelay habe ichn noch nicht gearbeitet.
Hättest du ein Code-Beispiel für mich ?

Gruß
Marcel

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

---

Die Doku gibt jeweils ein Beispiel an:
http://catiadoc.free.fr/online/interfaces/interface_Publications.htm
hilft vielleicht schonmal

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

---

Servus

Hier ein Beispiel:

Code:

---

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim product1 As product
Set product1 = partDocument1.product

Dim publications1 As Publications
Set publications1 = product1.Publications

'auf bestehende Veröffentlichung zugreifen
Dim OldPublication As Publication
Set OldPublication = publications1.Item("MeinAlterName")

'neue Veröffentlichung erstellen
Dim NewPublication As Publication
Set NewPublication = publications1.Add("MeinNeuerName")

'Referenz umhängen
publications1.SetDirect  NewPublication.Name, OldPublication.Valuation

'Veröffentlichung löschen
publications1.Remove OldPublication.Name

End Sub

---

Gruß
Bernd

PS: Bei der Systeminfo scheint was schief gelaufen zu sein 

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

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