angelayang 发表于 2010-4-20 14:35:00

怎样取得块属性的插入点？

<p>我设法实现 burst　那样的功能。炸开属性块，把属性值处理成文本。</p><p>现在不懂怎样取得块属性的插入点，及相关的字体大小等。</p><p>我就会 Dim varAttributes As Object　= 　myblock.GetAttributes<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For I&nbsp; As Integer= LBound(varAttributes) To UBound(varAttributes)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;varAttributes(I).TagString ....</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;varAttributes(I).textString....</p><p>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; next</p><p>&nbsp;这样可取得属性标签及值</p><p>那属性的插入点坐标，字体那些怎么取得呢？</p>

雪山飞狐_lzh 发表于 2010-4-20 17:31:00

<p>你的代码调用的还是com库，该发到VBA版的</p><p><a href="http://www.mjtd.com/object/acad2004/idh_attributeref_object.htm">http://www.mjtd.com/object/acad2004/idh_attributeref_object.htm</a></p>

chpmould 发表于 2010-11-9 12:42:00

了解下。。。
页: [1]
查看完整版本: 怎样取得块属性的插入点？