|
|
发表于 2009-1-23 09:13:21
|
显示全部楼层
来自： 中国浙江宁波
使用VBA开发，利用objectdbx（免费）术，可以在打开CAD平台而不打开要查询的文件的情况下读取图纸中的信息！普通的objectdbx依赖CAD平台，不打开CAD平台的DBX技术要向autodesk公司购买；
\/ q3 j( T& f6 h例程：' L% f9 Q, k. X+ ?
Option Explicit
^+ f* {) W% pDim objDbx As AxDbDocument
! C) t& {% q& A, z$ B' E-' Example of batch for listing all layers on all drawings in a directory.
# t$ z1 \+ s. h" sPrivate Sub ListLayers()% ?5 _# b2 E& W: U _
Set objDbx = GetInterfaceObject("ObjectDBX.AxDbDocument")
( m! o7 d- A R" e0 ^6 CDim inDir As String+ v. A) g/ T8 @# X3 K! ]/ B
Dim elem As Object; Y- z- ^3 T/ S/ {
Dim filenom As String
0 H; O" b' O, s1 i: v9 d# iDim WholeFile As String
* y) `' Q" H2 g! M5 YDim newHeight As Double
2 B% o: e* d; ^$ e9 N! ^/ {inDir = "r:\projekt\3828\A" Y$ t5 Z1 O: h& k4 ]7 W. Q+ [, g
filenom = Dir$(inDir & "\*.dwg")
2 i+ A; L* p* C- j% HDo While filenom <> ""+ s* a0 l1 q. T
ThisDrawing.Utility.Prompt vbCrLf & "File: " & filenom* y0 i! ]: g0 X. d7 y/ t# X
ThisDrawing.Utility.Prompt vbCrLf & "-----------------"( H. K1 D! A$ U) e! E
WholeFile = inDir & "\" & filenom& p: v* ~* {$ _( C; g; S
objDbx.Open WholeFile/ `2 W6 t. K: C5 J
For Each elem In objDbx.Layers" B& |6 b% o$ q) y: s& k$ K3 w
ThisDrawing.Utility.Prompt vbCrLf & elem.Name
& a# H6 J; j( |; k# u( p4 M! W$ a7 Q Next
9 C5 x" W% @( I+ N) A. a* a7 C( } Set elem = Nothing0 a8 Z; n; Y4 V8 h: H- V0 y
objDbx.SaveAs WholeFile
9 n4 o b2 G0 F, y" f) B9 { filenom = Dir$! L) z& m. D8 q! |
ThisDrawing.Utility.Prompt vbCrLf
5 [4 _* R6 B' ?2 ]0 g! ALoop
" t! Y) F8 R% ~; _ f' }& q, f; HEnd Sub, y, t' a2 K, P* `
: n: t4 E) A9 B& K/ A! b" y
对属性块的访问方法跟VBA访问方式相同；
/ T! u+ g4 i! S* O( Q+ }# W, O" r7 _: n* S/ Q, z
关于VLISP如何使用DBX可以到这看看：http://www.mjtd.com/a2/list.asp?id=315
: B% i, f) E: P$ p' G \; H# E, E
, u3 D# d/ Q+ m! C[ 本帖最后由 sealive_leafage 于 2009-1-23 09:23 编辑 ] |
评分
-
查看全部评分
|
发表于 2009-1-23 07:07:17
楼主