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

157787698

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

7 K0 B. J2 F5 `. ^3 D但在使用以下代码的时候出现问题：

1. 
   
2. ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
   5 S# }# B. p) I" `
3. 
   8 E7 f) ^, e& p: Q6 y

复制代码

2 Z7 T# v: W+ m1 j+ L原因是在2004中，Imageframe有两个值：ON/OFF，而在2008中却有三个值：0/1/2
; t2 m- Y5 P" u9 s

' b! m) U3 u" {" F所以我想问一下如何在程序中判断CAD版本？

157787698

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

1. On Error Resume Next
   . J& |: x7 d- J0 c3 d
2.    
   
3.     ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
   
4.    
   $ M5 Q9 J" t4 U. q% ~
5.     ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
   
6.    
   / j! E. f, j4 q, i4 y
7.     ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
   6 ]8 ~; V4 ^- H, ~/ x* H3 U
8.    
   
9.     ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
   & _( G: U5 u0 \, ?5 E
10.    

复制代码

woaishuijia

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

157787698

多谢斑竹，非常感谢