---

koords.txt

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!

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

---

Hallo Peter, wenn du dich auf einen eigenen 4 Jahren alten Beitrag beziehst, wäre Verlinken nicht schlecht, sonst ist der Zusammenhang nur dir klar aber keinesfalls für die anderen Mitglieder ersichtlich.
Wenn es immer noch ums Einlesen von Punkten geht und du immer noch Student bist - lade dir AutoCAD Civil 3D hier herunter und verwende den Befehl IMPORTPOINTS.
Wenn du selber ein Lisp Programm geschrieben hast (aus den Codeschnipseln des verlinkten Beitrags) und dazu noch Fragen hast, dann poste deine Quelltext ebenfalls hier - nicht nur deine Koordinatenliste.

Wenn es dir nur um das Einlesen dieser Koordinatenliste geht, die könntest du mit einem Texteditor auch schnell in ein AutoCAD Script umbauen (dazu gibts ebenfalls diverse Beiträge).

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

Udo Hübner
www.CAD-Huebner.de

[Diese Nachricht wurde von CAD-Huebner am 15. Jun. 2012 editiert.]

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

---

1. Die Datei zeilenweise einlesen und die Zeilen in einer Liste ablegen

2. Zeilen an Leeerzeichen aufspalten und Resttexte entsprechend trimmen und diese dann in
   einer Unterliste speichern ( da bietet sich ein mapcar-Konstrukt an )

Die Liste sollte dann so aussehen
(
  ("1002"   "3513282.268" "5405418.475" "254.516" "284")
  ("1003"   "3513283.848" "5405415.407" "254.513" "284")
  ("1004"   "3513283.873" "5405415.412" "253.812" "283")
  ....
)

um nur die X Y Z Werte zu bekommen
wäre dann
(mapcar
  '(lambda(X) (list (cadr X)(caddr X)(cadddr X)))
   LISTE
)
ein Ansatz

die Funktion (nth X LISTE) liefert den nte Eintrag einer Liste zurück,
wäre also auch noch was ....

Auf Mapcars Seiten warst du schon ?

Edit .. sehe gerade den Beitrag von 2008 ..... Was hast du in der Zwischenzeit gemacht ? 
------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Zitat:

---

Original erstellt von PsycoDad:
... versteh aber einfach nicht wie ich die Listen-Auswahl Befehle (car, cdar, caar) richtig anwende. ...

---

Hallo Peter,

(setq liste '("-1-" "-2-" "-3-" "-4-" "-5-" "-6-" "-7-" "-8-"))
;Grundsätzlich gilt
; a -> erstes Element einer Liste wird ermittelt
; d -> die Liste ohne das erste Lement wird ermittelt
; daraus folgt:
(car liste); gibt das erste Element zurück -> "-1-"
(cdr liste); gibt die Liste ohne das erste Element zurück -> '("-2-" "-3-" "-4-" "-5-" "-6-" "-7-" "-8-")

;nun kann man die a's und d's bis zu 4 Ebenen beliebig verschachteln, ohne dass man mit den beiden obigen Funktionen (car ..) und (cdr ..) kombinieren muss
;Die Reihernfolge, was gemacht wird, liest man wie immer von Innen nach außen, was hier von rechts nach links entspricht
(cadr liste)
;entspricht also
(car(cdr liste))
;oder
(caddr liste)
;entspricht also
(car(cdr(cdr liste)))
;entspricht aber auch
(car (cddr liste))
;entspricht aber auch
(cadr(cdr liste))

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!

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

---

Hallo Peter,

was wilst Du mit den Daten aus Deinem Textfile machen?
Soll z.B. eine Kontur gezeichnet werden?
Oder einfach nur Punkte?

Gruß
Theodor

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

---

Und wer mit car & cdr nicht durchsteigt kann sich auch mit
(nth Position liste) durchblättern) auf cadmiums beispiel bezogen

(nth 0 '("1002" "3513282.268" "5405418.475" "254.516" "284"))->"1002"

------------------
Gruss Dirk

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

---

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 file))

        (setq LISTE (read(strcat "(" zeile ")")))

          (command "_.point" (list (nth 1 LISTE) (nth 2 LISTE) 0) "" "" "")
          (command "_.text" (list (1+(nth 1 LISTE)) (1+(nth 2 LISTE)) 0) 0.0 (nth 3 LISTE) "" "" )
 
)
(close file)
      )
    (alert "Keine Date gewählt!")
    )
  )
(princ "\nStarten mit test")

---

Ich setz nen Punkt aus meiner Koordinaten Datei auf die X-Y-Ebene,
und daneben setzt ich meinen Z-Wert als Text.

Ist jetzt zwar nicht mehr dem Beitragsthema entsprechend,
aber könnte mir einer ne Hilfestellung geben,
wie ich mit der Funktion "_.text" klar komme.
Also wie ich die Textart, Höhe, Beschriftung auf "NEIN" setze.

Verschwitzte Grüße
Peter

------------------
Essen und schlafen, macht niemand zum Grafen!

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

---

Zitat:

---

aber könnte mir einer ne Hilfestellung geben,
wie ich mit der Funktion "_.text" klar komme.
Also wie ich die Textart, Höhe, Beschriftung auf "NEIN" setze.

---

Hallo Peter,

gehe mal den Textbefehl in der Befehlszeile durch. Genauso mit allen Optionen musst Du dass dann an "command" übergeben
also z. B.

Code:

---

(command "_.text" "_style" textstilname ... )

---

Texthöhe wird nur abgefragt (und kann nur eingegeben werden) bei Textstilen, denen nicht schon eine Höhe zugewiesen wurde.

HTH
Gruß
Thomas

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

---

Alternativ zum (command "_.text" ...) könntest Du auch mit entmake arbeiten. Beispiel HIER.

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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