---

Unbenannt.JPG

Hallo,

ich möchte mehrere Punkte entlang eines Splines erzeugen mit gleichem Abstand. Der Abstand soll über einen Parameter gesteuert werden. Dazu erzeuge ich Points on Curve with Referenz from Distance und möchte als Value den Parameter mal einen Zählindex verwenden.

Code:

---

        For i = 1 To abschnitte
       
            Set Punkt = HSFactory.AddNewPointOnCurveFromDistance(refSpline, i * ParaAbstand.Value, True)
           
            PunkteSet.AppendHybridShape Punkt
           
             
            Set ParaA = Punkt.offset
           
           
            Dim sFormula1 As String
            sFormula1 = Paras.GetNameToUseInRelation(Parameters.Item(PArtNAme & "\Paras\Abstand"))
           
           
            Dim formula1 As Formula
            Set formula1 = relations1.CreateFormula("Abstand der Punkte", "Formel", ParaA, sFormula1 * i)

           
           
        Next

---

Es werden Formeln erstellt ohne Fehlermeldung. Der Inhalt der Formeln ist aber leer...[IMG][/IMG]

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

---

Servus
Pack deine Gleichung zurerst in einen String (zB):

Code:

---

Dim sFormel as String
sFormel = CStr( i ) & " * " & CStr(ParaAbstand.Value)

Dim formula1 As Formula
Set formula1 = relations1.CreateFormula("Abstand der Punkte", "Formel", ParaA, sFormel )

---

Gruß
Bernd

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

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