| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Nach LISP-Durchlauf ACAD beenden (861 / mal gelesen)
|
Mixtur244 Mitglied Orgelbauer
Beiträge: 14 Registriert: 13.07.2021 ACAD2022
|
erstellt am: 13. Jul. 2021 10:56 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen! Bin absoluter LISP-Anfänger und stehe vor einem Rätsel: Aus Beiträgen hier im Forum (Dank an alle Uploader!) habe ich beiliegende LISP-Routine gebastelt. Sie renderd automatische alle definierten Ansichten einer DWG und speichert sie ins Quellverzeichnis. Der Teil über den ==== tut genau das. Der Teil darunter soll DANACH die Datei ohne zu speichern verlassen und ACAD schließen. Das tut er auch, aber nicht DANACH, sondern unmittelbar. Ich suche also nach so einer Art Wenn-Dann Schleife, damit der untere Teil erst abgearbeitet wird, wenn der obere mit allen Ansichten fertig ist. 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: 13. Jul. 2021 11:17 <-- editieren / zitieren --> Unities abgeben: Nur für Mixtur244
Willkommen hier im Forum. Im richtigen Forum bist du ja schon mal gelandet. .. Dann bau doch alle Anweisungen aus dem 2.Progrämmchen in das Erste ein und das Problem mit dem Warten auf das Ende der ersten Funktion ist erledigt. das close muss dann als Letztes rein. Dann könnte es gehen ------------------ Gruß CADwiesel Besucht uns im CHAT
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 13. Jul. 2021 11:24 <-- editieren / zitieren --> Unities abgeben: Nur für Mixtur244
ohne Erklärungen lösche alles ab(inkl.) der Zeile "================" Dann packe vor die letzte schließende Klammer von c:b_render folgende Zeile: (if (= (getvar "dbmod") 0) (command "_.QUIT") (command "_.QUIT" "_y")) Wenn es jetzt die einzige offene Datei war, dann sollte AutoCAD schließen.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
spider_dd Mitglied
Beiträge: 1144 Registriert: 27.11.2003 Win 10Pro Intel(R) Core(TM) i7-7700 NVIDIA Quadro P1000 ACAD, Civil-3D 2018
|
erstellt am: 13. Jul. 2021 11:28 <-- editieren / zitieren --> Unities abgeben: Nur für Mixtur244
Hallo Mixtur, momentan definierts Du eine Funktion raus, die aber nie aufgerufen wird. Dafür steht Deine letzte Zeile (command "_quit") außerhalb aller Funktionen und wird daher beim laden sofort ausgeführt, denke ich mal (jetzt nicht getestet). Alles weitere ist ja schon gesagt. Gruß Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Mixtur244 Mitglied Orgelbauer
Beiträge: 14 Registriert: 13.07.2021 ACAD2022
|
erstellt am: 13. Jul. 2021 11:52 <-- editieren / zitieren --> Unities abgeben:
|
Mixtur244 Mitglied Orgelbauer
Beiträge: 14 Registriert: 13.07.2021 ACAD2022
|
erstellt am: 06. Aug. 2021 10:54 <-- editieren / zitieren --> Unities abgeben:
Nachdem die Routine jetzt so wunderbar läuft, kommen die weiteren Wünsche. Im ersten Teil wird mit einigen Buchstaben das Rendern im Renderfenster, die Rendervoreinstellung und die Bildauflösung festgelegt. Dabie steht das "m" in Zeile 25 für die ACAD-eigenen Voreinstellung "medium". Dabei wird die Anzahl der Renderebenen auf 5 festgelegt und die Rendegenauigkeit auf "mittel". Ich würde nun aber gerne 10 Ebenen rendern, da das die Qualität doch duetlich erhöht und die Zeit ja keine Rolle mehr spielt. Nun kann ich aber eine neue Voreinstellung nur durch Kopieren und Verändern einer bestehenden erzeugen. Und ich weiß nicht, wie ich diese dann im Script aufrufen kann. Hat jemand eine Idee? Oder kann ich die Ebenenanzahl auch dezidiert im Script angeben? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 06. Aug. 2021 11:42 <-- editieren / zitieren --> Unities abgeben: Nur für Mixtur244
|
Mixtur244 Mitglied Orgelbauer
Beiträge: 14 Registriert: 13.07.2021 ACAD2022
|
erstellt am: 06. Aug. 2021 13:37 <-- editieren / zitieren --> Unities abgeben:
Aus welchem Grund auch immer - "hoch" erzeugt ein stark pixeliges Bild mit extremem Rauschen. Vielleicht wird das Ergebnis jenseits von 10 Renderebenen sensationell. Aber bis dahin ist das Ergebnis nicht vorzeigbar. Im Übrigen habe ich das Problem gelöst. Der Trick besteht darin, dass die Reihenfolge der Abfragen sich bei benutzerdefinierter Vorlage ändert und daher dann auch die Abfolge der Antworten in der Lisp-Routine angepasst werden muss. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Mixtur244 Mitglied Orgelbauer
Beiträge: 14 Registriert: 13.07.2021 ACAD2022
|
erstellt am: 01. Sep. 2021 13:25 <-- editieren / zitieren --> Unities abgeben:
Nun benötige ich doch noch einmal Hilfe. Da die Batch-Verarbeitung mit mittlerer Qualität läuft, wollte ich mir eine zweite Routine bereitlegen, um eine vorgewählte Ansicht mit hoher Qualität zu rendern, zu speichern und ACAD zu schließen. Ich habe dafür einen Teil aus der Batch-Routine verwendet: (command ".render" "b" "mittel - 2 kopieren" "r" "1000" "707" "j" (strcat cur_dir cur_name ".jpeg") ) ((command "_.QUIT") (command "_.QUIT" "_y") ) Leider funktioniert es nicht. Die Frage nach Pfad und Name wird mit " ; Fehler: Fehlerhafter Argumenttyp: stringp nil" beantwortet. Was stimmt hier nicht? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 01. Sep. 2021 13:38 <-- editieren / zitieren --> Unities abgeben: Nur für Mixtur244
Ich vermute dein AutoCAD hat keine Ahnung was du mit cur_dir cur_name meinst, an das Symbol ist kein Wert gebunden und somit auch kein String - der erwartet wird von STRCAT. wenn man einfach mal schraibt (strcat habeichmirausgedacht) so macht das auch keinen Sinn, aber in dem Fall liegt es dem Betrachter oft auf der Hand, (strcat cur_dir cur_name ".jpeg") ist nichts anderes solange cur_dir cur_name keinen Wert hat. Du mußt also cur_dir cur_name zunächst mal füttern damit AutoCAD danach cur_dir cur_name und ".jpeg" zusammenfügen kann. (strcat "A" "B" "C") oder auch (setq cur_dir cur_name "aha") (strcat cur_dir cur_name ".jpeg") Da dir ja bereits ein funktionierender Ablauf vorliegt wirst du schnell das Problem lösen.
Werte an ein Symbol binden geht zB mit SETQ, also wirst du soetwas in deinem funktionierendem Code finden sollen
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Mixtur244 Mitglied Orgelbauer
Beiträge: 14 Registriert: 13.07.2021 ACAD2022
|
erstellt am: 01. Sep. 2021 14:29 <-- editieren / zitieren --> Unities abgeben:
Ohne SInn und Verstand, das trifft es schon ganz gut! Tatsächlich habe ich von Lisp keine Ahnung. Aber nachdem ich auch die entsprechenden setvar-Zeilen kopiert habe, geht es nun. Danke für den Hinweis, dass cur_dir und cur_name keine Lisp-ELemente sondern Variablen sind! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 01. Sep. 2021 14:36 <-- editieren / zitieren --> Unities abgeben: Nur für Mixtur244
|
Mixtur244 Mitglied Orgelbauer
Beiträge: 14 Registriert: 13.07.2021 ACAD2022
|
erstellt am: 01. Sep. 2021 14:54 <-- editieren / zitieren --> Unities abgeben:
Ja, so geht's: (defun c:e_render (/ viewlist) (setq cur_dir (getvar "dwgprefix") ) (setq cur_name (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4) ) ) (command ".render" "b" "mittel - 2 kopieren" "r" "4000" "2828" "j" (strcat cur_dir cur_name ".jpeg") ) (princ) ((command "_.QUIT") (command "_.QUIT" "_y") ) ) Bleibt nur eine Frage: Laut ACAD Hilfe kann man in Datei mit bis zu 12000x12000 Pixel rendern. Jeder Wert über 4096 erzeugt aber einen Fehler. Warum? Wie kann ich größere Auflösungen erzeugen? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |