如何得到实体（Entity）的扩展信息？

xiaoming_x

如何得到实体（Entity）的扩展信息？例如Polyline、Line等实体，用GetXData可以吗？扩展信息的组码是-3吗？请各位不吝赐教，能够提供源代码最好了！先谢谢各位！

liyuwen

不妨参考如下代码（获得块“XDATA”的扩展信息）
...
If StrComp(BlkObj.Name, "XData", 1) = 0 Then
Dim DataTypeOut As Variant, DataValueOut As Variant
BlkObj.GetXData "", DataTypeOut, DataValueOut
XdataCode = CStr(DataValueOut(1))
End If
...