punkte.txt |
Lisp : Punktkoordinaten aus Datei auslesen
PsycoDad am 27.01.2009 um 16:18 Uhr (0)
Ups. Stimmt gar nicht.Geht auch mit der txt nicht.Muss an was anderm liegen.------------------Essen und schlafen, macht niemand zum Grafen!
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
PsycoDad am 28.01.2009 um 10:12 Uhr (0)
Hallo Jörn, Thomas.Das ist super.Hab es gerade getestet.Genau so ist es Perfekt.Wie hast du den "Punkt"-Block eingerichtet damit er die Nummer übernimmt und darstellt. Damit hab ich mich noch nie beschäftigt.Erstelle ich da nur nen Block und füge ein Attribut hinzu? @Thomas:Die Datei hat tatsächlich nen Schaden.Die Daten kommen nicht von mir.Werde mal bei meinem Kollegen anfragen ob auch ein anderer Export möglich ist. ------------------Essen und schlafen, macht niemand zum Grafen!
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
PsycoDad am 27.01.2009 um 15:37 Uhr (0)
Danke für die Hilfe.Habs jetzt so getestet.Code:(defun c:versuch1 (/ file zeile) (setq file (getfiled "Verzeichnisliste" "" "" 2)) (if file (progn (setq file (open file "r")) (while (setq zeile (read-line file))(setq LISTE (read(strcat "(" (vl-string-left-trim "0"zeile) ")")))(princ (strcat "
Punktnummer :" (itoa(nth 0 LISTE))))(command "_.POINT"(list (nth 1 LISTE) (nth 2 LISTE) (nth 3 LISTE))) );while (close file) ) (alert "Keine Date gewählt!") ) )Krieg dann ne FehlermeldungCode:Fehler: ...
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
PsycoDad am 28.01.2009 um 10:49 Uhr (0)
Das schau ich mir heute abend mal genauer an.Bedanke mich mal wieder bei allen für die schnelle Hilfe.Immer wieder ein vergnügen hier im Forum ne Frage zu stellen. So, jetzt wird weiter studiert.Gruß Peter------------------Essen und schlafen, macht niemand zum Grafen!
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
PsycoDad am 27.01.2009 um 16:06 Uhr (0)
Ja. Klappt.Problem war, das die die Punkte in ner *.tac Datei vorlagen.Hab ich gar nicht drauf geachtet. Dachte das wäre ne *.txt.Schnell umbenannt, dann klappts auch mit meiner.Komisch das es aber mit der *.tac nicht geht.Muss wohl an (open file "r") liegen.Wie krieg ich hin das die Punktbezeichnung neben dem Punkt Dargestellt wird?Kann ich den Punktstil beim Einfügen beeinflussen, oder wird immer der aktuelle verwendet?Gruß PsycoDad------------------Essen und schlafen, macht niemand zum Grafen!
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
PsycoDad am 10.06.2008 um 11:17 Uhr (0)
Hallo,ich beziehe mich hier auf einen älteren Beitrag. http://ww3.cad.de/foren/ubb/Forum54/HTML/005305.shtml#000003 In Diesem Beitrag war gefragt wie man eine Reihe von Punktkoordinaten aus einer *.txt-Datei nach AutoCAD importiert.Das wurde so gelöst.Code:(defun c:test (/ file zeile) (setq file (getfiled "Verzeichnisliste" "" "" 2)) (if file (progn (setq file (open file "r")) (while (setq zeile (read-line file)) (command "_.POINT" (cddadr (read(strcat "(" zeile ")")))) );while (close file) ...
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
PsycoDad am 10.06.2008 um 11:34 Uhr (0)
Erstmal Danke. Die Geschwindigkeit wie hier Posts beantwortet werden ist unglaublich.@tunnelbauer:Die automatische erkennung des Dateityps, wäre natürlich der Hammer.Ist aber für mich gar nicht nötig.Ich werde das mit ner Abfrage erledigen.@CADmium:Ja das müsste es sein. Werds gleich mal probieren.@wronzky: Hab ich mir angeschaut. Sitz vor Mapcars Buch und hab schon alles probiert..Werd da nicht schlau draus. @Alle: Dank euch!meld mich garantiert nachher wieder.Hab da nochmal was. ------------------Essen u ...
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
PsycoDad am 10.06.2008 um 12:00 Uhr (0)
Okay.Habs jetzt so versucht.Code:(defun c:versuch (/ file zeile) (setq file (getfiled "Verzeichnisliste" "" "" 2)) (if file (progn (setq file (open file "r")) (while (setq zeile (read-line file)) (setq LISTE (read(strcat "(" zeile ")"))) (command "_.POINT" (list (nth 0 LISTE) (nth 1 LISTE) (nth 2 LISTE) ) ) );while (close file) ) (alert "Keine Date gewählt!") ) )Mein txt-File sieht so aus.99.351 300.472 10.066100.779 300.843 10.249101.412 300.470 10.913101.635 294.375 ...
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
PsycoDad am 10.06.2008 um 12:53 Uhr (0)
Danke. Geht.------------------Essen und schlafen, macht niemand zum Grafen!
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
PsycoDad am 12.06.2008 um 12:17 Uhr (0)
Danke das ihr euch immer noch bemüht.Zum Teil ist es so das die anderen Elemente ebensoDezimalpunkte beinhalten.Das Ausschließen über diese Funktion ist aber Trotzdem Klasse. Thx.------------------Essen und schlafen, macht niemand zum Grafen!
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
PsycoDad am 27.01.2009 um 14:18 Uhr (0)
Hallo zusammen.Hab mich länger nicht mehr damit beschäftigt,und bei erneuten Versuch bin ich auf ein Problem gestoßen.Mein txt-File sieht jetzt so aus:000000000010 9.9510 9.0930 0.00000000000000011 14.5740 9.0410 0.00000000000000012 14.5740 11.0160 0.00000000000000013 16.5090 11.0090 0.00000Wobei sich nur geändert hat das in der ersten Spalte auch nochdie Punktnummer eingelesen werden sollte.Das einlesen der X,Y,Z-Koordinaten hab ich früher so gemacht.Code:(defun c:versuch (/ file ze ...
|
| In das Form Lisp wechseln |
koords.txt |
Lisp : car und cdr Salat aus A´s und D´s
PsycoDad am 15.06.2012 um 07:54 Uhr (0)
Hallo LISP´ler,hab mal wieder das alte Problem mit Punktwolken import aus einem txt-File.Ich habs wirklich versucht,versteh aber einfach nicht wie ich die Listen-Auswahl Befehle (car, cdar, caar) richtig anwende.Meine Datei sieht so aus - PNR X Y Z COD (siehe Anhang)wie muss ich "car" umbauen das es mir X und Y zurück liefert,wie das es mir Z zurück gibt?Über ne Hilfe bin ich wie immer Dankbar,vielleicht versteh ichs je dann endlich.Gruß Peter ------------------Essen und schlafen, macht niemand zum Grafen!
|
| In das Form Lisp wechseln |
|
Lisp : car und cdr Salat aus A´s und D´s
PsycoDad am 18.06.2012 um 15:32 Uhr (0)
Erstmal Danke euch allen für die Hilfe.Bin kein Student mehr, werde mein Profil gleich bearbeiten.Entschuldige mich für den fehlenden Link.Hab mich für die "nth"-Version entschieden, da ich mit "car" und "cdr" immer Probleme hab.An "nth" hat ich gar nicht mehr gedacht.Arbeite nur noch sehr selten mit AutoCAD.Mein Lisp sieht momentan so aus:Zitat:(defun c:test (/ file zeile) (setq file (getfiled "Verzeichnisliste" "" "" 2)) (if file (progn (setq file (open file "r")) (while (setq zeile (read-line fi ...
|
| In das Form Lisp wechseln |
