zxj_76 发表于 2006-7-13 16:19:00

[VBA] 块属性定义与修改

在开发手册里，读取BLOCK的属性（ATTRIBUTE）的命令是GetAttributes，但没有找到修改属性的命令，哪位高手知道吗？

霹雳啪啦啦 发表于 2006-7-14 11:23:00

&ltRE class=prog_in>    ' 获取块参照的属性&ltRE class=prog_in>    Dim varAttributes As Variant&ltRE class=prog_in>    varAttributes = blockRefObj.GetAttributes&ltRE class=prog_in>&ltRE class=prog_in>    ' 将属性标记和值移至&ltRE class=prog_in>    ' 要在 Msgbox 中显示的字符串中&ltRE class=prog_in>    Dim strAttributes As String&ltRE class=prog_in>    strAttributes = ""&ltRE class=prog_in>    Dim I As Integer&ltRE class=prog_in>    For I = LBound(varAttributes) To UBound(varAttributes)&ltRE class=prog_in>      strAttributes = strAttributes + " Tag: " + _&ltRE class=prog_in>                  varAttributes(I).TagString + vbCrLf + _&ltRE class=prog_in>                  " Value: " + varAttributes(I).textString&ltRE class=prog_in>    Next&ltRE class=prog_in>    MsgBox "The attributes for blockReference " + _&ltRE class=prog_in>                   blockRefObj.Name & " are: " & vbCrLf _&ltRE class=prog_in>                   & strAttributes&ltRE class=prog_in>&ltRE class=prog_in>    ' 更改属性值&ltRE class=prog_in>    ' 注意：没有 SetAttributes。 一旦包含&ltRE class=prog_in>    ' 变量数组，就拥有了对象。&ltRE class=prog_in>    ' 更改这些对象就会改变图形中的对象。&ltRE class=prog_in>    varAttributes(0).textString = "NEW VALUE!"&ltRE class=prog_in>&ltRE class=prog_in>    ' 再次获取属性&ltRE class=prog_in>    Dim newvarAttributes As Variant&ltRE class=prog_in>    newvarAttributes = blockRefObj.GetAttributes&ltRE class=prog_in>&ltRE class=prog_in>    ' 再次显示标记和值&ltRE class=prog_in>    strAttributes = ""&ltRE class=prog_in>    For I = LBound(varAttributes) To UBound(varAttributes)&ltRE class=prog_in>      strAttributes = strAttributes + " Tag: " + _&ltRE class=prog_in>                  newvarAttributes(I).TagString + vbCrLf + _&ltRE class=prog_in>                  " Value: " + newvarAttributes(I).textString&ltRE class=prog_in>    Next&ltRE class=prog_in>    MsgBox "The attributes for blockReference " & _&ltRE class=prog_in>                  blockRefObj.Name & " are: " & vbCrLf _&ltRE class=prog_in>                  & strAttributes&ltRE class=prog_in> &ltRE class=prog_in>注意其中这句话：&ltRE class=prog_in>    ' 注意：没有 SetAttributes。 一旦包含&ltRE class=prog_in>    ' 变量数组，就拥有了对象。&ltRE class=prog_in>    ' 更改这些对象就会改变图形中的对象。

zxj_76 发表于 2006-7-17 15:45:00

谢谢，我试试！

palagon 发表于 2006-12-22 14:01:00

代码好复杂，去掉显示用的那些其实很少（我可以手工查看属性是否已经改变）
不过我还是搞不定啊，没有变化啊

leo_zp_yang 发表于 2007-10-16 18:07:00

试试先!
页: [1]
查看完整版本: [VBA] 块属性定义与修改