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

157787698

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

但在使用以下代码的时候出现问题：

1. 
   
2. ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
   # |; U, X3 v1 c0 S8 P
3. 
   

复制代码

原因是在2004中，Imageframe有两个值：ON/OFF，而在2008中却有三个值：0/1/2


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

157787698

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

1. On Error Resume Next
   8 u6 \1 G8 o. L9 u* w% ~& h' a& Q6 m
2.    
   & s! s) ~) _/ _4 o% b
3.     ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
   % {  T; d) f1 ~2 E& Z$ m7 Z
4.    
   6 x3 a- N& l) x3 d, K" M
5.     ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
   
6.    
   $ N- R- R' \. q! [" D
7.     ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
   1 r4 L- [  P" W) K$ u
8.    
   
9.     ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
   
10.    

复制代码

woaishuijia

Application 对象的 Version 属性
1 f3 G7 Z4 h- I9 _9 c系统变量 ACADVER

157787698

多谢斑竹，非常感谢