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

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

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

x

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

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

复制代码

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

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

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

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

On Error Resume Next& m6 a) O* U3 M& c! T3 f
6 {5 W }8 M3 O
ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr' C3 t l5 @- [% I6 y% y
6 `4 d4 a4 v& {2 c6 f1 T, |0 `0 A
ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
/ S b3 X- y, t' i/ \, Y1 t0 }
% o& T; H9 q5 W: y! Y ]9 _# @
ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
9 _4 w# ^; s% F- B& S# n# ~2 e
8 _0 D# M' d& ~1 P0 l7 L& }
ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr. Z+ [3 t0 u" Y2 q) A

复制代码

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

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

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

多谢斑竹，非常感谢

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

全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11
系统		[系统通知] 平台第一个项目外包——项目拼多；正式上线，欢迎各单位个人有外包、设计、采购、加工需求的，在此寻找更牛的解决方案	2021-07-01

通知