---

Part3.zip

Hallo,

den folgenden Code habe ich mit dem Recorder aufgenommen. Der Code soll das in den Eigenschaften erzeugte OP-Feld mit dem erzeugten OP-Parameter verknüpfen. Allerdings geht es nur, wenn das Part "Part3" heißt. Wie kann ich denn mein Makro verändern, damit es unabhängig vom  Partnamen funktioniert. Gibt es einen allgemeinen Ansprechnamen für Parts? Die V5Automation hilft mir leider nicht so wirklich weiter.

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim product1 As CATBaseDispatch
Set product1 = partDocument1.GetItem("Part3")

Set product1 = product1.ReferenceProduct

Set product1 = product1.ReferenceProduct

Set product1 = product1.ReferenceProduct

Dim publications1 As Publications
Set publications1 = product1.Publications

Dim long1 As Long
long1 = publications1.Count

Dim products1 As Products
Set products1 = product1.Products

Dim long2 As Long
long2 = products1.Count

Set publications1 = product1.Publications

Dim long3 As Long
long3 = publications1.Count

Set products1 = product1.Products

Dim long4 As Long
long4 = products1.Count

Set publications1 = product1.Publications

Dim long5 As Long
long5 = publications1.Count

Set products1 = product1.Products

Dim long6 As Long
long6 = products1.Count

Dim relations1 As Relations
Set relations1 = product1.Relations

Dim part1 As Part
Set part1 = partDocument1.Part

Dim parameters1 As Parameters
Set parameters1 = part1.Parameters

Dim strParam1 As Parameter
Set strParam1 = parameters1.Item("Part3\Eigenschaften\OP")

Dim formula1 As Formula
Set formula1 = relations1.CreateFormula("Formel.1", "", strParam1, "`Part3\OP` ")

formula1.Rename "Formel.1"

Set product1 = product1.ReferenceProduct

strParam1.Value = ""

Set product1 = product1.ReferenceProduct

End Sub

Vielen Dank schon mal.

Gruß
Lars

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

---

Hi Eisbär,

du kannst überall wo der Partname steht, diesen mit CATIA.ActiveDocument.Part.name ersetzen.

Gruß Locke101

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

---

Hallo Locke101,

erhalte jetzt die Fehlermeldung "Verfahren Item" fehlgeschlagen bei folgender Zeile.

Dim strParam1 As Parameter
Set strParam1 = parameters1.Item("CATIA.ActiveDocument.Part.name\Eigenschaften\OP")

Ist das was in der Klammer steht nicht ne Pfadangabe. Muss das CATIA.Active.... irgendwie ausgeklammert werden, oder durch eine Variable irgendwie ersetzt werden??

Gruß
Lars

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

---

Servus

ich würd mal pauschal sagen

Set strParam1 = parameters1.Item(CATIA.ActiveDocument.Part.name & "\Eigenschaften\OP")

muss aber nicht stimmen

Gruß Andi

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

---

und das gleiche Spiel hier:

Set formula1 = relations1.CreateFormula("Formel.1", "", strParam1, "`Part3\OP` ")

wird zu

Set formula1 = relations1.CreateFormula("Formel.1", "", strParam1, "`" & catia.activedocument.part.name & "\OP` ")

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

---

Hallo Locke101 und Andi,

vielen Dank für Eure Hilfe. Habe es hinbekommen mein Makro für meine Zwecke anzupassen und zu erweitern.

Gruß
Lars

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