[求助]关于VBA方式利用ObjectDbx在当前图形中插入其它未打开的图形中的图块的问题？

kiki77

请问：VBA方式利用ObjectDbx在当前图形中插入其它未打开的图形中的图块时，能否将图块中的一些“定义属性标记”进行赋值，然后再进行插入？
怎样用VBA代码实现？

雪山飞狐_lzh

插入后再改

Signature

RetVal = object.GetAttributes()

Object

MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_blockref_object.htm" target="_blank" >BlockRef, MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_externalreference_object.htm" target="_blank" >ExternalReference, MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_minsertblock_object.htm" target="_blank" >MInsertBlock
The object or objects this method applies to.

RetVal

Variant (array of AttributeReference objects)
The array of MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_attributeref_object.htm" target="_blank" >AttributeReference objects.

kiki77

斑竹能不能说详细一点，谢谢！

雪山飞狐_lzh

object.GetAttributes获得插入块参照的属性数组，再历遍该数组，给属性的TextString属性赋值

kiki77

谢谢斑竹，已经解决了！