---

Hallo Zusammen,

ich habe leider nicht das passende gefunden und frage deshalb mal nach.

Ich habe mir ein kleines Hilfsmakro geschrieben, dass mir automatisch bestimmte Eigenschaften einem Part zufügt.

Dies funktioniert im Moment nur so wenn ich das Part in einem extra fenster geöffnet habe.

Möchte dieses nun so umbauen dass ich das makro im Hauptprodukt ausführen kann indem ich dass Part vor dem Start des Makros auswähle.
Sprich Klick auf das Part und dann das Makro starten.

Bekomme das leider nicht so richtig mit der User Selection hin.

Bin für jeden Tipp dankbar.

Viele Grüße

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

---

Habe jetzt doch was gefunden und konnte mein Problem lösen mit:

Dim UserSelektion As Selection
Set  UserSelektion = CATIA.ActiveDocument.Selection

Name = (UserSelektion.Item(1).Value.ReferenceProduct.Name)

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

---

Ich habe doch nocheinmal eine Frage zu meinem Makro.

Funktion des Makros:
- Part auswählen
- Makro starten
- Benutzerdefinierte Eigenschaften werden hinzugefügt

Funktioniert alles wie ich es brauche.

Möchte es aber gerne erweitern, so dass das Makro erkennt da sind schon eigeschaften vorhanden und das Makro dann abbricht.

Freue mich sehr über Tipps und Ratschläge

Hier ein Auszug aus meinem Code

Code:

---

Sub CATMain()

Dim UserSelektion As Selection
Set UserSelektion = CATIA.ActiveDocument.Selection

Name = (UserSelektion.Item(1).Value.ReferenceProduct.Name)

Set product1 = partDocument1.GetItem(Name)
Dim parameters1 As Parameters
Set parameters1 = product1.UserRefProperties

Dim strParam1 As StrParam
Set strParam1 = parameters1.CreateString("Lfd.Nr.", "")

strParam1.ValuateFromString "001"

End Sub

---

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

---

Und gleich die nächste Frage.

Wenn ich ein Part auswähle welches in einem Unterprodukt der 5. Ebene ist kommt ein Fehler.

"Das Verfahren Get Item ist fehlgeschlagen"

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

---

Servus
Schau mal hier wie du prüfen kannst ob es den Parameter schon gibt. GGf könntest du die Funktion erweitern, dass entweder der Parameter hinzugefügt wird oder der Wert überschrieben wird.
Zu deiner 2. Frage:
Verwende statt GetItem direkt das ReferencProduct:

Code:

---

Set product1 = UserSelektion.Item2(1).Value.ReferenceProduct

---

Gruß
Bernd

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

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

---

Hallo Bernd,

vielen Dank für die Tipps, jetzt läuft es so wie ich mir das vorgestellt habe. Danke.

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