---

Hallo, liebe Gemeinde...

ich habe die am_Plot_PrinterStyle_blabla.lsp aus den DefaultSettings auf dem Server liegen und wird auch von da geladen und das soll auch so bleiben. Nun ist es aber bei uns so, dass die gleichen Drucker anders angesprochen werden wollen (bedingt durch verschiedene Win-Betriebssysteme). Daher wollte ich eine Abfrage bauen, die per Computernamen den richtigen Namen auswählt, das ist mein stand:

Code:

---

(oli:sd-set-setting-values
  (if (= (getenv "computername") "Workstation-05")
(progn
  :application "Annotation"
  :style-path "Annotation/Plot/PrinterStyle"
  :style :PLC6_A3
  :title "PLC6_A3"
  :visible-if :ASP
  :values '("ToFile" LISP::NIL
            "Destination" ""
            "PaperSize" :A3
            "NumberCopies" 1
            "Orientation" :LANDSCAPE
            "Properties" ( :LABEL " "
:TYPE
:MSWINDOW_GDI_PRINTER
:VALUE
                                LISP::NIL)
            "Name" :NRG_2705/2738/2712_PCL_6
            "Type" :MSWINDOW_GDI_PRINTER
            )
) ;;progn
(progn
  :application "Annotation"
  :style-path "Annotation/Plot/PrinterStyle"
  :style :PLC6_A3
  :title "PLC6_A3"
  :visible-if :ASP
  :values '("ToFile" LISP::NIL
            "Destination" ""
            "PaperSize" :A3
            "NumberCopies" 1
            "Orientation" :LANDSCAPE
            "Properties" ( :LABEL " "
:TYPE
:MSWINDOW_GDI_PRINTER
:VALUE
                                LISP::NIL)
            "Name" :\\\\server\\NRG_2705/2738/2712_PCL_6
            "Type" :MSWINDOW_GDI_PRINTER
            )
) ;;progn
  ) ;;if
)

---

ich habe schon mehrere Positionen für das "if" getestet, aber ich kriegs nicht hin. Beim Starten gibts immer ne Fehlermeldung in der Lisp.
Ist das in diesen Dateien eigentlich möglich eine solche Abfrage einzubauen? Wenn ja, wie?

LG
KJ

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

---

...Nachtrag...

Ich hab mir eben mal die Konsole angeschaut, auf nem anderen Rechner (bei mir macht der die nicht auf, warum nicht?) da steht drin, dass er die Funktion GETENV nicht kennt, da hab ich doch sofort das use-package in Verdacht, den den Befehl ansich sollte er doch schon kennen, oder?

KJ.

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

---

Laut IKit:

SD-SYS-GETENV  [function]

Code:

---

(sd-sys-getenv shell-var-name)

---

Description:
Gets the value of the specified shell environment variable from the operating system shell that Creo Elements/Direct Modeling was started from.
Parameters:
shell-var-name {STRING} - the name of the shell variable
Return value:
value {STRING} - the value of the shell variable
Example:

Code:

---

;; Get the name of the user's home directory

(setq home-directory (sd-sys-getenv "HOME"))

---

Grüße,
Frank

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