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

157787698

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

. A) \, D# M  I  c但在使用以下代码的时候出现问题：
+ }  g6 q( d* c, c7 [9 D

1. 
   
2. ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
   
3. 
   % H/ b, M! V6 Z2 k9 @) g

复制代码

原因是在2004中，Imageframe有两个值：ON/OFF，而在2008中却有三个值：0/1/2
: U) R, ~. e+ U5 u& [3 B) g

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

157787698

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

1. On Error Resume Next
   + U5 ]5 i- B- g9 C! y* G' A
2.    
   
3.     ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
   
4.    
   . R6 y' c$ W/ v$ _& j
5.     ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
   4 L% l% S$ L; n  j
6.    
   
7.     ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
   6 R# h: d" \; M/ j9 e
8.    
   + _2 \- N5 j# N' y
9.     ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
   + q6 |; N; x5 m
10.    

复制代码

woaishuijia

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

157787698

多谢斑竹，非常感谢