CAD Fórum : Rozpoznani OS...

Rozpoznani OS... : Dekuji pekne! JASponza

Tue, 11 Oct 2011 12:06:14 +0000

Autor: splonk
P�edm�t: 13695
Zasl�no: 11.��j.2011 v 12:06

Dekuji pekne!

JASponza

Rozpoznani OS... : Ano, bude to podobné: (defun...

Tue, 11 Oct 2011 11:58:23 +0000

Autor: Vladim�r Michl
P�edm�t: 13695
Zasl�no: 11.��j.2011 v 11:58

Ano, bude to podobn�:

(defun c:nxti ( / )
 (if (vl-string-search "(x64)" (getvar "platform"))
      (progn (startapp "nXtImageEditor64.exe")
      (princ "\n   ** nXtImageEditor64 was started **"))
      (progn (startapp "nXtImageEditor.exe")
      (princ "\n   ** nXtImageEditor was started **"))
 );if
 (princ)
)

Rozpoznani OS... : Dobry den Dekuji na zaslanem....

Tue, 11 Oct 2011 11:40:35 +0000

Autor: splonk
P�edm�t: 13695
Zasl�no: 11.��j.2011 v 11:40

Dobry den

Dekuji na zaslanem. Sice je to prilis na moje "programatorske" schopnosti... Vyrobil jsem nasledujici:

(defun c:nxti(/ PLATF)
  (setq PLATF (getvar "platform"))
  (if (= PLATF "Microsoft Windows NT Version 6.1 (x64)")
      (progn (startapp "nXtImageEditor64.exe")
      (princ "\n   ** nXtImageEditor64 was started **"))
      (progn (startapp "nXtImageEditor.exe")
      (princ "\n   ** nXtImageEditor was started **"))
  )
  (princ)
)

Vim, ze skusenejsi kolegove asi "placou" nad timto vyrobkem (ma to asi daleko k tomu aby to slo univerzalne pouzivat). Mne to funguje a (zatim) resi problem duplicitnich Workspaces.

Umel by mi nekdo napsat to same ale elegantneji (jako podminka k rozpoznani jakou App spustit, v tomto pripade asi staci vedet zda je system x86 nebo x64 - na tom zda je to XP, Vista nebo Win7 pochopitelne nezalezi).

Dekuji

JASponza

Rozpoznani OS... : Lepší je to předem otestovat -...

Mon, 10 Oct 2011 14:57:20 +0000

Autor: Vladim�r Michl
P�edm�t: 13695
Zasl�no: 10.��j.2011 v 14:57

Lep�� je to p�edem otestovat - bu� verzi opera�n�ho syst�mu nebo 32/64-bitovou verzi AutoCADu (co� nemus� b�t v�dy stejn�). Tedy nap�.:

(vl-string-search "(x64)" (getvar "platform"))

Predik�t 64-bitov�ho AutoCADu:

(defun acad64bit-p ()
  (vl-load-com)
  (>
    (strlen
      (vl-prin1-to-string
        (vlax-get-acad-object)
      )
    )
    40
  )
)

Rozpoznani OS... : Dobry den Potreboval bych do...

Mon, 10 Oct 2011 14:08:39 +0000

Autor: splonk
P�edm�t: 13695
Zasl�no: 10.��j.2011 v 14:08

Dobry den

Potreboval bych do LISPu dostat "prepinac" ktery podle verze OS spusti aplikaci (nastavbu AutoCADu) budto pro napr. XP x32 nebo Win7 x64... Proste neco ve stylu:

"Pokud je OS x64 (nebo neco jako - pokud existuje *\Program Files (x86)\) tak spust APP x64 jinak spust APP x32"

Nize uvadim konkretni priklady tak, jak je pouzivam nyni:

=========================

x86

=========================

(defun c:nxtIMG ()
(startapp "ImageEditor.exe")
(princ)
)

=========================

x64

=========================

(defun c:nxtIMG64 ()
(startapp "ImageEditor64.exe")
(princ)
)

Urcite uznate ze je toto dosti "neprakticke"... dva ruzne prikazi na "totez" a kdyz beru v uvahu ze mi se ikonky v Pracovnim prostoru ACADu odkazuji na tento lispik, tak my logicku vypliva ze musim mit dva WorkSpaces pro ruzne OS

Dalsi dotaz zni, co se stane kdyz, vyse uvedene spojim nasledovne:

=========================

(defun c:nxtIMG_Universal ()

(startapp "ImageEditor.exe")
(startapp "ImageEditor64.exe")
(princ)
)

=========================

Vyzkousel jsem to a funguje, akorat nevim jak moc velka chyba je kdyz ACAD nenajde jednu ze dvou aplikaci? Zadnou chybu to sice nehlasi ale...?

Moc dekuji

JASponza