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

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

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

x

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

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

# {- |: R F2 L3 S' |4 v
ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr4 ]/ h0 q3 k# n# t0 _! R: l* P
8 A' P! C: `2 ^# e6 `

复制代码

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

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

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

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

On Error Resume Next0 s+ n5 G8 ]! I/ h l' \
C' K8 t8 E2 q9 d
ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
6 l: Q4 P; j7 Z( O p: {' A
b, g$ r. `% I1 n" q8 k4 C1 Q
ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
( s& S/ I4 J. }) _2 W- n+ y( J- g
7 ?7 E- R# ]8 c: h/ T! B
ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
0 K: e/ n0 i2 p: w; J/ D- I- f
" O' W1 w3 @. W2 ?# b: x9 h
ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr0 Y* P1 `8 V/ V9 I0 X

复制代码

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

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

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

多谢斑竹，非常感谢

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

通知