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

157787698

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

: S6 U3 ?4 ]; m/ t# V) K9 l但在使用以下代码的时候出现问题：

1. 
   
2. ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
   
3. 
   5 f7 `4 ^; ~8 y1 Y; k

复制代码

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


' R( @8 C4 A; S6 B7 M( e3 r所以我想问一下如何在程序中判断CAD版本？

157787698

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

1. On Error Resume Next
   
2.    
   
3.     ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
   " Q% p  m5 `5 o- U' v
4.    
   : m8 p; k. I4 ?+ ^  Q
5.     ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
   ; u) S4 q/ R% \! H  I
6.    
   , R5 S2 W% u7 S' z. ~
7.     ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
   
8.    
   , g+ a; [5 C( n7 P* N
9.     ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
   
10.    

复制代码

woaishuijia

Application 对象的 Version 属性
) f# j( t# K6 k+ p系统变量 ACADVER

157787698

多谢斑竹，非常感谢