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

157787698

有一个系统变量或者叫命令：Imageframe，即是否显示图纸中的光栅图像边框
; k3 K- |5 Q, K  u5 |5 M2 c
但在使用以下代码的时候出现问题：
) y9 c3 h0 M7 i" d3 h. q

1. 
   
2. ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
   , I2 T5 E. E  T9 b+ f1 d# Y. u
3. 
   

复制代码

9 E7 P9 g" q4 Q. I5 V8 v原因是在2004中，Imageframe有两个值：ON/OFF，而在2008中却有三个值：0/1/2

1 K% }: ?, g8 i& X, q* V
" G# z" b  E+ G* G% [所以我想问一下如何在程序中判断CAD版本？

157787698

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

1. On Error Resume Next
   
2.    
   ( |! J2 C3 V* f7 u( h7 I
3.     ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
   + Y% j9 I: J% {. G; ^
4.    
   / x- q& Y# @& S; J
5.     ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
   & v5 P) {: l" ]7 x
6.    
   
7.     ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
   
8.    
   ) G3 u' A2 V, D
9.     ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
   0 Z# N1 @+ M4 }: Q
10.    

复制代码

woaishuijia

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

157787698

多谢斑竹，非常感谢