| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Zeitpunkt der Befehlszeilenausgabe (616 mal gelesen)
|
SebZ Mitglied Bauingenieur Tiefbau
Beiträge: 189 Registriert: 17.10.2004 AutoCAD 2010 Civil 3D DACH WinXP Professional 2002 SP3 MS Office 2007 Intel Core2Duo 2.80 GHz, 3.00 GB RAM
|
erstellt am: 31. Mai. 2007 10:23 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich bin anscheinend mal wieder betriebsblind: hier habe ich folgenden Kerncode extrahiert. Ziel ist, nachdem ich ein Element ausgewählt habe, SOFORT seinen Layer in der Befehlszeile ausgeben zu lassen. Code:
(defun c:lct ( / element) ; Test der Layernamenausgabe (setq element (entsel "\nObjekt wählen: ")) (princ "\n>>> ") ; diese Zeile wird nicht sofort ausgegeben (princ (cdr (assoc 8 (entget (car element))))) ; diese auch nicht (princ) ; *** erst hier erfolgt die Textausgabe (progn) )
Leider erfolgt die Druckausgabe tatsächlich erst dann, wenn ich den leeren (pronc)-Befehl erreicht habe (mit *** markiert). Eigentlich muss doch die Ausgabe unmittelbar bei Abarbeitung einer jeden einzelnen Zeile erfolgen. Seltsam - hat jemand eine Erklärung?
------------------ Gruß SebZ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3329 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 31. Mai. 2007 11:00 <-- editieren / zitieren --> Unities abgeben: Nur für SebZ
Hi, ein schönes Beispiel, wie etwas zurückgegeben werden soll, was sowieso zurückgegeben wird. Bestell' schon mal Axels Buch. Im Grunde genommen reicht diese Zeile: (cdr (assoc 8 (entget (car (entsel "\nObjekt wählen: "))))) Kein PRINC, kein PRONC, zurückgegeben wird trotzdem. Gruß CADchup ------------------ CADmaro.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
SebZ Mitglied Bauingenieur Tiefbau
Beiträge: 189 Registriert: 17.10.2004 AutoCAD 2010 Civil 3D DACH WinXP Professional 2002 SP3 MS Office 2007 Intel Core2Duo 2.80 GHz, 3.00 GB RAM
|
erstellt am: 31. Mai. 2007 11:14 <-- editieren / zitieren --> Unities abgeben:
wie gesagt, handelt es sich um einen Code-Ausschnitt. CMDECHO steht auf 0, und ich will die Info nur eben ausgeben. Natürlich kann ich CMDECHO triggern, aber ich frage mich, warum (princ) nichts ausgibt, obwohl die Zeile gerade abgearbeitet wird. Im richtigen Code kommt nach dem (princ)-Befehl noch ein Dialogfenster, und seltsamerweise wird dieses geöffnet, bevor die Textausgabe angezeigt wird. Statt des Dialogfensters kann ich auch irgendwas anderes machen lassen, die seltsame Reihenfolge bleibt. Bisher habe ich sowas noch nicht beobachtet. ------------------ Gruß SebZ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1734 Registriert: 11.10.2004 Window 10 ACAD 2021 CIVIL 2021 BricsCAD V14-V22 Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz 16.0GB RAM NVIDIA GeForce GTX 1050<P>
|
erstellt am: 31. Mai. 2007 11:33 <-- editieren / zitieren --> Unities abgeben: Nur für SebZ
Hallo SebZ, vielleicht solltest Du den String in einer princ-Anweisung ausgeben, und dann noch einen Zeilenumbruch hinten dran hängen (ich habe es aber nicht ausprobiert) (princ (strcat "\n>>> "(cdr (assoc 8 (entget (car element))))"\n")) ------------------ viele Grüße Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
SebZ Mitglied Bauingenieur Tiefbau
Beiträge: 189 Registriert: 17.10.2004 AutoCAD 2010 Civil 3D DACH WinXP Professional 2002 SP3 MS Office 2007 Intel Core2Duo 2.80 GHz, 3.00 GB RAM
|
erstellt am: 31. Mai. 2007 12:08 <-- editieren / zitieren --> Unities abgeben:
gute Idee, damit funktionierts. Mir ist bloß absolut nicht klar, warum der Zeilenvorschub nötig ist. Sonst schreib ich den doch auch nicht ans Ende jeder Textzeilenausgabe. (??) ------------------ Gruß SebZ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |