QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 3085|回复: 3
收起左侧

[已答复] VBA:如何判断当前CAD版本是2004?2006?2008还是2010呢?

[复制链接]
发表于 2011-7-2 18:13:41 | 显示全部楼层 |阅读模式 来自: 中国浙江杭州

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

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

x
有一个系统变量或者叫命令:Imageframe,即是否显示图纸中的光栅图像边框3 n4 B, w/ U+ y
) @9 h; W( i: D, K: }
但在使用以下代码的时候出现问题:
  v5 c: B/ x8 o& ]- `% p
  1. & W; Y- L$ I6 m% ^! a/ L
  2. ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
    9 W+ d6 `* }1 C: _: I4 D8 ?1 r
  3. 1 q$ d- _1 Y, P8 d  m5 O
复制代码

! C% w7 f) b1 t$ a) Z& \3 O2 f% v! f( N* T8 I6 g# ^
原因是在2004中,Imageframe有两个值:ON/OFF,而在2008中却有三个值:0/1/2, r# ~9 K! i/ T- o0 H, x

4 i5 z. L  d- {1 W' T4 K; L, \  Y1 a( K. R/ ^9 b2 K
所以我想问一下如何在程序中判断CAD版本?
 楼主| 发表于 2011-7-2 18:16:29 | 显示全部楼层 来自: 中国浙江杭州
目前的解决办法是使用ON ERROR RESUME NEXT解决,但可能不是很好,代码如下:
  1. On Error Resume Next5 K+ U, ]% X1 X+ @  ]' `1 f% Q0 H
  2.    
    ( B; I5 g4 s5 b$ U2 i: V9 M
  3.     ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
    4 T* Q* N: @( l0 A
  4.    
    ! M, f' k6 P$ _7 A* S4 V9 c
  5.     ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr
    4 n4 r" L+ S6 x+ C6 D
  6.     1 k" p4 r, K# Y4 I. v8 W+ Z& K# h
  7.     ThisDrawing.SendCommand "_imageframe" & vbCr & "0" & vbCr
    $ ~% j* ?. {8 d: e# m2 Q% Z8 S7 ~! @
  8.    
    # _; F5 a, H, R0 J6 n& @
  9.     ThisDrawing.SendCommand "_imageframe" & vbCr & "OFF" & vbCr( C( F2 a# k3 l$ l0 U# z
  10.    
复制代码
发表于 2011-7-3 09:00:53 | 显示全部楼层 来自: 中国辽宁
Application 对象的 Version 属性
. r$ c& F9 v3 X# v. y! f  y$ v系统变量 ACADVER
 楼主| 发表于 2011-7-3 13:07:26 | 显示全部楼层 来自: 中国浙江杭州
多谢斑竹,非常感谢
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表