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

maoyangmy

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

sealive_leafage

使用VBA开发，利用objectdbx（免费）术，可以在打开CAD平台而不打开要查询的文件的情况下读取图纸中的信息！普通的objectdbx依赖CAD平台，不打开CAD平台的DBX技术要向autodesk公司购买；
8 z( a( s$ G% ]  d: C, f7 z例程：
2 b# M- z; ^- ^( xOption Explicit
Dim objDbx As AxDbDocument
4 m- X7 j0 {" T6 m# I- d' E-' Example of batch for listing all layers on all drawings in a directory.
Private Sub ListLayers()
Set objDbx = GetInterfaceObject("ObjectDBX.AxDbDocument")
Dim inDir As String
Dim elem As Object
4 [9 ?5 U* m6 m% d8 i/ N7 FDim filenom As String
Dim WholeFile As String
Dim newHeight As Double
' t# {# n& m0 sinDir = "r:\projekt\3828\A"
6 y6 B  \* u: o# U7 _1 k3 k. v; qfilenom = Dir$(inDir & "\*.dwg")
Do While filenom <> ""
5 u5 S5 O8 N) H" R    ThisDrawing.Utility.Prompt vbCrLf & "File: " & filenom
$ ?, D4 l& U6 O; Y: O" s    ThisDrawing.Utility.Prompt vbCrLf & "-----------------"
    WholeFile = inDir & "\" & filenom
, L7 `" y4 n2 Z9 l" F! @1 s# \    objDbx.Open WholeFile
$ B: w/ G9 P& b    For Each elem In objDbx.Layers
1 R2 K( r; v* I4 Z* L0 a3 A) I            ThisDrawing.Utility.Prompt vbCrLf & elem.Name
    Next
    Set elem = Nothing
3 d3 ?# t! X" ^; S9 t& ^' D. l( ^    objDbx.SaveAs WholeFile
% X- o5 p. e$ Y8 k8 V8 h$ ]& _    filenom = Dir$
    ThisDrawing.Utility.Prompt vbCrLf
, \. `( Y, E. vLoop
9 S7 u! r* }' S6 X3 d1 h& rEnd Sub

$ ?7 z0 V" s, h. E/ p3 q. _+ G对属性块的访问方法跟VBA访问方式相同；

" }# \* \( T) T9 x关于VLISP如何使用DBX可以到这看看：http://www.mjtd.com/a2/list.asp?id=315
; N7 W6 k* U  S* r7 ]
[ 本帖最后由 sealive_leafage 于 2009-1-23 09:23 编辑 ]

maoyangmy

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