判断是32位还是64位CAD

lzselite

各位大侠，想用lsp判断启动的CAD是32位还是64位的，不要说根据系统，要考虑64位系统下的32位CAD，所以，想判断是32位还是64位CAD

r33d

这个我会啊。

以下是控制台拷贝的内容：

2. _$ (defun IsAcad32Bit? ()
   
3. (vl-load-com)
   
4. (<= (strlen (vl-prin1-to-string (vlax-get-acad-object)))
   
5. ; 64 bit: "> 40"
   
6. ; 32 bit: "<= 40"
   
7. 40
   
8. ) ; AutoCAD check
   
9. )
   
10. 
    
11. _$ (ISACAD32BIT?)
    
12. T

_$ (defun IsAcad32Bit? ()<br /> (vl-load-com)<br /> (<= (strlen (vl-prin1-to-string (vlax-get-acad-object)))<br /> ; 64 bit: "> 40"<br /> ; 32 bit: "<= 40"<br /> 40<br /> ) ; AutoCAD check<br /> )<br /> <br /> _$ (ISACAD32BIT?)<br /> T

Gu_xl

(if (= "x86" (getenv "PROCESSOR_ARCHITECTURE"))
   (princ " 32位系统")
    (princ " 64位系统")
)