求教如何在VBA中使用Xdata

阿修兰

Dim objEntity As AcadEntity
Dim ptbase As Variant
ThisDrawing.Utility.GetEntity objEntity, ptbase, "选择目标图层中的实体>>" Dim DataType(0) As Integer
Dim Data(0) As Variant
DataType(0) = 1001 Data(0) = "居民地" objEntity.SetXData DataType, Data
Dim xdataOut As Variant
Dim xtypeOut As Variant
objEntity.GetXData "", xtypeOut, xdataOut 获取的xtypeout 和xdataout 皆为空值，请教各位大侠如何获取xdata的内容

雪山飞狐_lzh

你只有1001码，SetXdata并没有起作用