---

Hallo Zusammen,
In der ccmstart.bat findet man folgendes

Code:

---

  if %PROCESSOR_ARCHITECTURE%==x86 goto Win32bit
  if %PROCESSOR_ARCHITECTURE%==AMD64 goto Win64bit
  :Win32bit
    REM -- auf dem aktuellen Rechner ist ein Windows32bit installiert
    goto EndOSVersion
  :Win64bit
    REM -- auf dem aktuellen Rechner ist ein Windows64bit installiert
MODIFY_DEFAULT_SETTING  ath "Annotation/Plot/PrinterStyle/Name"  arent_style :LJ_8000_A3Q
:A_RANGE
:HP_LASERJET_8000N_SERIES_PCL
MODIFY_DEFAULT_SETTING  ath "Annotation/Plot/PrinterStyle/Name"  arent_style :LJ_8000_A4H
:A_RANGE
:HP_LASERJET_8000N_SERIES_PCL
MODIFY_DEFAULT_SETTING  ath "Annotation/Plot/PrinterStyle/Name"  arent_style :LJ_8000_A4Q
:A_RANGE
:HP_LASERJET_8000N_SERIES_PCL
  :EndOSVersion

---

Wie kann ich so etwas in ein lsp einsetzen?

Der Ablauf sollten dann so sein:
If 32Bit goto END
If 64Bit goto Action
Action: (MODIFY_DEFAULT_SETTING  ath "Annotation/Plot/PrinterStyle/Name"  arent_style  :LJ_8000_A3Q  :A_RANGE  :HP_LASERJET_8000N_SERIES_PCL)
END

Danke für Eure tolle Hilfe!

------------------
Gruss vom Thunersee, Joy
-- Wer Rechtschreibfehler findet, darf sie behalten. --

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

---

Ansatzpunkte:

• sd-inq-platform
  
• http://www.lispworks.com/documentation/HyperSpec/Body/v_featur.htm
  

------------------
CoCreate Modeling FAQ: http://www.clausbrod.de/CoCreateModeling/

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

---

Code:

---

(setf mycpu (sd-sys-getenv "PROCESSOR_ARCHITECTURE"))
(when (sd-string= mycpu "AMD64")
(machwas)
)

---

------------------
meine LISP-Makros sind auf osd.cad.de
Disclaimer
Grüße aus Wien

Walter
DC4 Technisches Büro GmbH

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