---

Hallo Zusammen.
Ich sollte ein Makro erstellen, mit dem ich in einem Part
Formeln erstellen kann, die mir die Parameter im Strukturbaum
mit den Parametern in den Eigenschaften verknüpfen.
Die Parameter heißen genau gleich.
Brauche dies zur Generierung einer Stückliste.
Bin leider erst nachdem ich 40 Bauteile mit jeweils 25 Parametern
im Strukturbaum erstellt hatte drauf gekommen, dass diese nicht in
die Stückliste übernommen werden.
Deshalb hab ich auch ein etwas größeres Problem.
Weiß jemand Rat, oder hatte schon das Problem und hat sich zu
diesem Zweck ein Makro erstellt?
Vielen Dank schon mal im Voraus.
Grüßle aus dem Schwabenland

Willy

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

---

ich behaupte einfach mal das geht nicht mit vba, zumindest habe ich so etwas auch schon versucht und bin zu keinem ergebnis gekommen.

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

---

Hallo allerseits,

und es geht doch!!!

Zum Beispiel so:

Code:

---

Sub CATMain()

Dim productDocument1 As document
Set productDocument1 = CATIA.ActiveDocument

Dim product1 As Product
Set product1 = productDocument1.Product

Dim parameters1 As Parameters
Set parameters1 = product1.Parameters

Dim dimension1 As Dimension
Set dimension1 = parameters1.Item("Masse")

Dim userparameters1 As Parameters
Set userparameters1 = product1.UserRefProperties

Dim userdimension1 As Dimension
Set userdimension1 = userparameters1.CreateDimension("Masse", "MASS", 0)

Dim relations1 As Relations
Set relations1 = product1.Relations

Dim input1 As String
Err.Clear
On Error Resume Next
input1 = productDocument1.Part.name
If Err = 438 Then
    input1 = dimension1.name
Else
    input1 = product1.name & "\" & dimension1.name
End If
On Error GoTo 0

Dim formula1 As Formula
Set formula1 = relations1.CreateFormula("Formula.9", "", userdimension1, input1)

End Sub

---

Funktioniert als VBA und als CATScript jeweils für .CATPart und .CATProduct!

Für mehrere Variablen einfach "kreativ" mit z.B. "StrCreateUserParameters.CATScript" (siehe http://ww3.cad.de/foren/ubb/Forum133/HTML/004021.shtml ) kombinieren!

mfg,
Lusilnie

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