Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Text und Texteinfügepunkt in Datei speichern

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Text und Texteinfügepunkt in Datei speichern (1551 mal gelesen)
cadteufel
Mitglied
Softwareentwicklung


Sehen Sie sich das Profil von cadteufel an!   Senden Sie eine Private Message an cadteufel  Schreiben Sie einen Gästebucheintrag für cadteufel

Beiträge: 126
Registriert: 15.10.2002

123CAD Version 3.3 AutoCAD 8 - 2013

erstellt am: 09. Mrz. 2012 17:20    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.

erstellt am: 09. Mrz. 2012 19:43    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für cadteufel 10 Unities + Antwort hilfreich

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

cadteufel
Mitglied
Softwareentwicklung


Sehen Sie sich das Profil von cadteufel an!   Senden Sie eine Private Message an cadteufel  Schreiben Sie einen Gästebucheintrag für cadteufel

Beiträge: 126
Registriert: 15.10.2002

123CAD Version 3.3 AutoCAD 8 - 2013

erstellt am: 09. Mrz. 2012 19:46    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

wronzky
Ehrenmitglied V.I.P. h.c.
CAD-Dienstleistungen für Architekten



Sehen Sie sich das Profil von wronzky an!   Senden Sie eine Private Message an wronzky  Schreiben Sie einen Gästebucheintrag für wronzky

Beiträge: 2154
Registriert: 02.05.2005

CAD:
AutoCAD 2.6 bis 2014
ADT 2005 bis ACA 2013
Arcibem
System:
Windows
Internet-Startseite:
http://www.archi.de

erstellt am: 09. Mrz. 2012 21:39    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für cadteufel 10 Unities + Antwort hilfreich

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

CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer



Sehen Sie sich das Profil von CAD-Huebner an!   Senden Sie eine Private Message an CAD-Huebner  Schreiben Sie einen Gästebucheintrag für CAD-Huebner

Beiträge: 9732
Registriert: 01.12.2003

AutoCAD 2.5 - 2022, Civil 3D, MAP 3D, ACADM
Inventor AutoCAD 2022, AIP 4-2022
Win 10

erstellt am: 09. Mrz. 2012 21:54    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für cadteufel 10 Unities + Antwort hilfreich

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

cadteufel
Mitglied
Softwareentwicklung


Sehen Sie sich das Profil von cadteufel an!   Senden Sie eine Private Message an cadteufel  Schreiben Sie einen Gästebucheintrag für cadteufel

Beiträge: 126
Registriert: 15.10.2002

123CAD Version 3.3 AutoCAD 8 - 2013

erstellt am: 10. Mrz. 2012 08:27    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

wronzky
Ehrenmitglied V.I.P. h.c.
CAD-Dienstleistungen für Architekten



Sehen Sie sich das Profil von wronzky an!   Senden Sie eine Private Message an wronzky  Schreiben Sie einen Gästebucheintrag für wronzky

Beiträge: 2154
Registriert: 02.05.2005

CAD:
AutoCAD 2.6 bis 2014
ADT 2005 bis ACA 2013
Arcibem
System:
Windows
Internet-Startseite:
http://www.archi.de

erstellt am: 10. Mrz. 2012 16:43    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für cadteufel 10 Unities + Antwort hilfreich

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

cadteufel
Mitglied
Softwareentwicklung


Sehen Sie sich das Profil von cadteufel an!   Senden Sie eine Private Message an cadteufel  Schreiben Sie einen Gästebucheintrag für cadteufel

Beiträge: 126
Registriert: 15.10.2002

123CAD Version 3.3 AutoCAD 8 - 2013

erstellt am: 11. Mrz. 2012 09:37    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

wronzky
Ehrenmitglied V.I.P. h.c.
CAD-Dienstleistungen für Architekten



Sehen Sie sich das Profil von wronzky an!   Senden Sie eine Private Message an wronzky  Schreiben Sie einen Gästebucheintrag für wronzky

Beiträge: 2154
Registriert: 02.05.2005

CAD:
AutoCAD 2.6 bis 2014
ADT 2005 bis ACA 2013
Arcibem
System:
Windows
Internet-Startseite:
http://www.archi.de

erstellt am: 11. Mrz. 2012 19:10    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für cadteufel 10 Unities + Antwort hilfreich

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

cadteufel
Mitglied
Softwareentwicklung


Sehen Sie sich das Profil von cadteufel an!   Senden Sie eine Private Message an cadteufel  Schreiben Sie einen Gästebucheintrag für cadteufel

Beiträge: 126
Registriert: 15.10.2002

123CAD Version 3.3 AutoCAD 8 - 2013

erstellt am: 13. Mrz. 2012 11:05    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

wronzky
Ehrenmitglied V.I.P. h.c.
CAD-Dienstleistungen für Architekten



Sehen Sie sich das Profil von wronzky an!   Senden Sie eine Private Message an wronzky  Schreiben Sie einen Gästebucheintrag für wronzky

Beiträge: 2154
Registriert: 02.05.2005

CAD:
AutoCAD 2.6 bis 2014
ADT 2005 bis ACA 2013
Arcibem
System:
Windows
Internet-Startseite:
http://www.archi.de

erstellt am: 13. Mrz. 2012 11:19    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für cadteufel 10 Unities + Antwort hilfreich

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



Technische Projektmanager (m/w/d) Pumpen u.a. für Schifffahrt und Marine
Erstklassiger Arbeitgeber - Hersteller von Komponenten u. a. für den Anlagenbau und die Schifffahrtsindustrie ? weiteres Wachstum u. a. durch sehr langfristige Projekte im Bereich Marine und Energie

Unser Klient ist Entwickler und Hersteller von Komponenten für den Anlagenbau und Schiffsbau, u. a. innovative Pumpen. Aufgrund der jahrzehntelangen Erfahrung vertrauen seine Kunden auf die gleichermaßen hochwertigen und sicheren Produkte "Made in Germany"....
Anzeige ansehenProjektmanagement
cadteufel
Mitglied
Softwareentwicklung


Sehen Sie sich das Profil von cadteufel an!   Senden Sie eine Private Message an cadteufel  Schreiben Sie einen Gästebucheintrag für cadteufel

Beiträge: 126
Registriert: 15.10.2002

123CAD Version 3.3 AutoCAD 8 - 2013

erstellt am: 13. Mrz. 2012 11:55    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz