---

Hallo,

ich habe das Problem, dass ich einen Winkel und eine Länge im Sketch später über einen Parameter editieren will. Leider finde ich keine Lösung meine erzeugten Parameter im Sketch zu verknüpfen bzw. zuzuweisen. Vielen Dank für eueren suport.

Meine Idee war:
Dim CatiaParameterKeilhoehe As Length
Set CatiaParameterKeilhoehe = part1.Parameters.CreateDimension("Keilhoehe", "Length", KeilHoehe)
                         
Dim HoeheKeil As String
HoeheKeil = Mid(CatiaParameterKeilhoehe.Name, Len(part1.Name) + 2)

length1.Value = 0.67812

Set Laenge = length1.Value
Set formulaLength = Relation.CreateFormula("VerbindungsLaenge", "", Laenge, HoeheKeil)

Gruß AL-Fonse

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

---

HiHo

Das musst du nicht via programmierung machen, das geht auch so.

1. Erzeuge deine Skizze und schließe diese ab
2. Klick in deinem Part auf das "fx" und generiere eine Länge als Parameter.
Befülle diese zb. mit 100mm

3. Klick nun im Struckturbaum deinen soeben erstellten Parameter an.
4. Klick deine Skizze im Struckturbaum an und dann das Maß das mit dem Parameter verknüpft werden soll.

Das wars.

(grob erklärt)

------------------
Gruß,

Maximilian
------------
Top 10 der CAD Programme:
10=ACAD; 09=SolidWorks; 08=Inventor; 07=SolidEdge; 06=Creo; 05; 04=UG; 03; 02=Catia; 01=???

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

---

Hallo Xam0560,

vielen Dank für diese Antwort und das war mir auch klar, ist aber nicht die Lösung! Denn das Makro soll von einem Anwender ausgeführt werden, der  (fast)keine Ahnung von Catia hat und deshalb soll nach Starten des Makros der Sketch inkl. Parameterverknüpfung erzeugt werden, so dass der Anwender später nur die Parameter ändern muss.
Ich hoffe nun ist mein Problem verständlicher.

Gruß AL-Fonse

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

---

Servus AL-Fonse

Anbei ein Beispiel. Einfachheitshalber hab ich die Elemente alle über den Namen angesprochen, du kannst ggf direkt die erzeugten Objekte verwenden.

Code:

---

Sub CATMain()
Dim partDocument1 As PartDocument
Dim part1 As Part
Dim hybridBodies1 As HybridBodies
Dim hybridBody1 As HybridBody
Dim sketch1 As Sketch
Dim constraints1 As Constraints
Dim constraint1 As Constraint
Dim sketches1 As Sketches
Dim oParameter As Length
Dim oDimenson As Length
Dim oReleation As Relation

Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part

'Parameter erzeugen
Set oParameter = part1.Parameters.CreateDimension("Länge", "LENGTH", 20)

'Skizze ansprechen

Set hybridBodies1 = part1.HybridBodies
Set hybridBody1 = hybridBodies1.Item("Geometrisches Set.1")
Set sketches1 = hybridBody1.HybridSketches
Set sketch1 = sketches1.Item("Skizze.1")
Set constraints1 = sketch1.Constraints
Set constraint1 = constraints1.Item("Bedignung")

'Formel erzeugen

Set oDimenson = constraint1.Dimension
Set oReleation = part1.Relations.CreateFormula("", "", oDimenson, part1.Parameters.GetNameToUseInRelation(oParameter))

End Sub

---

Gruß
Bernd

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

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