| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: Textdatei importieren (1813 mal gelesen)
|
Walter Zettlitzer Mitglied Dipl.-Ing (FH)
Beiträge: 228 Registriert: 25.07.2002 WIN 2000, WINXP, ACAD 2002, ACAD 2004, Appl. ProStahl 3D
|
erstellt am: 17. Nov. 2003 10:38 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich habe bereits ein lisp, mit dem sich Textfiles erzeugen lassen (s.u.). Ich würde mir daraus gerne eins zusammenbauen, welches Text aus Textfiles importiert und in eine Zeichnung einfügt. Beispiel: Ein Textfile enthält nur das Wort "Mustertext". Dieses soll am Usprung eingefügt werden. Ich bin für jeden Tip dankbar (Ich habe leider hier in den Foren und bei cadwiesel nichts gefunden)! Schöne Grüße, Walter ;Textfile erzeugen (Auszug): (if (not (setq listnam (findfile "Textfile.txt"))) (setq listnam (getfiled "Textfile erzeugen" "Textfile" "txt" 1)) ) ;... (setq DAT_ID (open listnam "a")) (write-line pktlst DAT_ID) (close DAT_ID)
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
StephanJP Mitglied CAD-Admin
Beiträge: 834 Registriert: 09.11.2000
|
erstellt am: 17. Nov. 2003 11:26 <-- editieren / zitieren --> Unities abgeben: Nur für Walter Zettlitzer
|
Walter Zettlitzer Mitglied Dipl.-Ing (FH)
Beiträge: 228 Registriert: 25.07.2002 WIN 2000, WINXP, ACAD 2002, ACAD 2004, Appl. ProStahl 3D
|
erstellt am: 17. Nov. 2003 11:39 <-- editieren / zitieren --> Unities abgeben:
Danke für den Tipp, mit Rtext kann ich nur das File gesamt einfügen, oder? Mein Textfile ist aufgebaut pro Spalte x y z TEXT, z.B.: 100.7 255.9 1113.8 Muster1 20.3 19.0 544.9 Muster2 ... Jeder Text hat also seine eigene Koordinaten, wo er hingeschrieben werden soll. Schöne Grüße, Walter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 17. Nov. 2003 11:46 <-- editieren / zitieren --> Unities abgeben: Nur für Walter Zettlitzer
|
Walter Zettlitzer Mitglied Dipl.-Ing (FH)
Beiträge: 228 Registriert: 25.07.2002 WIN 2000, WINXP, ACAD 2002, ACAD 2004, Appl. ProStahl 3D
|
erstellt am: 17. Nov. 2003 11:54 <-- editieren / zitieren --> Unities abgeben:
Hallo cadwiesel, danke, aber dort wird der Weeg ACAD -> Textfile beschrieben (dazu habe ich ein Prog), ich benötige den Weg Textfile -> ACAD. Ich habe das noch in keinem lisp ghabt, sonst könnte ich es selbst auf meinen Anwendungszweck umbauen/erweitern... ;-) Schöne Grüße, Walter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 17. Nov. 2003 12:36 <-- editieren / zitieren --> Unities abgeben: Nur für Walter Zettlitzer
naja, der dürfte auch ähnlich sein Kommt darauf an, wie deine Textdatei aufgebaut ist. steht in jeder Zeile nur ein Wert, musst du immer 4 Zeilen auslesen um zu einem zusammengehörigen Eintrag zu kommen (x,y,z, Text) das kannst du umwandeln in eine Koordinate und da den Text einfügen -einfach per command. wenn du Koordinate und text in einer Zeile stehen hast, du fängst an eine Zeile auszulesen dann zerlegst du die ausgelesene Zeile in die Koordinate und den Text und weiter gehts wie schon o.g. ps in meinem lisp ist das schon drin - musst nur noch um den Text erweitern ------------------ Gruß CADwiesel Besucht uns im CHAT
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
fuchsi Mitglied Programmierer c#.net Datawarehouse
Beiträge: 1201 Registriert: 14.10.2003 AutoCad Version 2012 deu/enu <P>Windows 7 64bit
|
erstellt am: 17. Nov. 2003 12:40 <-- editieren / zitieren --> Unities abgeben: Nur für Walter Zettlitzer
das könnte mit folgendem kleinem lisp passieren allerdings musst du die zeile (command "TEXT" ep 2.5 0 text ) anpassen , der wert 2.5 ist die texthöhe des zu erstellenden textes sollte dein aktuelelr textstil bereits fix eine höhe zugeweisen haben, muss die zeile so ausschauen (command "TEXT" ep 0 text ), damit das fehlerlos funktioniert !! (defun c:txtimp (/)
(cond ((setq file (getfiled "Textfile einlesen" "Textfile" "txt" 0)) (setq x (open file "r")) (while (setq dat (read-line x))
(setq a1 (read (strcat "(" (chr 34) (replace dat " " (strcat (chr 34) (chr 34))) (chr 34) ")"))) (setq ep (list (atof (car a1)) (atof (cadr a1)) (atof (caddr a1)))) (setq text (cadddr a1)) (command "TEXT" ep 2.5 0 text ) ) (close x) ) ) )
(defun Replace (String SearchString ReplaceString / ) (while (/= String (vl-string-subst ReplaceString SearchString String)) (setq String (vl-string-subst ReplaceString SearchString String)) ) String ) ------------------ *********************************************** AutoCad 2000i, 2002, 2004 deutsch und englisch Windows 2000, NT, XP Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Walter Zettlitzer Mitglied Dipl.-Ing (FH)
Beiträge: 228 Registriert: 25.07.2002 WIN 2000, WINXP, ACAD 2002, ACAD 2004, Appl. ProStahl 3D
|
erstellt am: 17. Nov. 2003 13:01 <-- editieren / zitieren --> Unities abgeben:
|
mdaemon Mitglied
Beiträge: 12 Registriert: 11.11.2004
|
erstellt am: 11. Nov. 2004 21:00 <-- editieren / zitieren --> Unities abgeben: Nur für Walter Zettlitzer
Hallo, danke für den Tip. Ich bekomme aber diese Fehlermeldung: Befehl: txtimp ; Fehler: Fehlerhafter Argumenttyp: stringp nil obwohl ich 1:1 rüberkopiert habe. Bin aber völlig blind auf dem Thema, aber die Koordinaten habe ich schon geschafft. Brauche nur mehr den Text, dann bin ichs. LG Martin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Walter Zettlitzer Mitglied Dipl.-Ing (FH)
Beiträge: 228 Registriert: 25.07.2002 WIN 2000, WINXP, ACAD 2002, ACAD 2004, Appl. ProStahl 3D
|
erstellt am: 12. Nov. 2004 09:42 <-- editieren / zitieren --> Unities abgeben:
|
RiAgAp Mitglied
Beiträge: 9 Registriert: 13.03.2003
|
erstellt am: 11. Jan. 2005 18:59 <-- editieren / zitieren --> Unities abgeben: Nur für Walter Zettlitzer
|
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 12. Jan. 2005 09:50 <-- editieren / zitieren --> Unities abgeben: Nur für Walter Zettlitzer
|
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 12. Jan. 2005 09:57 <-- editieren / zitieren --> Unities abgeben: Nur für Walter Zettlitzer
|