---

Hallo,
ich möchte ein Makro erzeugen, welches einen Spline automatisiert durch eine beliebige Anzahl an Punkten legt.
Hat jemand eine Idee, wie so ein Code aufgebaut sein könnte?

MfG KITStudent

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

---

Ja.

Code:

---

    Dim Spline As HybridShapeSpline
    Dim Ref_Stuetzpunkt As Reference
   
    Set Spline = hybShapeFac.AddNewSpline()
    Spline.SetClosing 0
    Spline.SetSplineType 1      'siehe Doku
    Spline.Name = "Spline"
   
        For i = 1 To Set_Projektionen.HybridShapes.Count  'Die Punkte liegen im GEO Set "Projektionen" hier als Objekt
            Set Ref_Stuetzpunkt = ActivePart.CreateReferenceFromObject(Set_Projektionen.HybridShapes.Item(i))
            Spline.AddPointWithConstraintExplicit Ref_Stuetzpunkt, Nothing, -1#, 1, Nothing, 0#
        Next

---

EDIT: Nicht zu sehr auf die Namen der Objekte achten, ist bloß C&P aus meinem aktuellen Projekt.

[Diese Nachricht wurde von Starbirth am 01. Dez. 2010 editiert.]

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