mtext lisp (Autodesk/Rund um AutoCAD)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: mtext lisp (576 mal gelesen)
fca_mi2 Mitglied Bauingenieur Beiträge: 505 Registriert: 10.01.2003 WIN10. ACAD2018	erstellt am: 15. Jul. 2003 07:53 <-- editieren / zitieren --> Unities abgeben: hallo, ich versuche gerade eine textdatei in lisp einzulesen um diese dann als mtext einzufügen. einlesen klappt, einfügen nicht. kann jemand helfen ? mfg Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Ulf Böger Mitglied Beiträge: 281 Registriert: 18.09.2002 IBM R50p 1.7GHz 1GB RAM ATI Mobility Fire GL T2 128 MB Win2000 SP3 AutoCAD Mechanical 2004 DX Inventor 8 SP1 ADT 2004 PartSolutions 8	erstellt am: 15. Jul. 2003 08:22 <-- editieren / zitieren --> Unities abgeben: Nur für fca_mi2 Zeig mal deinen Quelltext! P.S. Eigentlich gehört das Thema eher in das LISP-Forum, soll aber keine Kritik sein, nur ein Hinweis! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
cadffm Moderator 良い精神 Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google	erstellt am: 15. Jul. 2003 08:27 <-- editieren / zitieren --> Unities abgeben: Nur für fca_mi2 Was heißt "einlesen klapp" - Text in Var.speichern oder in Zw.-Ablage ??? Wo/Wie ist er denn eingelesen? Ist es eine Zeile (unformatiert) oder ist es viel TExt (formatiert - Zeilenumbruch etc.) ? ...dann kann man helfen... ------------------ Gruß Sebastian , Ffm Der Feind des Guten ist das Bessere. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADwiesel Moderator CAD4FM UG Beiträge: 1968 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich	erstellt am: 15. Jul. 2003 08:30 <-- editieren / zitieren --> Unities abgeben: Nur für fca_mi2 (setq as(open "C:/testdateie.log" "r") wtxt "") (while (/= (setq txt (read-line as))"") (setq wtxt(strcat wtxt txt "\n")) ) (close as) (command "_-mtext" pause pause wtxt "") ------------------ Gruß CADwiesel bin auch im Urlaub: 29.07 - 27.08 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Ulf Böger Mitglied Beiträge: 281 Registriert: 18.09.2002 IBM R50p 1.7GHz 1GB RAM ATI Mobility Fire GL T2 128 MB Win2000 SP3 AutoCAD Mechanical 2004 DX Inventor 8 SP1 ADT 2004 PartSolutions 8	erstellt am: 15. Jul. 2003 08:33 <-- editieren / zitieren --> Unities abgeben: Nur für fca_mi2 Flink wie ein WIESEL! Ich denke somit ist das Problem gelöst, oder? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
fca_mi2 Mitglied Bauingenieur Beiträge: 505 Registriert: 10.01.2003 WIN10. ACAD2018	erstellt am: 15. Jul. 2003 09:04 <-- editieren / zitieren --> Unities abgeben: noch nicht so ganz, so sieht mein code aus : ;******* tabelle einfügen *********** (setq textliste "") (if (= (cdr (assoc 80 fc_sv)) "1") (progn (setq dateiname (strcat (getvar "dwgprefix") plannummer "_Positionsliste.txt")) (setq f (open dateiname "r")) (repeat 15 (princ "\n") (princ (read-line f)) );repeat (setq textelement (read-line f)) (while textelement (setq textliste (strcat textliste textelement "\\P")) (princ) (setq textelement (read-line f)) (princ) );while (command "mtext" pause pause textliste "") (close f) (princ) );progn );if es wird komischerweise nicht die ganze textdatei eingelesen. gibt es eine möglichkeit die zweite ecke automatisch, also an den text angepasst, festzulegen ? ------------------ - Eine Antwort auf diesen Beitrag verfassen (mit Zitat*/Zitat* des Beitrags) IP
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH Beiträge: 4171 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools	erstellt am: 15. Jul. 2003 09:51 <-- editieren / zitieren --> Unities abgeben: Nur für fca_mi2 Hallo, willst du eine Tabelle einfügen? Ich würde dann je Zelle ein Textelement nehmen - keinen MTEXT. Daran schon mal gedacht? Bei Fragen ... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Irgendwann muß man schlafen, deshalb: +!+!+Urlaub vom 01.08.-30.08.2003+!+!+ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
fca_mi2 Mitglied Bauingenieur Beiträge: 505 Registriert: 10.01.2003 WIN10. ACAD2018	erstellt am: 15. Jul. 2003 09:56 <-- editieren / zitieren --> Unities abgeben: so könnte man es auch machen, hat aber den nachteil, dass ich den text nicht als ganzes verschieben kann ------------------ - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH Beiträge: 4171 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools	erstellt am: 15. Jul. 2003 10:19 <-- editieren / zitieren --> Unities abgeben: Nur für fca_mi2 Hallo, dann mach einen Block draus mit dem Programm, oder machst gleich einen Block mit Attributen. so wie dort beschrieben http://www.cadlon.de/Freedwnload/Tabellenfunktion.pdf Bei Fragen... Grüße Holger ------------------ Holger Brischke CADlon - Lisp over night! Irgendwann muß man schlafen, deshalb: +!+!+Urlaub vom 01.08.-30.08.2003+!+!+ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)