xcl0_0 发表于 2006-10-20 13:55:00

关于一个块中有多个属性文字，如何返回选择的那个

求助：一个块中有多个属性文字，在选取后返回的是整个块，我要返回（修改），我选中的那个属性值，请知道的赐教！

霹雳啪啦啦 发表于 2006-10-21 15:45:00

这个我开发过。用GetSubEntity方法，可以直接选择到单个属性

zdfwyh 发表于 2006-10-23 13:54:00

<P>Private Sub SetAtt()<BR>Dim obj As AcadBlockReference<BR>Dim varAttributes As Variant</P>
<P>&nbsp;&nbsp;&nbsp; Set obj =&nbsp;......</P>
<P>&nbsp;&nbsp;&nbsp; varAttributes = obj.GetAttributes<BR>&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp; Dim strAttributes As String<BR>&nbsp;&nbsp;&nbsp; Dim i As Integer<BR>&nbsp;&nbsp;&nbsp; For i = LBound(varAttributes) To UBound(varAttributes)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If UCase(varAttributes(i).TagString) = "模块代号01" Then varAttributes(i).TextString ="A"</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If UCase(varAttributes(i).TagString) = "模块代号02" Then varAttributes(i).TextString =&nbsp;"B"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If UCase(varAttributes(i).TagString) = "模块代号03" Then varAttributes(i).TextString = "C"</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp; next i</P>
<P>end sub</P>

xcl0_0 发表于 2006-10-24 10:30:00

用GetSubEntity方法，我搞定了，谢谢！

bjbjbjbj 发表于 2006-12-1 12:19:00

<TABLE class=tablebody2 style="TABLE-LAYOUT: fixed; WORD-BREAK: break-all" width="90%" border=0>
<TBODY>
<TR>
<TD style="FONT-SIZE: 9pt; LINE-HEIGHT: 12pt" width="100%"><IMG alt=发贴心情 src="http://www.mjtd.com/bbs/skins/default/topicface/face1.gif" border=0>&nbsp;<B></B><BR>
<P>谢谢了。搞定了</P></TD></TR></TBODY></TABLE>

adison 发表于 2006-12-16 12:39:00

用GetSubEntity方法是可以返回属性值，但不知道如何同时获得该属性所在块的名称？

bjbjbjbj 发表于 2006-12-22 19:17:00

建议看下物体属性

mccad 发表于 2006-12-22 20:03:00

GetSubEntity方法带有ContextData参数，用于返回所有嵌套对象的ID，通过它可以得到属性块等信息。

剧毒噬骨 发表于 2013-1-1 12:34:52

明经里面都是高手呀

东山V 发表于 2013-11-1 15:12:54

想做一个获取图栏文字的小软件,能用这个方法实现吗
页: [1]
查看完整版本: 关于一个块中有多个属性文字，如何返回选择的那个