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

157787698

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

: I# k5 d* O- `* m6 `2 x, e但在使用以下代码的时候出现问题：

1. 
   1 a/ `! E+ P2 v
2. ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
   
3. 
   & r! l- W1 f9 }' k1 }! l4 h: H

复制代码

1 ]( e' o- A" Q; x  d' O/ e原因是在2004中，Imageframe有两个值：ON/OFF，而在2008中却有三个值：0/1/2
7 l/ O/ l: x; F. {
9 H- M" D! f4 [7 v' U5 v5 G
0 n' C9 S! d: g9 w7 m8 f所以我想问一下如何在程序中判断CAD版本？

157787698

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

1. On Error Resume Next
   / K3 R6 g. q3 X& R* v: N. F
2.    
   
3.     ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
   8 o  x5 y: m+ Y! f5 \8 s
4.    
   1 X- m4 {, ^! ?. _
5.     ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
   
6.    
   
7.     ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
   
8.    
   ! C9 u- V0 o, [9 C1 x
9.     ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
   7 y6 H$ D" R1 f/ X7 g
10.    

复制代码

woaishuijia

Application 对象的 Version 属性
. I+ `0 ?' Y; w- k( `: j  m4 ?系统变量 ACADVER

157787698

多谢斑竹，非常感谢