---

Hi

Ich möchte in einem Produkt per Constraint einen parametrisierten Abstand zweier parts Festlegen.
Der Abstand soll durch einem Parameter im Product, z.B. Parameters\Dicke = 5mm , festgelegt werden.

Wie kann ich einen solchen Constraint per Makro setzen?
ich habe die Referenzen auf passende Ebenen RefA,Refb und würde als Abstand gerne als Formel
Abstand = `Dicke` + 10mm
haben.

Guß Peter

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

---

Servus

Klar geht dass. Lässt sich auch zu großen Teilen mit dem Makrorekorder aufzeichnen.
Hier ein kleines Beispiel (die Erzeugung der Referenzen und die Struktur des Codes ist grauenhaft  )

Code:

---

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim product1 As Product
Set product1 = productDocument1.Product

Set product1 = product1.ReferenceProduct

Dim constraints1 As Collection
Set constraints1 = product1.Connections("CATIAConstraints")

Dim reference1 As Reference
Set reference1 = product1.CreateReferenceFromName("Product1/Part1.2/!Selection_REdge:(Edge:(Face:(Brp:(AxisSystem.1;2);None:();Cf11:());Face:(Brp:(AxisSystem.1;1);None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());AxisSystem.1;InSameTool;Z0;G3491)")

Dim reference2 As Reference
Set reference2 = product1.CreateReferenceFromName("Product1/Part1.1/!Selection_RSur:(Face:(Brp:(AxisSystem.1;1);None:();Cf11:());AxisSystem.1;InSameTool;Z0;G3491)")

Dim constraint1 As Constraint
Set constraint1 = constraints1.AddBiEltCst(catCstTypeDistance, reference1, reference2)

Dim length1 As Dimension
Set length1 = constraint1.Dimension

Dim parameters1 As Parameters
Set parameters1 = product1.Parameters

Dim MyParameterDimension As Dimension
Set MyParameterDimension = parameters1.item("Dicke")

dim StrFormel as String
StrFormel = parameters1.GetNameToUseInRelation(MyParameterDimension) & "+10mm"

Dim relations1 As Relations
Set relations1 = product1.Relations

Dim formula1 As Formula
Set formula1 = relations1.CreateFormula("", "", length1, StrFormel)

formula1.Rename "MeineFormel.1"

End Sub

---

Gruß
Bernd

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

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

---

werde ich gleich ausprobieren.
Vielen Dank

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