---

Hallo
Ich bin gerade bei ein Makro, welsches mehrere Punkte an geschlossene Curve Generierst.
Einfache Code:

Code:

---

Sub xStart()
Dim oCurve As HybridShapeCurveExplicit
Dim oRef As Reference
Dim oPoint As HybridShapePointOnCurve
Dim oHSF As HybridShapeFactory
Dim oSel As Selection
Set oSel = CATIA.ActiveDocument.Selection
Dim sInput As Double
Dim sStatus As String
ReDim strArray(0)
strArray(0) = "HybridShapeCurveExplicit"
Dim oPart As Part
Dim oHybridbody As HybridBody
Dim dSel
Dim lStep As Double

Set oPart = CATIA.ActiveDocument.Part
Set oHSF = oPart.HybridShapeFactory
Set dSel = oSel
sInput = InputBox("Wie viel Punkte möchtest du?", "Punkt_Anzahl", 100)
sStatus = dSel.SelectElement3(strArray, "Nimmt ein Curve", False, CATMultiSelTriggWhenUserValidatesSelection, False)
oPart.HybridBodies.Add
oPart.HybridBodies.Item(oPart.HybridBodies.Count).Name = "Result"
Set oHybridbody = oPart.HybridBodies.Item("Result")
lStep = 1 / sInput
For i = 1 To oSel.Count
    Set oCurve = dSel.Item(i).Value
    Set oRef = dSel.Item(i).Value
    A = 1
    Do While lStep <= 1
        Set oPoint = oHSF.AddNewPointOnCurveFromPercent(oRef, lStep, True)
        oHybridbody.AppendHybridShape oPoint
        oPoint.Name = "Point." & A
        lStep = lStep + lStep
        A = A + 1
    Loop
Next
oPart.Update
End Sub

---

Aber Catia sagt mir ein Fehler schon bei erstem Punkt:

Kann mir jemand sagen, was habe ich falsch gemacht?

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

---

Hallo Sylas,

die Fehlermaldung sagt, das es keine geschlossene Kurve sein darf.

Funktioniert dein Vorhaben wenn du es handisch machst?

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

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

---

Gruss dich
Ja es funktioniert. Catia nimmt ein Vertex als Referenz automatisch. Welches Vertex ist das, oder wohin Catia weisst, welches Punkt zu nehmen ist ein Mystery fuer mich 😉

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

---

Hi,

vllt klappt folgender Workaround für dich.

Du kannst mittels Makro einen neuen Punkt im globalen Koordinatensystem erstellen z.B. x=0 y=0 und z=0

Jetzt kannst du einen Punkt auf die geschlossene Linie setzen, wenn du den erstellen Punkt (0/0/0) oben als Referenz angibst und davon dann das Makro aufbaust

Set hybridShapePointOnCurve1 = hybridShapeFactory1.AddNewPointOnCurveWithReferenceFromDistance(reference1, reference2, 22.786, False)

Wenn du einen Punkt auf der Linie hast, kannst von dem aus die weiteren mit deinem Befehl von oben erstellen.

[Diese Nachricht wurde von 89marbru am 28. Mai. 2018 editiert.]

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

---

Zitat:

---

Original erstellt von 89marbru:
Hi,

vllt klappt folgender Workaround für dich.

Du kannst mittels Makro einen neuen Punkt im globalen Koordinatensystem erstellen z.B. x=0 y=0 und z=0

Jetzt kannst du einen Punkt auf die geschlossene Linie setzen, wenn du den erstellen Punkt (0/0/0) oben als Referenz angibst und davon dann das Makro aufbaust

Set hybridShapePointOnCurve1 = hybridShapeFactory1.AddNewPointOnCurveWithReferenceFromDistance(reference1, reference2, 22.786, False)

Wenn du einen Punkt auf der Linie hast, kannst von dem aus die weiteren mit deinem Befehl von oben erstellen.

[Diese Nachricht wurde von 89marbru am 28. Mai. 2018 editiert.]

---

Das kann klappen, aber ich habe Angst, das den Referenzpunkt muss auch auf der Curve liegen... Ich versuche das Morgen und melde ich zuruck... Sorry fuer mein schlechtes Deitsch 😉

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

---

Hallo

Nur zur Info:
Ich habe das so gelöst, das ich habe mit Selektion jedes Edge vom geschlossene Curve gefunden, und das als Reference genuztz. Dann mit einfache Loop mit jede 10% Edge-Länge ein Punkt erstellt.

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