---

Hallo liebe Mitglieder und ich hoffe Ihr hattet ein schönes Weihnachten.
Ich muss euch nochmal eine Frage stellen.
Ich habe folgendes Problem. Ich möchte eine Skizze anhand von einer Referenz ausrichten. Referenz wie Skizze werden im Makro erzeugt. Über das lesen der Hilfe habe ich bereits die Skizze auf den Punkt bekommen. Es hapert allerdings noch bei der Ausrichtung de H-V Achsen. So wie der Code dargestellt ist, ist die Skizze zwar auf der Ebene aber über dem Ursprung und nicht auf dem Punkt wo sie liegen soll. Zudem sind die Achsen nicht ausgerichtet. Wenn ich allerdings „MessenPunkt(1) = SPAWorkbench.GetMeasurable(Ref) „ und " MessenPunkt(1).GetDirection(Koordinaten)“ kommentiere dann liegt die Skizze dort wo sie soll.

Ist der Weg richtig oder muss ich einen anderen gehen. 

Code:

---

        Dim Richtung As HybridShapeDirection '#### Deklaration einer Richtung
        Dim Ref As Reference

        Ref = Lineref 'Aus einer Line wird eine Reference
        Richtung = hybridshapefactory1.AddNewDirection(Ref)
..
..
..
        Dim sketchdirection(8)
        Dim Koordinaten(5)
        Dim MessenPunkt(1) As Measurable

        MessenPunkt(0) = SPAWorkbench.GetMeasurable(Punkref)
        MessenPunkt(1) = SPAWorkbench.GetMeasurable(Ref) '
        MessenPunkt(0).GetPoint(Koordinaten)
        MessenPunkt(1).GetDirection(Koordinaten)

        sketchdirection(0) = Koordinaten(0) : sketchdirection(1) = Koordinaten(1) :        sketchdirection(2) = Koordinaten(2)
        sketchdirection(3) = Koordinaten(3) : sketchdirection(4) = Koordinaten(4) : sketchdirection(5) = Koordinaten(5)

        Dim Skizze As Object
        Dim Sketches1 As Sketches
        Dim Ursrpungsebene As Reference
        Dim factory2d1 As Factory2D

        Sketches1 = Body.Sketches

        Ursrpungsebene = MyPart.CreateReferenceFromObject(EbeneSkizze)
        Skizze = Sketches1.Add(Ursrpungsebene)
        Skizze.SetAbsoluteAxisData(sketchdirection)

        factory2d1 = Skizze.OpenEdition

        Skizze.CloseEdition()
        MyPart.Update()

---

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

---

Servus
Du überschreibst ja in der Zeile mit GetDirection den zuvor in Zeile mir GetPoint gefüllten Array Koordinaten.
Du benötigst da jeweils einen Array (oder musst die Werte des Ursprungs zwischen den Messungen in den Array sketchdirection schieben)

Gruß
Bernd

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

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

---

Oh Gott bin ich dumm. Danke. Da habe ich wohl ein paar falsche Gedanken gehabt.
Vielen Dank.
Gruß Marc

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