如何从多个文件中提取属性块的信息？？

maoyangmy

如何从多个文件中提取属性块的信息？？
2 b. V' F& [% k$ M) O我做了几个文件，其中的材料采用属性块输入，现在想进行材料汇总，需要从多个文件中提取属性块信息，各文件属性快的属性完全一致，如何实现？

sealive_leafage

使用VBA开发，利用objectdbx（免费）术，可以在打开CAD平台而不打开要查询的文件的情况下读取图纸中的信息！普通的objectdbx依赖CAD平台，不打开CAD平台的DBX技术要向autodesk公司购买；
例程：
Option Explicit
Dim objDbx As AxDbDocument
' E-' Example of batch for listing all layers on all drawings in a directory.
Private Sub ListLayers()
+ Z# v; m& y& C' h5 U0 DSet objDbx = GetInterfaceObject("ObjectDBX.AxDbDocument")
2 k8 l0 _2 D% ADim inDir As String
: r/ H1 j$ \  q: u! ^Dim elem As Object
Dim filenom As String
Dim WholeFile As String
! o( L, N, [0 ~  A1 b( g5 lDim newHeight As Double
& }; s  V" A" O9 _inDir = "r:\projekt\3828\A"
# m6 ?3 X9 u* P/ E- C) `+ N1 f+ z. gfilenom = Dir$(inDir & "\*.dwg")
7 r1 c3 M! I7 sDo While filenom <> ""
- e: m2 F7 S* C" B5 {    ThisDrawing.Utility.Prompt vbCrLf & "File: " & filenom
    ThisDrawing.Utility.Prompt vbCrLf & "-----------------"
    WholeFile = inDir & "\" & filenom
    objDbx.Open WholeFile
1 _# g- @+ E  U* w' E    For Each elem In objDbx.Layers
* P5 [1 k, ^( f/ T/ U9 }            ThisDrawing.Utility.Prompt vbCrLf & elem.Name
8 b- h6 v. ~3 U5 ^  D. Z9 M    Next
    Set elem = Nothing
    objDbx.SaveAs WholeFile
    filenom = Dir$
% B8 Y& r- s: S- J- s3 Y    ThisDrawing.Utility.Prompt vbCrLf
Loop
End Sub
. E; v. F/ A4 g: z
( O/ Z8 |+ _6 x; N, ^! g8 Z) O" X对属性块的访问方法跟VBA访问方式相同；
) a: [& }$ t5 R# U( ^5 A
1 J9 s; G1 ~1 H1 v$ T关于VLISP如何使用DBX可以到这看看：http://www.mjtd.com/a2/list.asp?id=315
8 |+ i3 _+ u1 ^/ `  V
1 B. {; P. p1 _3 f[ 本帖最后由 sealive_leafage 于 2009-1-23 09:23 编辑 ]

maoyangmy

谢谢sealive_leafage ，看来您是VBA的高手，如果采LISP如何解决这个问题？我用LSP比用VBA熟悉一些，请您帮忙想想办法，谢谢