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

angelayang

我设法实现 burst　那样的功能。炸开属性块，把属性值处理成文本。

现在不懂怎样取得块属性的插入点，及相关的字体大小等。

我就会 Dim varAttributes As Object　= 　myblock.GetAttributes
                   For I  As Integer= LBound(varAttributes) To UBound(varAttributes)
                          varAttributes(I).TagString ....

                          varAttributes(I).textString....

                    next

 这样可取得属性标签及值

那属性的插入点坐标，字体那些怎么取得呢？

雪山飞狐_lzh

你的代码调用的还是com库，该发到VBA版的

http://www.mjtd.com/object/acad2004/idh_attributeref_object.htm

chpmould

了解下。。。