如何根据xdata来构造选择集

tnt1095

如何根据实体的xdata来构造选择集，选择出xdata具有某特征的实体

alin

http://discussion.autodesk.com/thread.jspa?messageID=429442

wyj7485

转载如下:

'加入扩展数据

Public Function AddXDATA()
Dim returnObj As AcadObject
ReDim xtype(0 To 1) As Integer
ReDim xdata(0 To 1) As Variant
Dim basePoint(0 To 2) As Double

ThisDrawing.Utility.GetEntity returnObj, basePnt, "Select an object"
xtype(0) = 1001: xdata(0) = "AAA"
xtype(1) = 1000: xdata(1) = "888"
returnObj.SetXDATA xtype, xdata
End Function

'建选择集

Public Function FindEntByXData()
Dim tempsset1 As AcadSelectionSet Dim filterType1(1) As Integer
Dim filterData1(1) As Variant
filterType1(0) = 1001: filterData1(0) = "AAA"
filterType1(1) = 1000: filterData1(1) = "888"
Set tempsset1 = acadDoc.SelectionSets.Add("SSet")
tempsset1.Clear
tempsset1.Select acSelectionSetAll, , , filterType1, filterData1
tempsset1.Delete
End Function

雪山飞狐_lzh

除了轻量级多段线外，1000码不能做为过滤条件

tnt1095

谢谢楼上各位