---

DTMBIN1_3478000_5431000_dtm.dwg

Hi Leute,

ich konnte schon viele meiner Probleme über dieses Forum hier lösen - für dieses eine habe ich jedoch noch keine gefunden.

Um was geht es:
Ich habe ein DGM bzw. fertige Höhenlinien in einer DXF.
Ist es möglich, dass man automatisch ein Punktobjekt an den Scheitelpunkten der Polylinien erzeugen lassen kann
(also da wo die blauen Anfasser erscheinen)?
Diese vorhandenen Punkte möchte ich dann mit selbst gemessenen Punkten zu einem neuen DGM vereinen.
Und ich hab keinen Bock, händisch jede Polylinie zu bearbeiten und dort Punkte zu setzen.

Ich hoffe mal, ich hab mich richtig ausgedrückt und jemand weiß was ich damit meine.

Falls jemand eine Idee dazu hat - immer her damit.

Gruß
Karsten

------------------
Gruß
Karsten

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

---

Hallo Karsten,

mit Autodesk Civil 3D geht das automatisch.

Gruß Symantec

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

---

Hi,

leider haben wir kein Civil 3D, sondern "nur" StadtCAD und Map3D.
Oder kennt jemand vlt. ne Lisp-Datei die sowas automatisiert?

------------------
Grüße
K.Franke

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

---

Also wenn ich Google frage, dann kommen da eine Menge gut klingender Links
und schon auf der erste Trefferseite wurde ich mehrfach fündig.

Ich kann die leider kein bestimmtes Tool empfehlen (die meisten sind nur simpel gestrickt und würde bei im-Raum-verdrehten Polylinien falsche Ergebnisse liefern, aber die Antwort soll dich motovoeren gerne mal
selbst mehr zu suchen (und natürlich: Testen).

Was mir als erstes in den Sinn kam bei deiner Anfrage und das war auch mein einziger Test dafür:
Hallo Google: AUTOCAD LISP PLACE POINTS VERTEX

Wenn es nur LW-Polylinien sind und diese schoön parallel zur XY-Achse liegen,
so würde zB. das letzte (von drei) der Treffer ausreichen:
http://lee-mac.com/ptmanager.html

-

Im Nachgang1:
Ich habe mal auf deutsch gesucht (nlödes Thema für eine deutsche suche)
und selbst da habe ich funktionierende Codes auf der ersten Trefferseite erhalten.

Im Nachgang2:
Ich habe soeben mal chatgpt trainiert:
Polylinien sind ein doofes Thema für so einen Anfänger wie chatgpt,
es braucht da noch etwas Erfahrung und ich hoffe das ich ihm viel beibringen konnte.
Immerhin hat es mit viel viel Unterstützung funktioniert
zwei Programme zu generieren welche Polylinien und Lwpolylinien verarbeiten kann

Code:

---

;ChatGPT mit sehr viel Unterstützung meinerseits  

(defun c:InsertPointsAtVertices (/ ss ent vertex)
  (setq ss (ssget "_X" '((0 . "POLYLINE"))))
  (if ss
    (progn
      (setq ent (ssname ss 0))
      (while ent
        (setq vertex (entnext ent))
        (while vertex
          (if (eq (cdr (assoc 0 (entget vertex))) "VERTEX")
            (progn
              (setq pt (cdr (assoc 10 (entget vertex))))
              (command "_POINT" pt)
            )
          )
          (setq vertex (entnext vertex))
        )
        (setq ent (ssname ss (setq i (1+ i))))
      )
    )
  )
  (princ)
)

(defun c:InsertPointsAtVerticesLWP (/ ss ent vertices)
  (setq ss (ssget "_X" '((0 . "LWPOLYLINE"))))
  (if ss
    (progn
      (setq ent (ssname ss 0) i 0)
      (while ent
        (setq vertices '())
        (setq pline (vlax-ename->vla-object ent))
        (setq points (vlax-get pline 'Coordinates))
        (setq j 0)
        (while (< j (1- (length points)))
          (setq x (nth j points))
          (setq y (nth (1+ j) points))
          (setq vertex (list x y))
          (setq vertices (cons vertex vertices))
          (setq j (+ j 2))
        )
        (foreach v vertices
          (command "_POINT" (list (car v) (cadr v)))
        )
        (setq ent (ssname ss (setq i (1+ i))))
      )
    )
  )
  (princ)
)

---

Die Nerven den GPT anzuleiten die Objektfänge zu handeln oder auch Objekte deren Koordinatensystem nicht 0,0,1 ist, die hatte ich jetzt nicht mehr  

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

---

DTMBIN1_3478000_5431000_dtm_PTM62123.dwg DTMBIN1_3478000_5431000_dtm_GPT62123.dwg

einmal mit dem PTM und einem mit GPTs code (hüstel)

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

---

Hi cadffm,

danke für deine Antwort.
Kenn man die entsprechenden "Suchworte", findet man sicher was.
Wenn ich aber bei Google eingegeben hab: "automatisch Punkte an Polylinien Stützpunkte erzeugen" bekomme ich nur Infos wie man Stützpunkte erstellt / erstellen lässt.

Dass ChatGPT auch Lisp-Dateien schreiben kann wusste ich nicht. Wie viele Versuche hat es denn benötigt?
Ich werd es gleich mal ausprobieren.

Allen hier schon mal nen schönen Abend.

------------------
Grüße
K.Franke

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

---

Hallo Karsten,

was machst Du dann, wenn Du die Punkte hast? Für Tiefbau-Aufgaben liefern Deine Programme keine Funktionen.

Gruß Symantec

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

---

>>"Kenn man die entsprechenden "Suchworte", findet man sicher was."
Ich habe nur deine Worte genommen, im deutschen wie im (übersetzten) englischen.
Da deutsch wenig vertreten ist auf der Welt und erst recht in der Programmierung,
hat man mit englisch immer die besseren Karten.
Bei der deutschen Suchanfrage hatte ich einfach Glück, habe mir aber nicht gemerkt was genau meine Eingabe war.

>>"Wie viele Versuche hat es denn benötigt?"
Neee, der hätte das nie geschafft  - für den ist dein Thema genau so schwierig wie auf deutsch suchen
und zudem hat er noch ordentliche Anfängerschwierigkeiten.
Ich kann ja , zumindest auf diese Schöpfungshöhe  , programmieren und konnte ihm dann sagen
das das er statt 0 eine 1 schreiben muss, oder das er was durcheinander geebracht hat,
vergessen hat die Variable zu definieren  usw.   

Jemand der schon etwas programmieren kann, der bekommt da nette Hinweise, aber für andere
ist das reines Glück, denn selbst wenn es funktioniert - derjenige erkennt ja die Fallstricke im Code nicht!
(bei einem anderen Thema klappt auch alles perfekt beim 1. Mal, beim nächten halt wieder nicht)

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

---

pdfresizer.com-pdf-crop.pdf BRE_Kreuzung-L1103_QP_A-C.pdf

Hi symantec,

vlt. mach ich das umständlicher als es eigentlich geht - in Ermangelung weiteren Wissens mach ich es aber so:
ich habe von Lars Karlsson (www.glamsen.se) ein "kleines" Programm für AutoCAD gefunden.
Mit diesen Tools kann man aus gemessenen Punkten (oder sonstigen Punkten mit Höhe) ziemlich einfach ein DGM erstellen, sich Höhenlinien zeichnen lassen, automatisiert entlang einer 3dPolylinie Querprofile erstellen lassen, Längsschnitte machen, zwei DGM voneinander abziehen (bzw. Auf- und Abtrag berechnen), das Volumen einer Baugrube/Becken berechnen und noch viele andere Sachen.
Ich hab keine Ahnung, was davon auch in AutoCAD Map3D bzw. StadtCAD geht.

Was ich mit den Punkten mach?
Momentan mach ich mir selbst kleine DGM. Im Anhang ein Beispiel was dann dabei rauskommt.

------------------
Gruß
Karsten

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

---

Hallo Karsten,

in Deiner Beispieldatei hast Du LWPOLYLINE mit Erhebung. Da ich annehme, dass Du die Punkte als 3D-Punkte haben möchtest, müsstest Du den Code von cadffm noch um den z-Wert ergänzen.

Code:

---

...
(setq ent (ssname ss 0) i 0)
      (while ent
        (setq z (cdr (assoc 38 (entget ent))))
        (setq vertices '())
...
...
          (setq y (nth (1+ j) points))
          (setq vertex (list x y z))
          (setq vertices (cons vertex vertices))
          (setq j (+ j 2))
        )
        (foreach v vertices
          (command "_POINT" (list (car v) (cadr v)) v)
...

---

HTH
Gruß
Thomas

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

---

Hi cadffm,

vielen Dank.

Aber irgendwie klappt das bei mir nicht.
Ich nehme deinen Code, kopiere ihn in eine TXT-Datei, speichere, benenne die TXT in LSP um, lade im CAD die Lisp über "appload" und rufe die Lisp über den bei
defun genannten Namen auf. Bzw. ich versuche es. Jedoch passiert nix...

------------------
Gruß
Karsten

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

---

Hallo spider_dd,

ich werde es versuchen.
Deine Antwort habe ich später gelesen, da ich die Seite nicht aktualisiert hatte...

------------------
Gruß
Karsten

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

---

Punkte.zip

Hallo in die Runde!

Ich habe die Punkt-Koordinaten extrahiert und eine Excel-Datei mit der dazugehörigen DWG-Datei angehängt. Diesen Vorgang habe ich mithilfe der CAD-Tools von Glamsen und einigen Excel-Tricks durchgeführt. Weitere Informationen zu den CAD-Tools von Glamsen findest du hier: https://www.glamsen.se/CadTools.htm

[Diese Nachricht wurde von DraftsmanCAD am 07. Sep. 2023 editiert.]

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