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

maoyangmy

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

sealive_leafage

使用VBA开发，利用objectdbx（免费）术，可以在打开CAD平台而不打开要查询的文件的情况下读取图纸中的信息！普通的objectdbx依赖CAD平台，不打开CAD平台的DBX技术要向autodesk公司购买；
例程：
( B0 n. @+ Z# k. b* ~( Q: }- \; [8 POption Explicit
Dim objDbx As AxDbDocument
' E-' Example of batch for listing all layers on all drawings in a directory.
Private Sub ListLayers()
$ m+ [' w; q+ D& o% qSet objDbx = GetInterfaceObject("ObjectDBX.AxDbDocument")
Dim inDir As String
Dim elem As Object
Dim filenom As String
Dim WholeFile As String
% s# x2 @2 e- vDim newHeight As Double
inDir = "r:\projekt\3828\A"
8 E- ?' h' e" x, L. Dfilenom = Dir$(inDir & "\*.dwg")
Do While filenom <> ""
    ThisDrawing.Utility.Prompt vbCrLf & "File: " & filenom
    ThisDrawing.Utility.Prompt vbCrLf & "-----------------"
3 Z- t3 q  {, I6 `5 p    WholeFile = inDir & "\" & filenom
    objDbx.Open WholeFile
    For Each elem In objDbx.Layers
! T0 p7 o9 n: T; s3 M7 j            ThisDrawing.Utility.Prompt vbCrLf & elem.Name
; K0 _& \% C- g9 K    Next
; @4 A+ ~% ?) [1 B8 g    Set elem = Nothing
    objDbx.SaveAs WholeFile
    filenom = Dir$
* C+ e2 B% C9 K# ^    ThisDrawing.Utility.Prompt vbCrLf
Loop
End Sub
: T0 w$ L5 L0 \
: o+ x$ }1 `5 p+ [2 L: z9 p对属性块的访问方法跟VBA访问方式相同；
: h$ E/ |  O! C
关于VLISP如何使用DBX可以到这看看：http://www.mjtd.com/a2/list.asp?id=315
& D- p8 f4 c. i0 y7 o7 [
[ 本帖最后由 sealive_leafage 于 2009-1-23 09:23 编辑 ]

maoyangmy

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