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

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

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

x

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

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

8 c; \$ N: w; J/ F+ C6 v
ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
" \, \- D. p8 \; }5 O% ?
8 v( o9 g* X8 \. v& Z8 C9 l5 z) k* l

复制代码

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

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

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

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

On Error Resume Next5 m2 I" }$ @! T3 I& |
8 H: u! b% ^ p. T0 G6 y- u! d
ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr1 m2 W( m8 S$ @+ q( f' @/ Y, p. V
( n- Q3 d4 `% B; g% ~' [" f
ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr# t# D5 I# l0 N; G/ j2 B3 G
5 a1 D" A; m; w7 j) X
ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr e2 h9 @. ^! c- a8 Q7 s$ I
& [! J2 [) O8 u9 k5 W
ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
8 F0 c- f3 I, `9 o

复制代码

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

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

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

多谢斑竹，非常感谢

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

通知