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

maoyangmy

如何从多个文件中提取属性块的信息？？
* N$ }/ ]' @1 h; N( Z4 X5 d1 L我做了几个文件，其中的材料采用属性块输入，现在想进行材料汇总，需要从多个文件中提取属性块信息，各文件属性快的属性完全一致，如何实现？

sealive_leafage

使用VBA开发，利用objectdbx（免费）术，可以在打开CAD平台而不打开要查询的文件的情况下读取图纸中的信息！普通的objectdbx依赖CAD平台，不打开CAD平台的DBX技术要向autodesk公司购买；
例程：
3 M8 ~, S5 H+ X+ lOption Explicit
Dim objDbx As AxDbDocument
3 Y( r% x, G$ Q5 u+ X( i. Z; G' E-' Example of batch for listing all layers on all drawings in a directory.
8 M" [  M: S1 \' b9 l6 r1 `Private Sub ListLayers()
Set objDbx = GetInterfaceObject("ObjectDBX.AxDbDocument")
! ~: f4 }' u  Q& Y$ r" H1 B; h8 [Dim inDir As String
7 m0 P5 @+ \1 zDim elem As Object
Dim filenom As String
/ A$ |; ~* S. q/ y. K  O, a; s* vDim WholeFile As String
Dim newHeight As Double
" I* E6 u8 g# T1 E6 G, t9 {inDir = "r:\projekt\3828\A"
# |+ G7 |) L$ N+ u0 _filenom = Dir$(inDir & "\*.dwg")
3 V: y8 q, n8 U" v- rDo While filenom <> ""
    ThisDrawing.Utility.Prompt vbCrLf & "File: " & filenom
. p2 A/ z# M* R0 Y* S+ o    ThisDrawing.Utility.Prompt vbCrLf & "-----------------"
    WholeFile = inDir & "\" & filenom
    objDbx.Open WholeFile
    For Each elem In objDbx.Layers
2 A7 |3 Y. L; W# O            ThisDrawing.Utility.Prompt vbCrLf & elem.Name
1 ~9 L2 h9 B( D" x    Next
2 G" e8 [4 e/ ~' v/ W" i. \7 q4 G    Set elem = Nothing
    objDbx.SaveAs WholeFile
- O% S3 w( w) Q; x: h5 ?1 G    filenom = Dir$
    ThisDrawing.Utility.Prompt vbCrLf
4 U5 }7 W) \9 G. PLoop
$ f; @5 \/ h$ O4 v) gEnd Sub
2 m" ]; P0 I% r/ H% x
对属性块的访问方法跟VBA访问方式相同；

! u. ^" X2 i( e3 K5 n( ]关于VLISP如何使用DBX可以到这看看：http://www.mjtd.com/a2/list.asp?id=315
8 g+ v7 O( W: F9 H) K
" K) }" p, h0 c2 s6 Z  f[ 本帖最后由 sealive_leafage 于 2009-1-23 09:23 编辑 ]

maoyangmy

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