---

Hallo zusammen,
ich möchte gern eine existierende LinePtPt mit Namen "Line.1", die zwischen "Point.1" und "Point.2" erzeugt wurde so ändern, das die sich "Line.1" dann zwischen "Point.1" und "Point.3" befindet.

Set my_line = mysel.item(1).value
set HybridShapeLinePtPt = my_line
set ref_line1 = part1.createreferencefromobject(HybridShapeLinePtPt)
set ref_to_Anfangspunkt = ref_line1.PtOrigine
Anfangspunkt=ref_to_Anfangspunkt.Value

Leider bekomme ich bei diesem Code eine Fehlermeldung, das die Methode oder Eigenschaft nicht unterstützt wird "ref_line1.PtOrigine"

Wer weiß wie ich die Eingangsparameter einer LinePtPt auslesen und ändern kann?

Vielen Dank Euch allen!!!

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

---

Habe leider keine CATIA hier, aber es sollte so was wie StartPoint und EndPoint existieren...

Oder Du sprichst Deine "Point.1" und "Point.2" direkt bvzw. über X,Y und Z je nach Deiner Programmlogik

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

---

Hallo, dachte schon, keiner spricht mit mir...

Also ich habe ein ganzes GeoSet voll Punkte.
Und ich habe in einem anderen GeoSet LinienPtPt (von Pt1 zu Pt2).

Bei bestimmten Bedingungen soll diese Linie aber so geändert werden, das Startpunkt Pt1 bleibt, aber der Endpunkt (bislang Pt2) nun Pt3 sei.

Ich könnte die Linie neu erzeugen und die Alte löschen, ist aber nicht so elegant, da die Elementzähler riesig werden.

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

---

Hallo V5-Maxe,

ich verstehe nicht ganz, was Du da tust! Wenn Du der Linie einen neuen Endpunkt zuweisen willst, mußt Du eine Referenz vom neuen Endpunkt erzeugen und den "refline1.PtExtremity" damit versehen:

Code:

---

Dim HybridShapePointCoord3 As HybridShapePointCoord
Set HybridShapePointCoord3 = HybridShapes1.Item("Point.3")
Dim reference3 As reference
Set reference3 = part1.CreateReferenceFromObject(HybridShapePointCoord3)
hybridShapeLinePtPt1.PtExtremity = reference3
part1.InWorkObject = hybridShapeLinePtPt1
part1.Update

---

mfg,
Lusilnie

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