---

Plinien.PNG

Hallo zusammen!

Ich habe von einem Vermesser einen Lageplan bekommen mit den Vermessungspunkten und den Bruchkanten. Die Bruchkanten sind 2D und liegen auf dre Hohe=0.0. Die Punkte habe ich als Autocad-Punkte in 3D vorliegen oder als Block mit dem Attribut Höhe.

Leider hat der Vermesser den Verlauf der Bruchkanten verschönert und Zwischenpunkte eingefügt, an denen aber kein Vermessungspunkt mit einer Höhe liegt.

Nun möchte ich die 2D-Bruchkanten automatisiert auf die Höhe der 3D-Punkte anheben.

Meine Idee war, aus den 3D-Autocad-Punkten ein DGM zu machen und dann alle Bruchkanten auf die Höhe des DGM anzuheben.

Das funktioniert auch bei den Scheitelpunkten der Bruchkanten gut, die einen Deckungsgleichen 3D-Autocad-Punkt haben (Grün markiert). Bei den nachträglich eingefügten Punkten (rot) aber nicht, da die Vermaschung des DGM nicht stimmt.

Gibt es eine Möglichkeit die 2D-Bruchkanten nur dort anzuheben, wo ich einen zugehörigen Autocad Punkt habe? Die Zwischenpunkte der Bruchkante sollten ignoriert werden also die Höhe auf 0 belassen.

Hintergrund:
Ich brauche die Bruchkanten für das Programm laser_as-2D, welches mir aus einem Laserscan ein ausgedünntes Netz erstellt und dabei 3D-Bruchkante berücksichtigt.

Bin um jede Anregung dankbar.
LG

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

---

servus ktww,
verzeih meinen senf,
aber ein vermesser, der sowas macht, ist kein vermesser....

unbrauchbares linienwerk, der hat das system nicht verstanden!

------------------

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

---

Man muss zu seiner Verteidigung sagen, dass die Pläne schon älter sind und nicht als Grundlage für ein DGM gedacht waren.

Habe das Problem aber sehr oft. Teilweise werden die Punkte mit Splines verbunden, teilweise Bogen eingepasst usw.

Bedeutet im Nachhinein einen großen Aufwand. Deswegen die Hoffnung, daß es da irgend ein Tool gibt.

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

---

Hallo,

Hatte mal vor ewigen Zeiten so ein Tool in VBA geschrieben, allerdings wurden da die Höhenkoten aus Texten übernommen. KÖnnte man natürlich auch auf Civil Punkte ändern. Zwischenpunkte ohne Höhen wurden anschließend proportional eingerechnet.
Waren Bogen in den 2D-Polylinien wurden diese bei der Bildung der 3D-Polylinien auch aufgeteilt.

Muss mal nachsehen ob ich das noch irgendwo finde (war 2006 wenn ich mir meine Forumsfragen hier ansehe)

Grüße Klaus

[Edit] Habs gefunden, braucht eine Koordinatendatei (PNr X Y Z), daraus werden die Texte gelesen und in eine Zeichnung mit 3D-Koordinaten geschrieben. Anschließend werden alle 2D-LW-Polylinien in 3D-Polylinien umgewandelt und auf die Texthöhen gebracht. Zum Schluss kann man noch fehlende Zwischenpunkte einrechnen lassen. War damals ein Programm für >500.000 Vermessungspunkte auf einer Fläche von ca. 100 qkm. Konnte man gar nicht auf einmal bearbeiten sondern mußte es Rasterweise machen.

Wenn Du ein Beispiel hast (Koordinatendatei und Zeichnung mit Polylinien) können wir das ja mal testen ob das noch funktioniert oder ob es wegen normalen Polylinien angepasst werden muß. LW-Polylinien haben nur XY-Werte, alte 2D-Polylinien XYZ.

[Diese Nachricht wurde von KlaK am 07. Dez. 2021 editiert.]

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

---

BSP.zip

Hallo Klaus!

Danke für das Angebot, ich hab dir ein BSP zusammengestellt.
Die Textdateien (Tab getrennt und , getrennt) enthalten die Koordinaten aus den Blöcken (Befehl DATENEXTRAKT).
Die Höhe ist der Attributwert. Die Nummern hab ich einfach eingefügt.

Ich hoffe du kannst etwas damit anfangen.

LG
Christoph

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

---

Hallo Christoph,

Wie zu erwarten muss ich das Programm etwas ändern und inzwischen fehlende VBA-Elemente anpassen (Dateiauswahl, Fortschrittsbalken). Ist halt doch ein älteres Programm (32 Bit) dass jetzt nicht mehr 100% kompatibel ist. Aber durchaus machbar, gib mir mal 1-2 Tage 

Grüße
Klaus 

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

---

Super, vielen Dank!!!!

[Diese Nachricht wurde von ktww am 09. Dez. 2021 editiert.]

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

---

Mit Bordmitteln von Civil 3D würde ich das über ein (HilfsDGM) lösen.

1. 3D Daten (Punkten aus Datei) importieren, Befehl: ImportPoints
2 DGM  erstellen über Befehl: CreateSurface
2.1 Daten für das DGM zuerst nur aus Civil Punkten (Doppekte Punkte korrigieren), dann
2.2 Alle Linien (hier vielleicht Kabel und Gebäude weglassen) als mit Bruchkanten "ohne Punktverbindung",
    eigentlich nur die 2D Punktverbindung
    angezeigte Bruchkantenkreuzungen bei bedarf korrigieren.
    Einzelne DGM Kanten zur Verbesserung noch umdrehen
3. Anschließend alle Linien und Polylinien auf Höhe von DGM bringen
  Befehl: FeatureElevFromSurface
4. Zuletzt einzelne Kantenhöhen nachbessern durch Interpolation zwischen Punkten
  Befehl: SetFeatureGrade

Mit etwas Übung in 10 min erledigt und man hat auch gleich noch doppelte Punkte, Höhenfehler und kreuzende Kanten entdeckt.
Ich hab mal einen kurzen (8min) Screencast dazu aufgezeichnet: https://autode.sk/3oHRUhW

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Hallo Udo!

Vielen Dank für das Video und den Aufwand!!!!!

So ähnlich hab ich es bis jetzt auch immer gemacht, wenn auch ohne die doppelten Punkte heraus zu arbeiten. Habe auch Autocad Punkte anstatt civil Punkte genommen.

In Summe ging aber mit der Nacharbeit (DGM-Kanten drehen etc.) viel Zeit drauf.
Das Beispiel ist auch nur ein kleiner Ausschnitt. Das tatsächliche Projekt ist sicher um das 20 bis 30-fache größer.

LG
Christoph

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

---

Setz_LinienZ.zip

Hallo Christoph,

Probier mal beiliegendes Programm (Zip-datei vorher entpacken)
Wenn Du VBA installiert hast, einfach in die Zeichnungsoberfläche ziehen
Aufruf mit: (command "_vbarun" "SetZ")

Aber in Deiner Ausgangszeichnung sind noch einige Fehler drin, da ist schon einiges an Nacharbeit nötig ...
Zwei Polylinien bestehen aus jeweils zwei Teilstücken an deren Ende aber kein Höhenpunkt ist. Verbindet man die beiden Teilstücke mit JOINFEATURES und lässt das Programm noch einmal laufen wird dieser Zwischenpunkt auch eingerechnet. Ob das so richtig ist mußt Du natürlich selber entscheiden 

Grüße
Klaus   

PS.: Bei Problemen gerne auch über PN oder EMail
PPS: Ist eine vereinfachte Version, die ich zufällig gesehen habe, aber nachdem Deine Blöcke auch überall das Attribut Hoehe haben ...

[Diese Nachricht wurde von KlaK am 10. Dez. 2021 editiert.]

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

---

Hallo Klaus!

Das Tool ist super ... vielen Dank!
Klappt eigentlich problemlos, genau das, was ich mir vorgestellt habe!!!

Das ich noch einiges nachbearbeiten muss, ist mir bewusst.
Aber der Aufwand ist mit dem Tool deutlich gesunken!

Vielen Dank und schöne Feiertage!

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