阿修兰 发表于 2004-9-7 13:19:00

求教如何在VBA中使用Xdata

Dim objEntity As AcadEntity<BR>Dim ptbase As Variant<BR>ThisDrawing.Utility.GetEntity objEntity, ptbase, "选择目标图层中的实体&gt;&gt;"


Dim DataType(0) As Integer<BR>        Dim Data(0) As Variant<BR>DataType(0) = 1001


Data(0) = "居民地"


objEntity.SetXData DataType, Data<BR>Dim xdataOut As Variant<BR>Dim xtypeOut As Variant<BR>objEntity.GetXData "", xtypeOut, xdataOut


获取的xtypeout 和xdataout 皆为空值，请教各位大侠如何获取xdata的内容

雪山飞狐_lzh 发表于 2004-9-7 13:36:00

你只有1001码，SetXdata并没有起作用
页: [1]
查看完整版本: 求教如何在VBA中使用Xdata