---

Hi,
ich komme hier nicht weiter. Mein Makro soll einen Parameter vom Typ Winkel erzeugen, später dann bei dem Erzeugen der Plane verwenden. Aber ich kann wohl nicht den Parameter direkt ansprechen, bei dem Anlegen des Plane kommt der Fehler.

Grüße Thorsten

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part
Dim parameters1 As Parameters
Set parameters1 = part1.Parameters
Dim angle1 As Angle
Set angle1 = parameters1.CreateDimension("", "ANGLE", 0#)
angle1.Rename "Winkel.1"

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies
Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Add()
Dim hybridShapeFactory1 As HybridShapeFactory
Set hybridShapeFactory1 = part1.HybridShapeFactory
Dim axisSystems1 As AxisSystems
Set axisSystems1 = part1.AxisSystems
Dim axisSystem1 As AxisSystem
Set axisSystem1 = axisSystems1.Item("Absolutes Achsensystem")

Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromBRepName("RSur Face Brp AxisSystem.1;1);None );Cf11 ));WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", axisSystem1)

Dim reference2 As Reference
Set reference2 = part1.CreateReferenceFromBRepName("REdge Edge Face Brp AxisSystem.1;1);None );Cf11 ));Face Brp AxisSystem.1;3);None );Cf11 ));None Limits1 );Limits2 ));Cf11 ));WithPe rmanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", axisSystem1)

Dim hybridShapePlaneAngle1 As HybridShapePlaneAngle
Set hybridShapePlaneAngle1 = hybridShapeFactory1.AddNewPlaneAngle(reference1, reference2, angle1, False)

hybridShapePlaneAngle1.ProjectionMode = False

hybridBody1.AppendHybridShape hybridShapePlaneAngle1

part1.InWorkObject = hybridShapePlaneAngle1

part1.Update

End Sub

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

---

Servus
Hat der Parameter die richtige Dimension? (Angle)?
Leg die Ebene erst mal an, und erzeuge dir danach die Formel (CreateFormular). Direkt bei der Erzeugung kann man AFAIK nicht den Parameter (assoziativ) mit angeben.

Gruß
Bernd

PS: Wenn der Winkel nicht assoziative zum Parameter sein soll, sollte die Angabe von "angle1.ValueAsString" reichen

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

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

---

Danke! 

  Dim relations As Object
  Set relations = part1.relations
  Dim Formula As Object
  Set Formula = relations.CreateFormula("Formula.0", "", hybridShapePlaneAngle1.Angle, "angle1")

Nun wird der Parameter verwendet.

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