---

Hallo

nachdem ich vorerst keine Lösung zur generierung äqidistanter Punkte auf einer Curve gefunden habe, probier ich es mit addNewPointOnCurveFromPercent.
Ich möchte aud diese Weise mehrere Punkte auf einer im Skizzierer markierten Linie erstellen.
In der Linie "Set HybridShapePointOnCurve1 = ....." bekomme ich einen Fehler, weiß jemand Bescheid was ich ändern muss?

Dim Document1 As Document
Set Document1 = CATIA.ActiveDocument

Dim Selection1 As Selection
Set Selection1 = Document1.Selection

Dim HybridBodies1 As HybridBodies
Set HybridBodies1 = Document1.Part.HybridBodies

'Dim Curve As ??????????
Set Curve = Selection1.Item(1).Value

Dim HybridShapeFactory1 As HybridShapeFactory
Dim HybridShapePointOnCurve1 As HybridShapePointOnCurve

Set HybridShapePointOnCurve1 = _ 
HybridShapeFactory1.AddNewPointOnCurveFromPercent(Curve, 0.2, False)

Dim HybridBody1 As HybridBody
HybridBody.AppendHybridShape HybridShapePointOnCurve1
Document.Part.Update

Vielen Dank

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

---

Hallo cairol,

ich glaube Dein Hauptproblem liegt darin, das Du in

Code:

---

Set HybridShapePointOnCurve1 = _
HybridShapeFactory1.AddNewPointOnCurveFromPercent(Curve, 0.2, False)

---

auf ein Element anstatt auf eine Reference verweist.

Es sollte

Code:

---

Set HybridShapePointOnCurve1 = _
HybridShapeFactory1.AddNewPointOnCurveFromPercent(reference1, 0.2, False)

---

lauten, wobei dies mit

Code:

---

Dim reference1 As Reference
Set reference1 = Document1.Part.CreateReferenceFromObject(Curve)

---

davor deklariert werden muß.

PS: Auch dies kann man aufzeichnen!

mfg,
Lusilnie

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