[VBA] 块属性定义与修改

zxj_76

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

霹雳啪啦啦

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

zxj_76

谢谢，我试试！

palagon

代码好复杂，去掉显示用的那些其实很少（我可以手工查看属性是否已经改变）

不过我还是搞不定啊，没有变化啊

leo_zp_yang

试试先!