VBA：如何判断当前CAD版本是2004？2006？2008还是2010呢？

157787698

有一个系统变量或者叫命令：Imageframe，即是否显示图纸中的光栅图像边框

但在使用以下代码的时候出现问题：
9 @  r9 m1 u. c9 {& q

1. 
   & O; Z; w  k" w' c3 N- T8 H
2. ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
   
3. 
   $ i. B- ^3 M: n

复制代码

原因是在2004中，Imageframe有两个值：ON/OFF，而在2008中却有三个值：0/1/2
# I( B! o* v& o

所以我想问一下如何在程序中判断CAD版本？

157787698

目前的解决办法是使用ON ERROR RESUME NEXT解决，但可能不是很好，代码如下：

1. On Error Resume Next
   
2.    
   7 ], z* A6 e; L7 P. N
3.     ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
   ( Q9 @8 Z5 \* T* K2 ]
4.    
   + {$ z6 l# E7 x
5.     ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
   8 {* w, |+ h& E3 J6 o1 G
6.    
   0 C; P  e: h! M+ Z6 Y' [8 E
7.     ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
   
8.    
   7 J* [* ]7 i) i( m% F
9.     ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
   
10.    

复制代码

woaishuijia

Application 对象的 Version 属性
系统变量 ACADVER

157787698

多谢斑竹，非常感谢