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

maoyangmy

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

sealive_leafage

使用VBA开发，利用objectdbx（免费）术，可以在打开CAD平台而不打开要查询的文件的情况下读取图纸中的信息！普通的objectdbx依赖CAD平台，不打开CAD平台的DBX技术要向autodesk公司购买；
例程：
& x! C/ _6 e# G( c! J! {- V  f( Q" k' GOption Explicit
Dim objDbx As AxDbDocument
' E-' Example of batch for listing all layers on all drawings in a directory.
1 j  r6 q! p2 |7 O# `  l' PPrivate Sub ListLayers()
+ ?6 G7 t: \: Q/ _- a  y9 c! U# ISet objDbx = GetInterfaceObject("ObjectDBX.AxDbDocument")
Dim inDir As String
" N4 H% |% i' k% vDim elem As Object
0 A! V; ?9 d8 UDim filenom As String
. q' z4 M. i1 K: y5 R2 u. |Dim WholeFile As String
( g& F+ p7 W  q% v0 q+ DDim newHeight As Double
' }% S  F8 H$ q) x; }9 t& jinDir = "r:\projekt\3828\A"
filenom = Dir$(inDir & "\*.dwg")
Do While filenom <> ""
    ThisDrawing.Utility.Prompt vbCrLf & "File: " & filenom
& O7 u& d" j2 K    ThisDrawing.Utility.Prompt vbCrLf & "-----------------"
( o7 W, z1 l# v7 X; V    WholeFile = inDir & "\" & filenom
    objDbx.Open WholeFile
    For Each elem In objDbx.Layers
            ThisDrawing.Utility.Prompt vbCrLf & elem.Name
    Next
8 i9 Y8 J/ B, f5 F; {# o    Set elem = Nothing
    objDbx.SaveAs WholeFile
    filenom = Dir$
: R  h! _; |5 S2 v    ThisDrawing.Utility.Prompt vbCrLf
6 |% w, B8 l/ ~; o# L4 BLoop
4 s$ P& X0 m* }$ v& {End Sub
5 x/ e2 y+ H+ u3 r6 @2 Z
' h' L( f7 j+ Q" O- }: Z: [1 f对属性块的访问方法跟VBA访问方式相同；
0 o' R5 l6 Z( h2 c0 p
1 t( j* a  C3 }1 U- }关于VLISP如何使用DBX可以到这看看：http://www.mjtd.com/a2/list.asp?id=315

[ 本帖最后由 sealive_leafage 于 2009-1-23 09:23 编辑 ]

maoyangmy

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