---

Hallo
camouco ist wieder hier!!
Ich versuche einen Punkt, der ich vorher definiert habe, als Origin meiner Skizze zu ersetzen. Mein Punkt ist hybridShapePointCoord1 und die Idee war :

Set hybridShapePointCoord1 = axis2D1.Origin.GetItem("Origin")

Leider geht nicht.Kann mir bitte vielleicht helfen??? Ich glaube, diese Frage ist schwieriger als die letzte. Bald werde ich auch manche antworten (Dafür bin ich dabei)
Viele Grüße camouco

Das Makro

Dim hybridShapePointCoord1 As HybridShapePointCoord
Set hybridShapePointCoord1 = Ole.AddNewPointCoord(100#, 0#, 0#)
hybridShapePointCoord1.Name = "Positionspunt"

Dim sketch1 As Sketch
Set sketch1 = sketches1.Add(hybridShapePlaneOffsetPt1)

part1.InWorkObject = sketch1

Dim factory2D1 As Factory2D
Set factory2D1 = sketch1.OpenEdition()

Dim geometricElements1 As GeometricElements
Set geometricElements1 = sketch1.GeometricElements

Dim axis2D1 As Axis2D
Set axis2D1 = geometricElements1.Item("AbsoluteAxis")

Set hybridShapePointCoord1 = axis2D1.Origin.GetItem("Origin")

Dim line2D1 As Line2D
Set line2D1 = axis2D1.GetItem("HDirection")

line2D1.ReportName = 1

Dim line2D2 As Line2D
Set line2D2 = axis2D1.GetItem("VDirection")

line2D2.ReportName = 2

sketch1.CloseEdition

------------------
camouco

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