---

Hallo Forum,

ist nicht so einfach hier mit der Suche was zu finden.

Ich suche eine Lisp-Routine die die x,y Koordinaten der Einfügepunkte von Texten sowie den einzeiligen Text selbst in eine Spalten TXT-Datei exportiert.

Wo soll ich suchen? Weiss jemand hier eine solche Routine auf Anhieb?
Danke für eine Antwort

Gruß Claus

------------------
123CAD -
AutoCAD und Bricscad basierende Planungssoftware für Tiefbau und Objektplanung!
http://www.123CAD.de

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

---

Keine ahnung, ob genau so was Fertig ist, programmieren sollte sich das rel. leicht lassen. Evtl. kann man entsprechende Vermessertools, die Punkte oder Punktblöcke rausschreiben nutzen.
Wie siehts mit Befehl DATENEXTRAKT  aus ? --> F1

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

---

hallo Thomas,
danke für schnelle Antwort. Müsste Lisp sein wegen Bricscad.
deshalb "datenextract" geht nicht.

Claus

------------------
123CAD -
AutoCAD und Bricscad basierende Planungssoftware für Tiefbau und Objektplanung!
http://www.123CAD.de

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

---

Mal auf die Schnelle:

Code:

---

(defun c:txt-ex ( / ss z trenner datei file ele eig p)
  (setq ss (ssget "_X" '((0 . "TEXT"))) z -1 trenner "\t")
  (setq datei (open (setq file (vl-filename-mktemp "txtex.txt")) "w"))
  (while (setq ele (ssname ss (setq z (1+ z))))
    (write-line (strcat
                  (cdr (assoc 1 (setq eig (entget ele)))) trenner
                  (vl-prin1-to-string (car (setq p (cdr (assoc 10 eig))))) trenner
                  (vl-prin1-to-string (cadr p))
                )
      datei
    )
  )
  (close datei)
  (startapp "notepad.exe" file)
)

---

Schönes WE, 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

---

Na, das Tippen hat jetz 7 Min. gedauert. Da muss man gar nicht lange suchen. Hier mal als Anregung zum selbermachen:

Code:

---

(defun txtKoExp ( / file cnt eliste ss)
  (if (setq ss (ssget "x" (list (cons 0 "text"))))
    (progn
      (setq file (open "c:/temp/test.txt" "w")
            cnt (sslength ss)
      )
      (while (>= (setq cnt (1- cnt)) 0)
(setq eliste (entget (ssname ss cnt)))
(print (cdr (assoc 10 eliste)) file) ; Coord
(princ (cdr (assoc  1 eliste)) file) ; Textval
      )
      (close file)
    )
  )
)

---

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

Udo Hübner
www.CAD-Huebner.de

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

---

Hallo Ihr Beiden,

vielen Dank für die schnelle Programmierung. Ist immer wieder ein tolles Erlebnis hier.
Leider behersche ich die LSP-Sprache überhaupt nicht. Hab mal versucht in dem zweiten code ein "c:" zu integrieren, ist schon schief gegangen.

So hab ich den Code von Henning geladen. Hat auf Anhieb funktioniert und das (fast) richtige Ergebnis geliefert.
Hatte vergessen zu erwähnen, das die Geschichte in GK-Koordinaten stattfindet also 11 Stellen hat.
statt: 4.48233e+006 5.30515e+006
müsste in der Ausgabe-Datei: 4482337.170 5305114.150
stehen.
Kann ich das irgendwo einstellen? Unter "Einheiten" hab ich keine falsche Einstellung gefunden da im Fenster "Eigenschaften" auch alle 11 Stellen angezeigt werden.

Claus

------------------
123CAD -
AutoCAD und Bricscad basierende Planungssoftware für Tiefbau und Objektplanung!
http://www.123CAD.de

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

---

Schau Dir mal die Funktion (RTOS ...) an.

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

---

Hallo Henning,

ja, gerne. wenn ich ja nur etwas mehr Programmiererfahrung hätte?
Hab nach der Funktion gesucht.
(rtos pi 2 2)  > 3.14
soweit verstanden, rtos verwandelt die Zahl. 2=dezimal, 2= Nachkommastellen. Nur welche Variable setze ich ein statt pi? Und an welcher Stelle des Codes?

Claus

------------------
123CAD -
AutoCAD und Bricscad basierende Planungssoftware für Tiefbau und Objektplanung!
http://www.123CAD.de

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

---

OK,
anstelle von (vl-prin1-to-string ...), also z.b. statt (vl-prin1-to-string (cadr p)) ->  (rtos (cadr p) 2 2).

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

---

ok, danke hab ich gemacht, hab die Zeile ausgetauscht.

(defun c:txt-ex ( / ss z trenner datei file ele eig p)
  (setq ss (ssget "_X" '((0 . "TEXT"))) z -1 trenner "\t")
  (setq datei (open (setq file (vl-filename-mktemp "txtex.txt")) "w"))
  (while (setq ele (ssname ss (setq z (1+ z))))
    (write-line (strcat
                  (cdr (assoc 1 (setq eig (entget ele)))) trenner
                  (vl-prin1-to-string (car (setq p (cdr (assoc 10 eig))))) trenner
                  (rtos (cadr p) 2 3)
                )
      datei
    )
  )
  (close datei)
  (startapp "notepad.exe" file)
)

So nun das Ergebnis, Y-Koordinate passt, Text passt, aber X-Koordinate nicht:
401307010421(8) 4.48228e+006 5305178.500
401307010427(8) 4.48229e+006 5305142.720
401307010366(5) 4.48229e+006 5305145.920
401307010809(8) 4.48229e+006 5305198.570
401307010385(5) 4.48229e+006 5305187.400
401307010429(8) 4.4823e+006 5305136.040

Ist halt schwierig wenn man so gar kein Talent dafür hat. Bestimmt muss man noch was in der Zeile: (vl-prin1-to-string (car (setq p (cdr (assoc 10 eig))))) trenner
anpassen, aber wie? Ich will ja auch nicht nerven, steh aber ehrlicherweise auf dem Schlauch.

Gruß Claus

------------------
123CAD -
AutoCAD und Bricscad basierende Planungssoftware für Tiefbau und Objektplanung!
http://www.123CAD.de

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

---

Hallo Claus,
 
die Stelle hast Du schon richtig erkannt...
statt
(vl-prin1-to-string (car (setq p (cdr (assoc 10 eig))))) trenner
(rtos (car (setq p (cdr (assoc 10 eig)))) 2 3) trenner

Grüsse, Henning

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

      http://www.voxelman.de

[Diese Nachricht wurde von wronzky am 13. Mrz. 2012 editiert.]

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

---

Hallo Henning,

ja, vielen Dank. Jetzt passts super von der Ausgabe.
hmh, so einfach..
Claus

------------------
123CAD -
AutoCAD und Bricscad basierende Planungssoftware für Tiefbau und Objektplanung!
http://www.123CAD.de

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