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

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

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

x

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

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

8 Z1 B9 r/ z% r5 p+ q6 F
ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr0 J3 F7 ?0 B2 I1 f3 P+ `
2 V$ Q' s( [# x6 a

复制代码

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

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

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

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

On Error Resume Next
4 c# v, F {% i9 u6 Y/ M+ h2 |# A
8 g6 N! H4 A# {) ]/ x9 t/ v; h
ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
5 Q, G0 ?" K4 J, q6 c# I& ?+ U
2 X( u1 _1 }- c+ Q
ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
& \; K# W2 g o* ~
; z; M; Y, b9 _) ~- n" [4 x# g
ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr# m' o/ f& X$ ?* C, ? B9 Z9 {2 \9 _; s
, o/ n1 x4 y; V" H
ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
3 L# O8 T# ]) }: ^0 M

复制代码

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

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

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

多谢斑竹，非常感谢

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

通知