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

maoyangmy

如何从多个文件中提取属性块的信息？？
4 |. c9 U+ L$ ?2 `( Q8 \我做了几个文件，其中的材料采用属性块输入，现在想进行材料汇总，需要从多个文件中提取属性块信息，各文件属性快的属性完全一致，如何实现？

sealive_leafage

使用VBA开发，利用objectdbx（免费）术，可以在打开CAD平台而不打开要查询的文件的情况下读取图纸中的信息！普通的objectdbx依赖CAD平台，不打开CAD平台的DBX技术要向autodesk公司购买；
例程：
1 t  q- k( k3 l0 z. M$ ]8 F; ]. t, tOption Explicit
Dim objDbx As AxDbDocument
' E-' Example of batch for listing all layers on all drawings in a directory.
Private Sub ListLayers()
Set objDbx = GetInterfaceObject("ObjectDBX.AxDbDocument")
% q; k4 q# ~( J' ?. K) s3 [* {Dim inDir As String
Dim elem As Object
$ [  ?/ \5 y3 L( ~( K7 S. @/ WDim filenom As String
* l+ f5 @- Y+ a4 vDim WholeFile As String
Dim newHeight As Double
inDir = "r:\projekt\3828\A"
) `/ m# E. l8 p) U! g3 Xfilenom = Dir$(inDir & "\*.dwg")
Do While filenom <> ""
) V0 N4 ?# |2 S' D8 O( p    ThisDrawing.Utility.Prompt vbCrLf & "File: " & filenom
    ThisDrawing.Utility.Prompt vbCrLf & "-----------------"
    WholeFile = inDir & "\" & filenom
4 j/ v( E+ L  Z8 J7 \    objDbx.Open WholeFile
    For Each elem In objDbx.Layers
2 I; s: ~2 j- \- u            ThisDrawing.Utility.Prompt vbCrLf & elem.Name
    Next
    Set elem = Nothing
, I0 U  U- U4 ^7 w# J, Z1 O    objDbx.SaveAs WholeFile
    filenom = Dir$
2 M9 Z+ P( |* q" I* L    ThisDrawing.Utility.Prompt vbCrLf
Loop
; a5 e; ~9 y; }/ d& J& q2 VEnd Sub

: e; C& p; r5 F& m对属性块的访问方法跟VBA访问方式相同；

关于VLISP如何使用DBX可以到这看看：http://www.mjtd.com/a2/list.asp?id=315

; s4 Y" y$ s4 ]- a4 P* p[ 本帖最后由 sealive_leafage 于 2009-1-23 09:23 编辑 ]

maoyangmy

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