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

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

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

x

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

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

7 _, q- i8 N' W6 {
ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
( l! O; C8 g6 S9 q1 Y3 ~. s
/ H- ?% i# f3 ?

复制代码

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

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

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

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

On Error Resume Next3 ]1 Z m3 q/ M. u; k$ F4 N' \$ G
2 B! I) B+ X, P) z2 u& x8 R2 l
ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr3 d& @/ a+ L9 @; v. R6 N" \3 G
5 G, R; v$ p: Q. B) j) C: \1 r) h; s
ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
4 Z* w4 v2 Y, S4 i0 W% E7 R
! z% K8 N; Q3 m ]6 P% ]7 b4 |5 Q
ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr" \' C3 n/ R" w! O/ o
+ H1 K- z: v" {1 I3 N4 Y4 g
ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
. g% ~" E. } t

复制代码

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
全站		goto3d 说: 在线网校新上线表哥同事（Mastercam2022）+虞为民版大（inventor2022）的最新课程，来围观吧！	2021-06-26

通知