---

An alle Vermesser, Stadtplaner und Landschaftsplaner unter euch folgenden Frage:
Ich habe die ehrenwerte Aufgabe erhalten, ein digitales Geländemodell zu erstellen, brauche dafür aber einen Höhenlinienplan mit geschlossenen 3D-Polylinien. Die Karte, die ich habe, hat zwar Höhenlinien, aber es sind lauter einzelne Bögen, die nicht verbunden sind. Gibt es eine Möglichkeit, durch eine automatische Funktion alle Bögen in der Zeichnung in Polylinien umzuwandeln, und die einzelnen Linien zu verbinden und zu schließen.???
Gruß,
Tom

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

---

Hallo,

ich bin kein Vermesser, Stadtplaner oder Landschaftsplaner. Ich bin Maschinenbauer und AutoLISP-Programmierer. Ich hoffe das stört dich nicht. 

wenn sich die zu verbindenden Bögen alle in ein einer Ebene befinden (egal wie diese Ebene im Raum liegt), dann solltest du das BKS in dieser Ebene positionieren und dann mit Pedit die Bögen verbinden. Sollte eigentlich gehen. Wenn das so nicht geht, dann vermute ich, dass die Bögen in eigenen Objektkoordinatensysteme definiert sind. Dann wird es schwierig, da  diese dann alle in ein gemeinsames Koordinatensystem umzurechnen sind. Das ist dann aber genauer zu untersuchen, am besten an einem Beispiel.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Hallo Tom,

vielleicht hilft Dir das Lisp unseres Kollegen Jochen, unter http://home.t-online.de/home/scj.schulz/pedit.htm...?

Lothar

------------------
"Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss)

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

---

Weiß zwar nicht mit welcher Version von AC du arbeitest aber:

PEDIT (mit dem kann man ua. PL verbinden) erlaubt im Modus "multiple" (gleich am Anfang eine Abfrage - sollte ab Version 2k funktionieren) eine Verbindung von PL's die einen gewissen Abstand nicht überschreiten (Fuzz Distance = USER-Definition) und vorausgesetzt deine PL's liegen auf der selben Ebene.

Somit brauchst du eigentlich nur noch den maximalen Abstand zwischen deinen PL's einer Ebene messen und dahingehts !!!

(PS: solttest irgendwas nicht verstanden haben, ich versteh mich heute auch nicht mehr - dann aber frag bitte morgen nocheinmal nach - Danke für dein Verständnis)

------------------
Grüsse

Thomas

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

---

Hallo Tom,

versuches es mal mit Tool 8,

zu finden auf, http://www.lehrer.uni-karlsruhe.de/~za685

unter CAD ->kostenlose Tools.

Gruß
Theodor Schönwald

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

---

Vielen Dank für eure konstruktive Mithilfe !

Leider ist weder das Lisp des Kollegen Jochen in der Lage, die Elemente umzuwandeln und zu verbinden noch das Lisp Nr. 8 der CAD-Tools. In Handarbeit ca. 500 Höhenlinien mit PEDIT zu bearbeiten fällt ebenfalls flach, viel zu aufwendig.
Ich versuche mal zuerst die Bereinigungsfunktion von Map durchzuführen und dann mit den Tools zu arbeiten.

Tom

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

---

Hallo Tom,

unter der Voraussetzung dass die Bögen wirklich in einer Ebene liegen und dann auch noch wirklich die Endpunkte aneinander liegen könnte dir folgende Lisp helfen.

Code:

---

(defun c:arc_pl ( / as aa)
  (setq as (ssadd))
  (while (and
           as
           (/= aa (setq aa (sslength as)))
           )
    (setq as (ssget "_X" '((0 . "ARC"))))
    (if as
      (make_pline (ssname as 0) (ssdel (ssname as 0)as))
      )
    )
  )
(defun make_pline (arc as /)
  (command "_.UCS" "_N" "_E" arc)
  (command "_.pedit" arc "_Y" "_J" as "" "")
  )

---

Wenn nicht, dann muss man mal in die Zeichnung reinschauen.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

[Diese Nachricht wurde von Brischke am 20. Jan. 2004 editiert.]

[Diese Nachricht wurde von Brischke am 20. Jan. 2004 editiert.]

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

---

Hallo Tom,

Wenn mein Tool Nr. 8 nicht funktioniert, dann sind entweder die Endpunkte der einzelnen Elemente (Bögen) auseinander, überschneiden sich oder nicht auf einer Ebene.
Wenn das so ist solltest Du ein Tool suchen das solche Fehler bereinigt.

Mein Vorschlag: stelle doch mal Deine Zeichnung zur Verfügung. In diesem Forum gibt es genug Leute die sofort feststellen können wo der Fehler liegt.

Gruß
Theodor Schönwald

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

---

Hoehenl.zip

Hier die besagte Zeichnung mit Höhenlinien....

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

---

Hallo Tom,

Du hast doch MAP. Damit kannst Du doch die Zeichnung bereinigen (Unterlängen verlängern und Objekte vereinfachen). Müßte doch auch gehen.

Grüße Lutz

------------------
May the force be with you!

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

---

Hallo Tom,

die Quelle, von der Du die Datei erhalten hast, bzw. derjenige, welcher die Höhenlinien erstellt hat, hat nicht zufällig noch die Originaldaten mit Höhenpunkten...  ?

Für ein DGM zu erstellen brauchst nicht zwangsweise Polylinien; es genügen auch einfach Linien oder Punkte, welche bereits auf der Z-Höhe liegen.
In Deinem Fall würde ich vorschlagen:
Linien einer Höhe markieren; im Eigenschaftsfenster die entsprechende Objekthöhe zuweisen und ggf. auf einen anderen Layer kopieren.

------------------
Grüße Karin

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

---

Leider kann die Map-Zeichnungsbereinigung keine Polylinien verbinden. Und zuviel Handarbeit soll ja auch nicht sein, Karin.
Vielleicht müßt ihr euch - wenn es nicht zuviel Mühe bereitet - mal die angehängte Datei (Ausschnitt aus der Stadtgrundkarte mit den Höhenlinien) ansehen.

Gruß,
Tom

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

---

mit Map habe ich es nicht probiert, aber einen Ausschnitt der Zeichnung mit pljoin (aus den Expresstools) mit einem Toleranzabstand von 0.1 zu Polylinien verbunden - das klappte einwandfrei.

------------------
Grüße Karin

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

---

Hallo Tom,

a) Ich habe 2 Elemente genommen die sich mit "Pedit" nicht verbunden
  haben und in eine Testdatei kopiert.
b) Dort habe ich die Elemente auf X = 80 und Y = 80 verschoben.
c) Vom Endpunkt des ersten Endpunktes eine Linie nach 100,100.
d) Das Gleiche vom 2. Element.
e) Mit dem Befehl "Luprec"  die Nachkommastellen auf 8 gesetzt.
f) Mit dem Befehl "Liste" beide Elemente angewählt und verglichen.

Hier das Ergebnis:
Objekte wählen: Entgegengesetzte Ecke angeben: 2 gefunden

Objekte wählen:
                  LINIE    Layer: "0"
                            Bereich: Modellbereich
                  Referenz = 50
              von Punkt, X=80.00000206  Y=79.99999935  Z=0.00000000
              nach Punkt, X=100.00000000  Y=100.00000000  Z=0.00000000
          Länge =28.28427025,  Winkel in XY-Ebene =    45
                  Delta X =19.99999794, Delta Y = 20.00000065, Delta Z
=0.00000000

                  LINIE    Layer: "0"
                            Bereich: Modellbereich
                  Referenz = 4F
              von Punkt, X=80.00000070  Y=79.99999976  Z=0.00000000
              nach Punkt, X=100.00000000  Y=100.00000000  Z=0.00000000
          Länge =28.28427092,  Winkel in XY-Ebene =    45
                  Delta X =19.99999930, Delta Y = 20.00000024, Delta Z
=0.00000000

Wie Du sehen kannst, ist 5 Stellen nach dem Komma die Welt noch in Ordnung, aber dann...

Gruß
Theodor

[Diese Nachricht wurde von Theodor Schoenwald am 20. Jan. 2004 editiert.]

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

---

Eingabe "pljoin" (Expresstools sind geladen):
Unbekannter Befehl...

Scheinbar gibt es in der (engl.) Version der Expresstools für ACAD 2004 diese Funktion nicht mehr. Habe es dann mit 2000 versucht, das Ergebnis ist aber auch wenig zufriedenstellend, vollständig verbunden werden die Höhenlinien nicht, es wäre noch zuviel Handarbeit nötig.
Dennoch Karin, dank Dir für den Hinweis !

Tom

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