---

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

---

warum ein Lisp?
Eine Datei kann man als Text mit RTEXT aus den Expresstools einfügen.

------------------

gruß
Stephan

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

---

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

---

lies mal hier
dürfte was bei sein

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

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

---

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

---

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

---

Super, das isses. So kann ich meine Übersichtspläne schnell generieren, was mir bei einer komplexen und großen Geometrie viel Zeit spart :-)

Vielen Dank,

Walter

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

---

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

---

Dein Textfile muss vier Spalten haben, mit Leerzeichen getrennt.
Weiterhin sollte unter Format>Textstil die Höhe auf 0.0 gesetzt sein.

Walter

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

---

Ein Tool um Koordinaten aus einer Textdatei zu importieren findest Du bei www.aa-software.de

Gruß

Ricardo

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

---

Ladies und Gentleman,
der nächste Werbetreibende hat sich eingefunden :-)...
Zeit für's "TB-O-Meter™":

Inhalt>-------------------|-<Werbung

------------------
Ciao,
Marc

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

---

fehlt noch der Link zu den Auktionen... Wann kommen die ?

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