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

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

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

x

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

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

' i6 C# x" }/ W) k( E C- l9 f& t
ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr8 l4 a: R! R4 N/ f- `% z
- y/ Q( c* d6 t! ~

复制代码

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

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

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

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

On Error Resume Next8 v( h: m- P( C
! w( l/ M( ~4 n1 c9 F' s
ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr# }; F' b8 t* f5 Y$ ]
4 B( }* H6 c' b( j
ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
7 l, K+ u4 f7 j3 D
' j6 ^& f- @% Q. W2 u! \
ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
: X* L9 {9 |$ b) t( w
5 e7 U3 N/ V+ N' K4 I$ X. p
ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr) L6 ]% q0 G7 |9 `4 U6 U. J( d2 L

复制代码

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

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

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

多谢斑竹，非常感谢

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

通知