判断系统32位或是64位

marting · 发表于 2018-2-7 12:59:06

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 marting 于 2018-2-7 13:24 编辑

下面提供一些方法：

一、判断系统是多少位，而不是AUTOCAD

1、WMI查询 Win32_OperatingSystem

(defun c:info (/ WMI Serv OSArch item prop)
(vl-load-com)
(setq WMI (vlax-create-object "WbemScripting.SWbemLocator")
Serv (vlax-invoke
WMI 'ConnectServer nil nil nil nil nil nil nil nil)
OSArch (vlax-invoke
Serv
'ExecQuery
"Select OSArchitecture from Win32_OperatingSystem"
)
)
(vlax-for item OSArch
(vlax-for prop (vlax-get item 'Properties_)
(princ (vlax-get prop 'Value))
)
)
(mapcar 'vlax-release-object (list OSArch Serv wmi))
(princ)
)

上面换成通用函数库的WMI查询函数是

(xd::system:wmi-query "Win32_OperatingSystem" "OSArchitecture" "")

命令: (xd::system:wmi-query "Win32_OperatingSystem" "OSArchitecture" "")
("64 位")

2、WMI 查询 Win32_Processor 表的 Architecture 字段

(defun _Is64Bit (/ wmiLocater wmiService queryResult result)
;;========================================================================
;;
;; 2010/04/23 | Quick & Dirty | Michael Puckett
;;
;;========================================================================
(vl-catch-all-apply
'(lambda ()
(vlax-for item (setq queryResult
(vlax-invoke
(setq wmiLocater (vlax-create-object
"WbemScripting.SWbemLocator"
)
wmiService (vlax-invoke
wmiLocater
'ConnectServer
"."
"root\\cimv2"
)
)
'ExecQuery
(strcat "Select Architecture "
"from Win32_Processor "
)
)
)
(setq result (vlax-get item 'Architecture))
)
)
)
(if queryResult
(vlax-release-object queryResult)
)
(if wmiService
(vlax-release-object wmiService)
)
(if wmiLocater
(vlax-release-object wmiLocater)
)
(if result
(eq 9 result)
)
)
[/coded]
等同于：
[code=lisp]
(defun _Is64Bit ()
(if (setq
result (xd::system:wmi-query "Win32_Processor" "Architecture" "")
)
(wcmatch (car result) "*64*")
)
)

(defun _Is64Bit        (/ wmiLocater wmiService queryResult result) 
  ;;======================================================================== 
  ;; 
  ;;  2010/04/23 | Quick & Dirty | Michael Puckett 
  ;; 
  ;;======================================================================== 
  (vl-catch-all-apply 
    '(lambda () 
       (vlax-for item (setq queryResult 
                             (vlax-invoke 
                               (setq wmiLocater        (vlax-create-object 
                                                  "WbemScripting.SWbemLocator" 
                                                ) 
                                     wmiService        (vlax-invoke 
                                                  wmiLocater 
                                                  'ConnectServer 
                                                  "." 
                                                  "root\\cimv2" 
                                                ) 
                               ) 
                               'ExecQuery 
                               (strcat "Select Architecture " 
                                       "from   Win32_Processor " 
                               ) 
                             ) 
                      ) 
         (setq result (vlax-get item 'Architecture)) 
       ) 
     ) 
  ) 
  (if queryResult 
    (vlax-release-object queryResult) 
  ) 
  (if wmiService 
    (vlax-release-object wmiService) 
  ) 
  (if wmiLocater 
    (vlax-release-object wmiLocater) 
  ) 
  (if result 
    (eq 9 result) 
  ) 
) 
[/coded] 
 
等同于： 
[code=lisp] 
(defun _Is64Bit        () 
  (if (setq 
        result (xd::system:wmi-query "Win32_Processor" "Architecture" "") 
      ) 
    (wcmatch (car result) "*64*") 
  ) 
)

3、WMI 查询 Win32_Processor 表的 Description 字段

(defun _Is64Bit (/ wmiLocater wmiService queryResult result)
;;========================================================================
;;
;; 2010/04/23 | Quick & Dirty | Michael Puckett
;;
;;========================================================================
(vl-catch-all-apply
'(lambda ()
(vlax-for item (setq queryResult
(vlax-invoke
(setq wmiLocater (vlax-create-object
"WbemScripting.SWbemLocator"
)
wmiService (vlax-invoke
wmiLocater
'ConnectServer
"."
"root\\cimv2"
)
)
'ExecQuery
(strcat "Select Description "
"from Win32_Processor "
)
)
)
(setq result (vlax-get item 'Description))
)
)
)
(if queryResult
(vlax-release-object queryResult)
)
(if wmiService
(vlax-release-object wmiService)
)
(if wmiLocater
(vlax-release-object wmiLocater)
)
(if result
(wcmatch result "*64*")
)
)

(defun _Is64Bit        (/ wmiLocater wmiService queryResult result) 
  ;;======================================================================== 
  ;; 
  ;;  2010/04/23 | Quick & Dirty | Michael Puckett 
  ;; 
  ;;======================================================================== 
  (vl-catch-all-apply 
    '(lambda () 
       (vlax-for item (setq queryResult 
                             (vlax-invoke 
                               (setq wmiLocater        (vlax-create-object 
                                                  "WbemScripting.SWbemLocator" 
                                                ) 
                                     wmiService        (vlax-invoke 
                                                  wmiLocater 
                                                  'ConnectServer 
                                                  "." 
                                                  "root\\cimv2" 
                                                ) 
                               ) 
                               'ExecQuery 
                               (strcat "Select Description " 
                                       "from   Win32_Processor " 
                               ) 
                             ) 
                      ) 
         (setq result (vlax-get item 'Description)) 
       ) 
     ) 
  ) 
  (if queryResult 
    (vlax-release-object queryResult) 
  ) 
  (if wmiService 
    (vlax-release-object wmiService) 
  ) 
  (if wmiLocater 
    (vlax-release-object wmiLocater) 
  ) 
  (if result 
    (wcmatch result "*64*") 
  ) 
)

等同于：

(defun _Is64Bit ()
(if (setq
result (xd::system:wmi-query "Win32_Processor" "Description" "")
)
(wcmatch (car result) "*64*")
)
)

2、注册表查询

(vl-registry-descendents "HKEY_LOCAL_MACHINE\\SOFTWARE\\Wow6432Node")

二、判断AUTOCAD是多少位

(vl-string-search "X64" (strcase (getvar 'PLATFORM)))

(vl-string-search "64" (getenv "PROCESSOR_ARCHITECTURE"))

函数：

(defun ISX64 (/ arch)
(and (setq arch (getenv "PROCESSOR_ARCHITECTURE"))
(< 1 (strlen arch))
(eq "64" (substr arch (1- (strlen arch))))
)
)

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

sh_h · 发表于 2018-2-7 13:34:48

谢谢大师分享！！！

liuyj · 发表于 2018-2-7 14:24:01

(vl-string-search "X64" (strcase (getvar 'PLATFORM)))
(vl-string-search "64" (getenv "PROCESSOR_ARCHITECTURE"))
这两句跟autocad有什么关系？

marting · 发表于 2018-2-7 14:45:27

liuyj 发表于 2018-2-7 14:24

2008下执行
命令: (getenv "PROCESSOR_ARCHITECTURE")
"x86"

命令: (strcase (getvar 'PLATFORM))
"MICROSOFT WINDOWS NT VERSION 6.2 (X86)"

2012 64位下执行：

命令: (getenv "PROCESSOR_ARCHITECTURE")
"AMD64"

命令: (strcase (getvar 'PLATFORM))
"MICROSOFT WINDOWS NT VERSION 6.2 (X64)"

liuyj · 发表于 2018-2-7 14:53:56

看这返回值是windows的平台版本和处理器信息啊，不明白

marting · 发表于 2018-2-7 14:56:24

本帖最后由 marting 于 2018-2-7 14:57 编辑

liuyj 发表于 2018-2-7 14:53

后面不是有 86，64的不同嘛，你可以根据这个，判断ACAD是多少位的。

上面都是在一台机器下执行的，系统是WIN10 64位。

yangjian001 · 发表于 2018-2-8 08:44:54

判断系统是多少位

追风lisp · 发表于 2018-2-8 11:04:23

谢谢分享~!

VBAVBAA · 发表于 2018-2-8 12:31:53

这个值得参考

账号		自动登录	找回密码
密码			立即注册

[每日一码] 判断系统32位或是64位

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

浏览过的版块