---

hallo,
folgendes Problem.
Ich habe in einer excel Tabelle eine Anzahl von Punkten.
Diese Punkte sollen nun eingelesen werden und im Skizierer auf eine beliebige Ebene eingefügt werden. Das ist alles kein Problem, aber wie bekomme ich nun einen Spline aus den erzeugten Punkten.
VB meckert rum, dass es die Methode CreateSpline von Spline2D nicht kennt und im catvbs will er zum erzeugen des Splines ein iPoles As SAFEARRAY(VARIANT) haben.
Es gibt doch sicherlich schon fertige Progrämmchen, die aus Punkten einen Spline erzeugen.
Hier mal wie weit ich gekommen bin. Ist bis zur Spline-erzeugung alles CatiaMakrorekorder.
Fehlt bloß dieses iPoles As SAFEARRAY(VARIANT).

Code:

---

Set partDocument1 = CATIA.ActiveDocument

Set part1 = partDocument1.Part

Set bodies1 = part1.Bodies

Set body1 = bodies1.Item("Hauptkörper")

Set sketches1 = body1.Sketches

Set originElements1 = part1.OriginElements

Set reference1 = originElements1.PlaneZX

Set sketch1 = sketches1.Add(reference1)

Dim arrayOfVariantOfDouble1(8)
arrayOfVariantOfDouble1(0) = 0.000000
arrayOfVariantOfDouble1(1) = 0.000000
arrayOfVariantOfDouble1(2) = 0.000000
arrayOfVariantOfDouble1(3) = -1.000000
arrayOfVariantOfDouble1(4) = 0.000000
arrayOfVariantOfDouble1(5) = 0.000000
arrayOfVariantOfDouble1(6) = 0.000000
arrayOfVariantOfDouble1(7) = 0.000000
arrayOfVariantOfDouble1(8) = 1.000000
sketch1.SetAbsoluteAxisData arrayOfVariantOfDouble1

part1.InWorkObject = sketch1

Set factory2D1 = sketch1.OpenEdition()

' Hier muss iPoles As SAFEARRAY(VARIANT) rein
Set Spline2D1 = factory2D1.CreateSpline()
 
Set Point2D1 = factory2D1.CreatePoint(10, 10)
Set Spline2D1.StartPoint = Point2D1
 
Set Point2D1 = factory2D1.CreatePoint(20, 20)
Call Spline2D1.InsertControlPointAfter(Point2D1, 1)
 
Set Point2D1 = factory2D1.CreatePoint(30, 30)
Set Spline2D1.EndPoint = Point2D1

---

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

---

Hallo,

hier ein Ausschnitt aus einem aufgezeichneten Makro (R14). Vielleicht hilft dir das weiter.

Code:

---

...
Dim controlPoint2D3 As ControlPoint2D
Set controlPoint2D3 = factory2D1.CreateControlPoint(x,y)

Dim arrayOfObject1(2)  'VARIANT !
Set arrayOfObject1(0) = controlPoint2D1
Set arrayOfObject1(0) = controlPoint2D2
...

Set factory2D1Variant = factory2D1
Set spline2D1 = factory2D1Variant.CreateSpline(arrayOfObject1)

---

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