---

Hallo wollte mal fragen ob zufällig schon jemand so einen VBA Source Code hat,
wo man die Polylinie von Anfang bis letzten Punkt neu unterteilt?
(Der erste und letzte Punkt bleibt nur die Anzahl und Abstände sollen sich dazwischen ändern)

LG Christian

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

---

Hallo Christian,
Kannst Du das genauer spezifizieren?
Um welche Polylinien handelt es sich, 3D-Polylinien, LW-Poly, einfache Poly? Macht einen Unterschied da die einen xyz-Werte haben, die naderen nur xy-Werte.
Können die Linien Bögen enthalten?
Was meinst Du mit Anzahl und Abstände sollen sich ändern?
Sollen alle Segmente gleiche Abstände erhalten oder zwischen Anfang und Ende eine bestimmte Anzahl an Elementen entstehen?
Bleiben Knickpunkte oder werden die abgeflacht?
Je nach Aufgabenstellung wäre der Code dazu schnell geschrieben (Neuberechnen der Coordinates-Liste) oder man muß ein iteratives Verfahren machen, wenn sich die Gesamtlänge ändert.

Für 3D-Polylinien habe ich eine Anpassung zum einfügen von Zwischenpunkten. Der Punkt kann dann händisch verschoben werden und die Höhe wird interpoliert. Dient der Anpassung von Uferlinien zwischen gemessenen Punkten.

Grüße
Klaus    

[Diese Nachricht wurde von KlaK am 19. Sep. 2021 editiert.]

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

---

Nur 2D Koordinaten ohne Berücksichtigung von Bögen nur gerade Polylinie.
Die Polylinie(AcDb2dPolyline) darf nicht gelöscht nur geändert werden wegen Referenzierung auf diese durch ein Programm.
Die Polylinie selbst kann natürlich jeden Winkel haben.
Es soll ein fixer Abstand eingegeben werde und das letzte Segment ist einfach ein Rest bzw die letzten 2 Segmente sollen dann den gkeichen Abstand haben aber eben Kleiner als der fixe Abstandwert.
Lg Christian

[Diese Nachricht wurde von c.schojer am 20. Sep. 2021 editiert.]

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

---

2021-09-21_PL_Glaetten.jpg

Hallo Christian,
Im Prinzip suchst Du also ein Programm zu glätten von Polylinien. Über Map Zeichnungsbereinigung wäre das ja möglich aber wenn Du nur Autocad hast ...
Schau Dir mal die beiliegende Skizze an. Wäre das so in etwa wie Du Dir das vorstellst?
Aus der magenta Linie wird die grüne und im letzten Abschnitt statt der grünen die blaue. Die erste lange Linie enthält einen zusätzlichen Punkt.

Grüße
Klaus 

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