| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | Digitale Engineering-Prozesse bei Pergande mit BIM-, CAD- und PDM-Lösungen von Autodesk, ein Anwenderbericht
|
|
Autor
|
Thema: mtext lisp (618 mal gelesen)
|
fca_mi2
Mitglied
Bauingenieur
   Beiträge: 508
Registriert: 10.01.2003 WIN10. ACAD2018
|
erstellt am: 15. Jul. 2003 07:53  <-- editieren / zitieren -->   Unities abgeben:          
|
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 
|
cadffm
Moderator
良い精神
    
Beiträge: 22275
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: 1989
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
|
fca_mi2
Mitglied
Bauingenieur
Beiträge: 508
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: 4187
Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 15. Jul. 2003 09:51 <-- editieren / zitieren --> Unities abgeben: Nur für fca_mi2
|
fca_mi2
Mitglied
Bauingenieur
Beiträge: 508
Registriert: 10.01.2003 WIN10. ACAD2018
|
erstellt am: 15. Jul. 2003 09:56 <-- editieren / zitieren --> Unities abgeben:
|
Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH
Beiträge: 4187
Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 15. Jul. 2003 10:19 <-- editieren / zitieren --> Unities abgeben: Nur für fca_mi2
|
Foren auf CAD.de (alle Foren)
| 
