如何得到一个闭合的线段中的文本对象？

cgboy88

这个闭合的线段可以是任何的形状。如果得到这个对象中的文本？

最好是VBA程序，谢谢！

lgf727

找出所有的文件，得出其包围的外框，做成面域，与闭合线段做的面域做比较。

alin

SelectByPolygon 方法得到

cgboy88

我的程序如下，为何总找不到文本？

Sub Example_Select()
    Dim ssetObj As AcadSelectionSet
   
    Dim ent As AcadEntity
    Dim Points
    Dim n As Integer
   
    ThisDrawing.SelectionSets.item(0).Delete
    Set ssetObj = ThisDrawing.SelectionSets.Add("SSET")
   
    Dim FilterType(0) As Integer
    Dim FilterData(0) As Variant

    FilterType(0) = 0
    FilterData(0) = "TEXT"
    Dim coor() As Double
   
    For Each ent In ThisDrawing.ModelSpace
        If ent.ObjectName = "AcDbPolyline" Then
           
            Points = ent.Coordinates
            n = UBound(Points)
           
            ReDim coor(n + (n + 1) / 2)

　　　'因为画的线是2D的，改变坐标为3D
            For i = 0 To n Step 2
                coor(i) = Points(i)
                coor(i + 1) = Points(i + 1)
                coor(i + 2) = 0
            Next
           
            ssetObj.SelectByPolygon acSelectionSetWindowPolygon, coor, FilterType, FilterData
           
            If ssetObj.Count > 0 Then
                MsgBox "找到" & ssetObj.item(0).TextString
            Else
                MsgBox "没找到"
            End If
       
        End If
    Next
    ssetObj.Delete
End Sub

cgboy88

　　　'因为画的线是2D的，改变坐标为3D
            For i = 0 To n Step 2
                coor(i) = Points(i)
                coor(i + 1) = Points(i + 1)
                coor(i + 2) = 0
            Next
这段程序改为如下：

        j = 0
        For i = 0 To n Step 2
            coor(j) = Points(i)
            coor(j + 1) = Points(i + 1)
            coor(j + 2) = 0
            j = j + 3
        Next

tnt1095

同意斑竹的话，你选择出来实体后，再过滤就可以了啊