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

157787698 · 发表于 2011-7-2 18:13:41

您需要登录才可以下载或查看，没有帐号？注册

x

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

但在使用以下代码的时候出现问题：

6 M6 W/ y, X) M! |& g
ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
8 v7 |% k: j+ I3 m5 L* v
$ E7 c. s S+ _; F/ d

复制代码

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

所以我想问一下如何在程序中判断CAD版本？

157787698 · 发表于 2011-7-2 18:16:29

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

On Error Resume Next
) d( }" V) {+ G) A6 U& k
- W6 c7 R2 a$ p! ~! V+ c, h( ~
ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr6 W# C( I/ S. X# m8 q* {
( K) ] { B. @9 F# T# o1 X
ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
3 g. a9 T, a, q; M9 n
: V1 g5 g0 s1 p4 X" s! H* u
ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr3 V2 d$ h" B# {; Z$ ~
1 X/ b1 f2 Q+ h# H6 ^4 o: p: P0 j7 S
ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
- ?. S, d0 o& x: o! f& T

复制代码

woaishuijia · 发表于 2011-7-3 09:00:53

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

157787698 · 发表于 2011-7-3 13:07:26

多谢斑竹，非常感谢

		自动登录	找回密码
密码			注册

通知