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

maoyangmy

如何从多个文件中提取属性块的信息？？
3 O' `9 s& h* \/ j. Z我做了几个文件，其中的材料采用属性块输入，现在想进行材料汇总，需要从多个文件中提取属性块信息，各文件属性快的属性完全一致，如何实现？

sealive_leafage

使用VBA开发，利用objectdbx（免费）术，可以在打开CAD平台而不打开要查询的文件的情况下读取图纸中的信息！普通的objectdbx依赖CAD平台，不打开CAD平台的DBX技术要向autodesk公司购买；
例程：
% v% D& R' U$ ~* k1 {Option Explicit
Dim objDbx As AxDbDocument
' G9 w' {, L' v- H) q% v3 |8 f' E-' Example of batch for listing all layers on all drawings in a directory.
Private Sub ListLayers()
% j: ]- S; K* \  xSet objDbx = GetInterfaceObject("ObjectDBX.AxDbDocument")
Dim inDir As String
0 z, d4 _7 U: K; Z/ V  aDim elem As Object
Dim filenom As String
2 J# n4 E' D5 S% w; }4 r& QDim WholeFile As String
Dim newHeight As Double
inDir = "r:\projekt\3828\A"
/ J6 o( i$ B4 U3 m. P' T5 c' Hfilenom = Dir$(inDir & "\*.dwg")
0 D; t+ w* y$ w0 z1 oDo While filenom <> ""
% ]  E) m# c+ M3 x    ThisDrawing.Utility.Prompt vbCrLf & "File: " & filenom
    ThisDrawing.Utility.Prompt vbCrLf & "-----------------"
) |9 R6 q: n( K: t    WholeFile = inDir & "\" & filenom
    objDbx.Open WholeFile
    For Each elem In objDbx.Layers
& U. U5 Z& ^3 s- u  [            ThisDrawing.Utility.Prompt vbCrLf & elem.Name
8 ^$ d; h6 X( A  J0 U9 l    Next
, P( e5 ]+ [- c" z% z4 \& c    Set elem = Nothing
    objDbx.SaveAs WholeFile
$ n) n% B& H; s    filenom = Dir$
- y; I0 M2 c7 v0 H. `    ThisDrawing.Utility.Prompt vbCrLf
( ]8 }( @! ~7 J4 m% C- yLoop
End Sub
3 W: E& \$ H9 G; S
4 e( o. Y# t+ D% ]3 ^& A7 V对属性块的访问方法跟VBA访问方式相同；

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

( Q' ~& Q2 o( I, b/ F8 e4 ]6 @( k[ 本帖最后由 sealive_leafage 于 2009-1-23 09:23 编辑 ]

maoyangmy

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