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

maoyangmy

如何从多个文件中提取属性块的信息？？
我做了几个文件，其中的材料采用属性块输入，现在想进行材料汇总，需要从多个文件中提取属性块信息，各文件属性快的属性完全一致，如何实现？

sealive_leafage

使用VBA开发，利用objectdbx（免费）术，可以在打开CAD平台而不打开要查询的文件的情况下读取图纸中的信息！普通的objectdbx依赖CAD平台，不打开CAD平台的DBX技术要向autodesk公司购买；
0 p: f. s5 G  R7 h+ J例程：
Option Explicit
- ~  i9 |9 g" x% K* s4 W/ \3 KDim objDbx As AxDbDocument
, l# ^, j  Y+ d( t; y4 X: j; v- o5 X' E-' Example of batch for listing all layers on all drawings in a directory.
7 }0 I& n; L+ PPrivate Sub ListLayers()
1 }* K: R1 A  r% Q) h) j, |! WSet objDbx = GetInterfaceObject("ObjectDBX.AxDbDocument")
Dim inDir As String
Dim elem As Object
2 D- H& O. N& K4 t- U2 v: p1 [% @Dim filenom As String
1 o" M$ X9 u: M- |Dim WholeFile As String
Dim newHeight As Double
2 T4 }7 I# |- IinDir = "r:\projekt\3828\A"
filenom = Dir$(inDir & "\*.dwg")
3 l+ t' g0 d& G. m& ~+ a( \Do While filenom <> ""
3 T" k4 }' s7 R: |    ThisDrawing.Utility.Prompt vbCrLf & "File: " & filenom
+ R2 t& V/ n% }: j3 p" B    ThisDrawing.Utility.Prompt vbCrLf & "-----------------"
& ^! i8 g/ [: l7 e5 n# b- g& W    WholeFile = inDir & "\" & filenom
1 V4 B; P+ G' s( Q$ t6 X    objDbx.Open WholeFile
    For Each elem In objDbx.Layers
- w% `2 n# l: J' ]- B. \; ], e            ThisDrawing.Utility.Prompt vbCrLf & elem.Name
    Next
    Set elem = Nothing
# k2 l+ {: `% ?% W' [8 a' ?    objDbx.SaveAs WholeFile
1 u( m$ {0 W3 D! B3 T2 |2 ?    filenom = Dir$
    ThisDrawing.Utility.Prompt vbCrLf
, L# \3 U  c  @) jLoop
1 _6 x* }' n! n7 B, EEnd Sub
! o- L7 U  j% a# C
对属性块的访问方法跟VBA访问方式相同；
2 b3 Z  G4 c# O
9 R5 |* m2 l3 `1 m$ q! D关于VLISP如何使用DBX可以到这看看：http://www.mjtd.com/a2/list.asp?id=315

[ 本帖最后由 sealive_leafage 于 2009-1-23 09:23 编辑 ]

maoyangmy

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