[求助]有关选择集和实体扩展数据的问题

xiaoye

程序在绘图过程中将一些信息写入了多边形实体的扩展数据中，然后在建立选择集时（例如建立一个与某大多边形相交及落在其内部的多边形选择集），发现落在其内部的多边形无法选中。

    但是如果在绘图过程中不向多边形实体的扩展数据中写入信息，则建立选择集正确!请问这是怎么回事啊？还望各位大侠不吝赐教！

wyj7485

把程序贴上来看看

xiaoye

前两天没来这看，呵呵。

下面这段代码是写信息到扩展数据：

'向实体对象的扩展数据中添加属性
'strPropty：传递参数，实体属性信息
'pEntity：传递参数，需要写入属性信息的对象
Private Function AddProperty(strPropty As String, pEntity As AcadEntity)
    Dim DataType(0 To 1) As Integer
    Dim Data(0 To 1) As Variant
   
    DataType(0) = 1001: Data(0) = "GIS"    '应用程序主题
    DataType(1) = 1000: Data(1) = strPropty    
   
    pEntity.SetXData DataType, Data
   
End Function

 

 

这是建立选择集的代码：

'获取边界内部和与边界相交的闭合线选择集
If Not IsNull(ThisDrawing.SelectionSets.Item("AllTSet")) Then
    Set AllSet = ThisDrawing.SelectionSets.Item("AllTSet")
    AllSet.Delete
End If
Set AllSet = ThisDrawing.SelectionSets.Add("AllTSet")   '新建一个选择集
'定义选择集过滤器
intFType(0) = 0:    varFData(0) = "polyline"
intFType(1) = 8:    varFData(1) = LyerName '待选图形所在图层名
'选中LyerName图层中与VBPnts(为某一大边界线节点坐标序列)相交和在其内部的所有闭合线实体
AllSet.SelectByPolygon acSelectionSetCrossingPolygon, VBPnts, intFType, varFData

劳烦各位了！

放纵

怎么用选择集来选择符合条件的扩展数据啊？