判断ACAD是否是64位的方法

marting

[JavaScript] 纯文本查看 复制代码

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

/db_自贡黄明儒_

也可通过系统变量来判断

Lispboy

用系统变量实现

1. (defun ISX64 (/ proc_arch)
   
2.   (and
   
3.     (setq proc_arch (getenv "PROCESSOR_ARCHITECTURE"))
   
4.     (< 1 (strlen proc_arch))
   
5.     (eq "64" (substr proc_arch (1- (strlen proc_arch))))
   
6.   )
   
7. )
   

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

newer

另外一个版本

1. (defun IsX64 (/ str pos osver)
   
2.   (setq        str   (getvar "PLATFORM")
   
3.         pos   (vl-string-position (ascii "(") str)
   
4.         osver (substr str (+ pos 2) 3)
   
5.   )
   
6.   (= "X64" (strcase osver))
   
7. )
   

(defun IsX64 (/ str pos osver)<br />   (setq        str   (getvar "PLATFORM")<br />         pos   (vl-string-position (ascii "(") str)<br />         osver (substr str (+ pos 2) 3)<br />   )<br />   (= "X64" (strcase osver))<br /> )<br />

/db_自贡黄明儒_

newer 发表于 2017-12-19 09:55

(= (getenv "PROCESSOR_ARCHITECTURE") "x86")直接判断行不行？

newer

/db_自贡黄明儒_ 发表于 2017-12-19 11:39

不知道是否所有的系统都是固定返回 x86，所以还是进一步提取下保险点。