---

Hallo die Damen und Herren,

ich hab' mir die neue Version von Doslib heruntergeladen und festgestellt, das neben den AutoCAD-Versionsabhängigen arx'en jetzt auch 64bit Versionen notwendig sind (logisch).
Ich will mein Programm doslib-loader nun natürlich auch dahingehend aufbohren, das er automatisch erkennt wann die 64bit Version geladen werden muß. Irgendwelche Ideen wie ich mit Lisp herausfinden kann ob das Acad bzw. die Plattform auf der das Acad läuft eine 32bit oder 64bit  Version ist?

Was ich im Netz bisher fand:

Code:

---

(vl-string-search "x64" (getvar "platform"))
= 't oder nil auf z.B. "Microsoft Windows NT Version 5.1 (x86)"

---

Code:

---

(getenv "PROCESSOR_ARCHITECTURE")
= "x86"

---

Nun habe ich weder AMD's noch irgendwelche 64bit Maschinen verfügbar um das zu testen, bzw. herauszufinden was denn da auf unterschiedlichen Pattformen herauskommt. Hat sich schon mal jemand Gedanken um eine zuverlässige Feststellung: "arx 64bit oder 32bit muß geladen werden" gemacht?

------------------
Ciao,
Marc

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

---

ich hatte mir mal
(defun ACAD64BIT?(/ UTILITY)
  (vl-load-com)
  (and(>=(atof(getvar "ACADVER"))17.1)
      (setq UTILITY (vlax-get-property
                      (vla-get-activedocument(vlax-get-acad-object))
                      "Utility"
                    )
      )                   
      (vlax-method-applicable-p  UTILITY "ObjectIdString")
  )
)

rausgeschrieben , aber auch nicht getestet ..

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

HIER wurde das auch schon mal diskutiert. Ich finde den Code am Besten:

Code:

---

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

---

...wenn es Dir darum geht, in welcher Version AUTOCAD läuft.

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Kann die ganzen Sachen mal einer testen und die Rückgaben ect. posten ....

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Beide (wronzky.lsp & CADmium.lsp) laufen ohne Fehlermeldung, aber auch ohne Ausgabe.

System:
E8600
XP x64

... was sollte denn wo stehen?

@Edit: ACAD2008 (x64) fehlte noch ...

------------------
lg, der Hausmeister
_______________________________________

Ich bin nicht gestört, ich bin verhaltensoriginell.

[Diese Nachricht wurde von alterHausmeister am 06. Okt. 2009 editiert.]

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

---

Hallo Hausmeister,
es sollte auf 64-Bit- Systemen T, ansonsten NIL zurück gegeben werde.

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

also aufm 32Bit-System sollte

Befehl: (ACAD64BIT?)
nil

stehen.. beim 64Bit
Befehl: (ACAD64BIT?)
'T

bei Hennings funktion dito .. da würde mal die Ausgabe von

(vl-prin1-to-string(vlax-get-acad-object))
interessieren .....

beim 32Bit ist es sowas:
"#<VLA-OBJECT IAcadApplication 00d74d3c>"

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Tut mir Leid, daß ihr beiden es mit einem Blindfisch zutun habt.

... erst mal Cadmium ...

Regeneriert Modell.

AutoCAD Express Tools Copyright © 2002-2004 Autodesk, Inc.

AutoCAD Menü-Dienstprogramme geladen.
Befehl: BEFEHLSZEILE

Befehl: properties

Befehl: (load"c:/temp/cadmium.lsp")
ACAD64BIT

Befehl: (acad64bit?)
; Fehler: no function definition: ACAD64BIT?

Befehl:

... dann Wronzky ...

Regeneriert Modell.

AutoCAD Express Tools Copyright © 2002-2004 Autodesk, Inc.

AutoCAD Menü-Dienstprogramme geladen.
Befehl: BEFEHLSZEILE

Befehl: properties

Befehl: (load"c:/temp/wronzky.lsp")
ACAD64BIT-P

Befehl:
Befehl: (vl-prin1-to-string(vlax-get-acad-object))
; Fehler: no function definition: VLAX-GET-ACAD-OBJECT

Befehl:

... aber ...

(acad64bit-p)

liefert:  T

------------------
lg, der Hausmeister
_______________________________________

Ich bin nicht gestört, ich bin verhaltensoriginell.

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

---

thx füs testen
(vl-load-com)
hätte als erstes initialisiert werden müssen ... das ist ja nun mit Aufruf (acad64bit-p) passiert .. kannst du jetzt noch mal

(acad64bit?)

und dann auch
(vl-prin1-to-string(vlax-get-acad-object))

probieren?

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

... was auch immer das bedeutet ...

Befehl: (vl-load-com)

Befehl: (acad64bit?)
; Fehler: no function definition: ACAD64BIT?

Befehl: (acad64bit)
; Fehler: Zu wenig Argumente
Befehl:

Befehl:
Befehl: (vl-prin1-to-string(vlax-get-acad-object))
"#<VLA-OBJECT IAcadApplication 00000000012358d0>"

Befehl:

------------------
lg, der Hausmeister
_______________________________________

Ich bin nicht gestört, ich bin verhaltensoriginell.

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

---

Zitat:

---

Original erstellt von alterHausmeister:
... was auch immer das bedeutet ...

Befehl: (vl-load-com)

Befehl: (acad64bit?)
; Fehler: no function definition: ACAD64BIT?

Befehl: (acad64bit)
; Fehler: Zu wenig Argumente
Befehl:

Befehl:
Befehl: (vl-prin1-to-string(vlax-get-acad-object))
"#<VLA-OBJECT IAcadApplication 00000000012358d0>"

Befehl:

---

naja .. jetzt hast du wohl vergessen (defun acad64bit?()...) zu laden ...

aber (vl-prin1-to-string(vlax-get-acad-object))
"#<VLA-OBJECT IAcadApplication 00000000012358d0>"
ist schon ein guter Hinweis das die ObjektID jetzt ne Große Nummer ist .. schön

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Unter AutoCAD 2010 64 Bit mit Vista 64 auf Intel Core 2 DUO E8400 ergibt dieser Code

Code:

---

(vl-load-com)

(defun OS64bit1-p ()
  (vl-string-search "x64" (print (getvar "platform")))
)

(defun OS64bit2-p ()
  (vl-string-search "x64" (print (getenv "PROCESSOR_ARCHITECTURE")))
)

(defun ACAD64BIT?(/ UTILITY)
  (vl-load-com)
  (and(>=(atof(getvar "ACADVER"))17.1)
      (setq UTILITY (vlax-get-property
                      (vla-get-activedocument(vlax-get-acad-object))
                      "Utility"
                    )
      )                   
      (vlax-method-applicable-p  UTILITY "ObjectIdString")
  )
)

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

(defun c:64bitTest()
  (print (OS64bit1-p))
  (print (OS64bit2-p))
  (print (ACAD64BIT?))
  (print (acad64bit-p))
)

---

 
ergibt

Code:

---

Befehl: 64BITTEST
"Microsoft Windows NT Version 6.0 (x64)"
34
"AMD64"
nil
nil
T T
Befehl:

---

Auf AutoCAD Civil 3D 2010 (32 bit !) unter Vista 64

Code:

---

"Microsoft Windows NT Version 6.0 (x86)"
nil
"x86"
nil
nil
nil nil

---

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

... eigentlich nicht ...

Hier noch einmal das volle Programm (Neustart ACAD):

Regeneriert Modell.

AutoCAD Express Tools Copyright © 2002-2004 Autodesk, Inc.

AutoCAD Menü-Dienstprogramme geladen.
Befehl: BEFEHLSZEILE

Befehl: properties

Befehl: (vl-load-com)

Befehl: (load"c:/temp/cadmium.lsp")
ACAD64BIT

Befehl: (acad64bit?)
; Fehler: no function definition: ACAD64BIT?

Befehl: (acad64bit)
; Fehler: Zu wenig Argumente

Befehl: (vl-prin1-to-string(vlax-get-acad-object))
"#<VLA-OBJECT IAcadApplication 00000000012358d0>"

Befehl:

*wieSchweininsUhrwerkgugg*

------------------
lg, der Hausmeister
_______________________________________

Ich bin nicht gestört, ich bin verhaltensoriginell.

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

---

Zitat:

---

Original erstellt von CAD-Huebner:

Code:

---

Befehl: 64BITTEST
"Microsoft Windows NT Version 6.0 (x64)"
34
"AMD64"
nil
nil
T T
Befehl:

---

Auf AutoCAD Civil 3D 2010 (32 bit !) unter Vista 64

Code:

---

"Microsoft Windows NT Version 6.0 (x86)"
nil
"x86"
nil
nil
nil nil

---

---

na damit kann man doch sicher was anfangen  .. thx 2all

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Thanx 2 all!!! Super Antworten.

Ich hab' jetzt hiermit gemacht:

Code:

---

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

---

Obwohl ja der hier:

Code:

---

(vl-string-search "x64" (print (getenv "PROCESSOR_ARCHITECTURE")))

---

ebenso zuverlässig zu sein scheint, da ja bei 32bit Acad auf 64bit OS die richtige "Anwort" gegeben wird (32bit Acad).

------------------
Ciao,
Marc

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

---

Zitat:

---

Original erstellt von marc.scherer:

Obwohl ja der hier:

Code:

---

(vl-string-search "x64" (print (getenv "PROCESSOR_ARCHITECTURE")))

---

ebenso zuverlässig zu sein scheint, da ja bei 32bit Acad auf 64bit OS die richtige "Anwort" gegeben wird (32bit Acad).

---

Vgl. CAD-Hübner:
(vl-string-search "x64" (print (getenv "PROCESSOR_ARCHITECTURE"))) -> "AMD64"  NIL
...sehr zuverlässig.

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

OK,

natürlich meinte ich nur diesen Abschnitt:

Zitat:

---

(getenv "PROCESSOR_ARCHITECTURE")

---

Der Vergleich muß dann natürlich nur auf "64" getätigt werden.

Meine Aussage sollte sich nur darauf beziehen, das ein 32bit Acad auf 64 OS die richtige Antwort gibt...

------------------
Ciao,
Marc

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

---

*doublepost*

[Diese Nachricht wurde von marc.scherer am 06. Okt. 2009 editiert.]

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

---

Wie wäre es eigentlich mit dieser Variante?

; 32/64-Bit?
(if (findfile (strcat (getenv "SystemRoot") "\\SysWOW64\\."))
  (progn
    ; BIT=64        ...
  )
  (progn
    ; BIT=32        ...
  )
)

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

---

Hi,

Auf AutoCAD Civil 3D 2010 (32 bit !) unter Win7x64 bringt 64bitTest

"Microsoft Windows NT Version 6.1 (x86)"
nil
"AMD64"
nil
nil
nil nil

Hoffentlich frustiere ich jetzt damit niemanden 

- alfred -

------------------
www.hollaus.at

---

andere Möglichkeiten

In der Liste (arx) bei 32 bit Versionen vl.arx bei 64bit ist die vlx64.arx geladen.

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