|
|
发表于 2008-1-25 15:58:58
|
显示全部楼层
来自： 中国浙江宁波
明细栏和标题栏做成属性块，可以参考下面的语法来获得或修改属性； u" k; @4 L( ?, A2 z6 l; L: ~
/ R- e' r4 M. y" b& \# }
' 获取块参照的属性 - a- K6 y% H0 a0 S- J
Dim varAttributes As Variant 1 S0 J: x* v0 l5 U
varAttributes = blockRefObj.GetAttributes ' 将属性标记和值移至 4 U/ a5 V! m4 p) @0 X2 O
' 要在 Msgbox 中显示的字符串中 6 T( O: g! G7 d+ r- x8 W
Dim strAttributes As String 9 ]$ O8 F" B0 f1 s: l
strAttributes = "" & h; Y1 v/ `3 p H- n
Dim I As Integer
- o7 s7 a0 N3 d q4 MFor I = LBound(varAttributes) To UBound(varAttributes)
) ?2 z5 x' m! z( h6 I) i, w% t8 tstrAttributes = strAttributes + " Tag: " + varAttributes(I).TagString + vbCrLf + " Value: " + varAttributes(I).textString Next 2 n8 S6 _9 W& J0 P/ b" [
MsgBox "The attributes for blockReference " + blockRefObj.Name & " are: " & vbCrLf & strAttributes
5 F ]1 U! U' K, ~ }7 _( @( p ' 更改属性值 ' 注意：没有 SetAttributes。 一旦包含 ' 变量数组，就拥有了对象。 ' 更改这些对象就会改变图形中的对象。 9 K4 }+ s# _$ m3 r) K9 j2 f3 R% P
varAttributes(0).textString = "NEW VALUE!" . o6 P* Z; c7 i) [( T2 \4 _. K
' 再次获取属性
8 W- X; I1 T" Z5 _Dim newvarAttributes As Variant 5 O( `* d M3 d7 Z% o
newvarAttributes = blockRefObj.GetAttributes
, t7 m4 v9 F/ k H' 再次显示标记和值
# I, x& c& b) |" `strAttributes = "" + G7 g$ k0 \* G
For I = LBound(varAttributes) To UBound(varAttributes) 7 I h2 j) |1 S9 d6 u
strAttributes = strAttributes + " Tag: " + newvarAttributes(I).TagString + vbCrLf + " Value: " + newvarAttributes(I).textString
; S- h& `% s4 l/ yNext 1 T2 S' G9 k1 N q( @: g
MsgBox "The attributes for blockReference " & blockRefObj.Name & " are: " & vbCrLf & strAttributes
2 ^, X+ n2 Z: A. P6 r1 [3 V( r" m9 `: B, p# z
[ 本帖最后由 sealive_leafage 于 2008-1-25 16:04 编辑 ] |
评分
-
查看全部评分
|
发表于 2008-1-25 13:38:32
楼主