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

maoyangmy

如何从多个文件中提取属性块的信息？？
/ ~6 ^3 |% l$ {+ h" z1 G我做了几个文件，其中的材料采用属性块输入，现在想进行材料汇总，需要从多个文件中提取属性块信息，各文件属性快的属性完全一致，如何实现？

sealive_leafage

使用VBA开发，利用objectdbx（免费）术，可以在打开CAD平台而不打开要查询的文件的情况下读取图纸中的信息！普通的objectdbx依赖CAD平台，不打开CAD平台的DBX技术要向autodesk公司购买；
& i  z! H) k' M1 L例程：
Option Explicit
Dim objDbx As AxDbDocument
7 l( n# h5 ^% P& R' 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
! K& E3 R+ C6 G$ Y4 u+ Y' M: C3 t6 VDim elem As Object
Dim filenom As String
Dim WholeFile As String
Dim newHeight As Double
1 X  S1 ?: Z0 ]' m3 T$ linDir = "r:\projekt\3828\A"
" C3 \6 {6 S# Afilenom = Dir$(inDir & "\*.dwg")
% g- E) x& y4 t0 c9 O& E# k' r/ z" kDo While filenom <> ""
    ThisDrawing.Utility.Prompt vbCrLf & "File: " & filenom
+ a1 e) q: N2 y# \. b    ThisDrawing.Utility.Prompt vbCrLf & "-----------------"
    WholeFile = inDir & "\" & filenom
9 Y$ N' B" F8 _  q, g5 [( B% `    objDbx.Open WholeFile
4 f- s+ B, {5 j# F6 d6 V/ N( E0 f    For Each elem In objDbx.Layers
            ThisDrawing.Utility.Prompt vbCrLf & elem.Name
8 k5 J( u. B/ p8 t$ P) }    Next
    Set elem = Nothing
0 V9 s0 `$ E9 J7 Q    objDbx.SaveAs WholeFile
    filenom = Dir$
% I, N3 _% F5 y/ S7 E/ {# }0 m    ThisDrawing.Utility.Prompt vbCrLf
Loop
/ a1 F' T6 ]) [+ z0 MEnd Sub
4 x6 L) g" ]$ u; O
) b  E" l7 n  U6 s) R对属性块的访问方法跟VBA访问方式相同；

; M& W5 n/ m8 a关于VLISP如何使用DBX可以到这看看：http://www.mjtd.com/a2/list.asp?id=315
2 s% l; e4 e% K- G2 z
[ 本帖最后由 sealive_leafage 于 2009-1-23 09:23 编辑 ]

maoyangmy

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