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

157787698

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

6 K& s' Q' Z) y% u5 h但在使用以下代码的时候出现问题：
9 l' u; J5 B8 B% Y# X

1. 
   
2. ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
   
3. 
   

复制代码

原因是在2004中，Imageframe有两个值：ON/OFF，而在2008中却有三个值：0/1/2
$ O. s4 ]1 ?( Y/ j5 S0 V( n1 P  D

8 g4 c5 c, t- M所以我想问一下如何在程序中判断CAD版本？

157787698

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

1. On Error Resume Next
   
2.    
   7 Y, X5 D& ]: C! n- d5 X
3.     ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
   ' R0 o1 h$ O- U: n8 l
4.    
   , ?5 q2 O( ]5 M8 H" B6 |
5.     ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
   
6.    
   5 Z/ ~* d+ r4 E% i/ k1 k
7.     ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
   
8.    
   
9.     ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
   3 m: v0 k" \% t. e  l
10.    

复制代码

woaishuijia

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

157787698

多谢斑竹，非常感谢