哪位大侠能提供VB读取Mechanical明细和标题栏内容的例子？十分感谢！

ly_6161

我正在想弄一个公司图纸信息提取软件，由于这方面较缺乏，所以想请同仁给个例子，可以DWG

7 A+ j, }! y" u6 d* ]9 M[ 本帖最后由 唐昕晨 于 2009-1-10 13:16 编辑 ]

sealive_leafage

明细栏和标题栏做成属性块，可以参考下面的语法来获得或修改属性；
) r% V+ {1 g0 ]' n2 m; d8 O, m
4 g. i% p* t% k' 获取块参照的属性   
& U5 u- t% h/ Z) H; LDim varAttributes As Variant   
varAttributes = blockRefObj.GetAttributes    ' 将属性标记和值移至   
- S2 I% E! m4 a( f' 要在 Msgbox 中显示的字符串中   
2 D7 c9 ], b/ Q7 A; X6 Q+ F. }/ n4 SDim strAttributes As String   
strAttributes = ""   
Dim I As Integer   
For I = LBound(varAttributes) To UBound(varAttributes)        
strAttributes = strAttributes + " Tag: " + varAttributes(I).TagString + vbCrLf + " Value: " + varAttributes(I).textString    Next   
MsgBox "The attributes for blockReference " + blockRefObj.Name & " are: " & vbCrLf & strAttributes   
- T9 W) M, u2 h0 g% O ' 更改属性值    ' 注意：没有 SetAttributes。 一旦包含    ' 变量数组，就拥有了对象。    ' 更改这些对象就会改变图形中的对象。   
& P( @5 x7 f, K8 H+ _varAttributes(0).textString = "NEW VALUE!"   
* w2 N( L! h; L' 再次获取属性   
Dim newvarAttributes As Variant   
( W  I% O# v; S4 _, p6 F4 ~newvarAttributes = blockRefObj.GetAttributes   
- h6 {9 x& ]; K. a; Q) }1 M' I' 再次显示标记和值   
strAttributes = ""   
9 X; l2 S% ~% G6 C9 GFor I = LBound(varAttributes) To UBound(varAttributes)        
strAttributes = strAttributes + " Tag: " + newvarAttributes(I).TagString + vbCrLf +  " Value: " + newvarAttributes(I).textString   
2 c; T' n+ o  C& M' Y9 Q  iNext   
' P0 R9 b5 z8 G2 j* ?) d- `0 eMsgBox "The attributes for blockReference " & blockRefObj.Name & " are: " & vbCrLf & strAttributes
' y  T( t5 ~  D8 b" U" ?) S& T) t7 ]
[ 本帖最后由 sealive_leafage 于 2008-1-25 16:04 编辑 ]

auluolal

二楼，你的VBA能力不错啊，为什么不多发点资料和经验给大家啊！！！

ly_6161

首先感谢二楼的帮助，但Mechanical的明细不是属性块组成的，它是用BOM变量的，如代号为Standard、名称为Descr等，这时如何提取呢？谢谢

ly_6161

哪位行家路过，一定请赐教，最好有现成的小例子，可以让我有个总体的感觉，谢谢！

C791218

2楼先生的软件设计知识不错。希望以后多发表这类文章！谢谢！

ly_6161

回复管理员：关于MDT开发手册，我没有唉，这些属性还是我摸索出的，我总共找了二十几个。