---

graphik.vbs.txt

Hallo,

wir haben aktuell ein Performance-Problem bei neueren Notebooks und haben beschlossen, bei diesen Geräten ein paar Grafikeinstellungen in Modeling und 3D-Access umzustellen, damit die Leistung akzeptabel ist.

Dazu möchte ich in der sd_customize abfragen, welche Grafikkarte verwendet wird:

Code:

---

;; Funktion zum ermitteln der Grafikkarte
(defun get-graphics-string()
    (let ((s (open (format nil "| cscript /nologo \"~a\\..\\startup\\graphik.vbs\""
        (oli::sd-sys-getenv "SDCORPCUSTOMIZEDIR")) :direction :input)))
        (read-line s nil)
    )
)

;; Grafikvorgaben bei bestimmten Grafikkarten umstellen
(if (or (oli::sd-string= "Quadro NVS 130" (get-graphics-string)) (oli::sd-string= "GeForce Go 6600" (get-graphics-string)))
    (progn
        (set_dynamic_redraw_mode :shaded)
        (set_dynamic_redraw_mode :clip-no-caps)
        (set_displaylist_mode :On)
    )
)

---

Eigenartigerweise findet der Code nie eine Übereinstimmung mit den Vergleichs-Strings.
Grund: Der Rückgabewert des Scripts hat kein abschließendes Anführungszeichen (").
    Ausgabe von (pprint (get-graphics-string)) z.B.: "Quadro NVS 130

Was hab ich bloß da wieder falsch gemacht?

------------------
Gruß aus dem Salzkammergut

Thomas Hollerweger

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

---

Meine Vermutung: Das Skript produziert eine Ausgabe mit DOS-Zeilenenden. Hier steht, wie man die los wird.

Ansonsten ein Vorschlag fuer eine alternative und robustere Vorgehensweise: Statt die Einstellungen am Namen der Grafikkarte festzumachen, wuerde ich beim ersten Hochfahren kurz die Performance testen und dann anhand der gemessenen Leistung mithilfe von Vergleichswerten die passenden Einstellungen machen. Auf diese Weise musst Du dem Code nicht jedesmal hinterherrennen, nur weil irgendjemand in der Abteilung einen neuen Laptop bekommen hat oder seine alte Grafikkarte die Graetsche gemacht hat.

Claus

------------------
CoCreate OneSpace Modeling FAQ: http://www.clausbrod.de/OneSpaceModeling/

[Diese Nachricht wurde von clausb am 23. Jan. 2008 editiert.]

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

---

tip A: (sd-string-match-pattern-p ... ) existiert
(sd-string-match-pattern-p "*Quadro*" "Audi A4 Quadro, tiefergelegt")  ;;  so in etwa halt 

tip B: (string-trim "abc" "labcabcabc")  existiert auch um die \" und anderes los zu bekommen

------------------
Seamonkey Firefox Thunderbird  Seamonkey auf deutsch

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

---

Juhu, es funktioniert!

@ Claus:
Ich habe meinen Code ursprünglich von deinem Makro übernommen aber nicht begriffen, was da passiert. Daher habe ich die Zeile mit dem read-line verstümmelt übernommen.
Kannst du mir im einzelnen erklären, was in deinem Code passiert?

@ Wolfgang:
string-trim ist meiner Meinung nach die leichter lesbare Variante, also werd ich diese Funktion nehmen (tut mitr leid, Claus  ). Es soll ja auch in Zukunft jemand begreifen, was ich damit bezwecken wollte.

Danke euch beiden! Ich gebe eine Thread-Runde Us aus!

Nochmal @ Claus:
Wie kann man beim Start der Applikation auf einfache Weise die Performance ermitteln, ohne ein Modell zu laden, ...? Oder meinst du alles manuell ermitteln und einstellen?
Das hätte den entscheidenden Nachteil, dass es erstens sehr viel Arbeit ist (bei 100 3D-Lizenzen) und außerdem kann dann die sd_customize nicht überall gleich sein.

------------------
Gruß aus dem Salzkammergut

Thomas Hollerweger

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

---

Zitat:

---

Original erstellt von holt:
Ich habe meinen Code ursprünglich von deinem Makro übernommen aber nicht begriffen, was da passiert. Daher habe ich die Zeile mit dem read-line verstümmelt übernommen.
Kannst du mir im einzelnen erklären, was in deinem Code passiert?

---

Zeile fuer Zeile wird in einer Schleife eingelesen (kannst Du Dir in Deinem Fall sparen), in jeder wird mit

Code:

---

(remove #\Return l)

---

das unpassende Zeilenende entfernt. So kompliziert?

Zitat:

---

Wie kann man beim Start der Applikation auf einfache Weise die Performance ermitteln, ohne ein Modell zu laden, ...?

---

Ich wuerde ein Modell laden und das dann automatisch ausmessen. Das aber nur einmal pro Workstation. Wenn Ihr Eure Anpassungen zentral verwaltet, liesse sich das gut organisieren.

------------------
CoCreate OneSpace Modeling FAQ: http://www.clausbrod.de/OneSpaceModeling/

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

---

Zitat:

---

Original erstellt von clausb:
So kompliziert?

---

Für mich schon!
Wie kann z.b. remove Strings verarbeiten, wenn es eine Liste erwartet?
Daher bekomme ich bei folgendem Codefragment immer die Fehlermeldung "Quadro FX 1500[]" is not of type LIST. (wobei [] ein Quadrat sein soll)

Code:

---

(setf l (read-line s nil))
(remove #\Return l) 
(close s)

---

------------------
Gruß aus dem Salzkammergut

Thomas Hollerweger

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

---

(remove) erwartet keine Liste, sondern eine "sequence" - siehe Doku unter http://www.lisp.org/HyperSpec/Body/fun_removecm__elete-if-not.html.  Strings gelten als "sequences".

Habe den Testfall gerade in v14.50 und v15 ausprobiert. Keine Fehlermeldungen.

Claus

------------------
CoCreate OneSpace Modeling FAQ: http://www.clausbrod.de/OneSpaceModeling/

[Diese Nachricht wurde von clausb am 24. Jan. 2008 editiert.]

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

---

graka_abfragen.txt

OK, jetzt kommt bei mir auch keine Fehlermeldung, ich hatte einen Fehler beim Aufruf der Funktion.

Aber dem String fehlt immer noch das abschließende ".
Anbei der entsprechende Ausschnitt aus der sd_customize.

Dein obiger Link funktioniert übrigens nicht.

------------------
Gruß aus dem Salzkammergut

Thomas Hollerweger

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

---

Der Link ist jetzt korrigiert.

Der String veraendert sich nicht, weil, nun ja, Du ihn nicht veraenderst 
(remove) veraendert naemlich nicht die Eingabe, sondern liefert einen veraenderten String als Resultat. Das aber hast Du nirgends verwendet.

Leicht vereinfachter und ungetesteter Codevorschlag:

Code:

---

(defun get-graphics-string()
  (with-open-file
    (s "| cscript /nologo foo/bla/graphik.vbs" :direction :input)
    (remove #\Return (read-line s nil))))

---

------------------
CoCreate OneSpace Modeling FAQ: http://www.clausbrod.de/OneSpaceModeling/

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

---

Zitat:

---

Original erstellt von holt:
Aber dem String fehlt immer noch das abschließende ".

---

Kommando zurück!

Ich muss den input-stream erst schließen und dann das remove ausführen, dann gehts!

Also:

Code:

---

(setf l (read-line s nil))
(close s)
(remove #\Return l) 

---

------------------
Gruß aus dem Salzkammergut

Thomas Hollerweger

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

---

Claus war wieder einmal schneller.
Außerdem ist meine Aussage oben nicht korrekt.
Durch die Änderung der Reihenfolge habe ich nur bewirkt, dass das Ergebnis von (remove) gleich als Rückgabewert der Funktion verwendet wird. Vorher habe ich nach dem (close) nochmal l als Rückgabewert übergeben.
Das ist mir erst mit deiner Antwort klar geworden.

Danke!
Nochmal 10 Us!

------------------
Gruß aus dem Salzkammergut

Thomas Hollerweger

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