[求助]：在vba中如何以一条多义线为边界创建一个选择集?

njyulei

在vba中如何以一条多义线为边界创建一个选择集? 请大家帮忙，

左权

Dim LTK(1) As Integer                 '''组码
  Dim LTKSJ(1) As Variant

XZJ_Point(0) = GC_point(0) - 8
                XZJ_Point(1) = GC_point(1) - 8
                XZJ_Point(2) = 0
                XZJ_Point(3) = GC_point(0) - 8
                XZJ_Point(4) = GC_point(1) + 8
                XZJ_Point(5) = 0
                XZJ_Point(6) = GC_point(0) + 8
                XZJ_Point(7) = GC_point(1) + 8
                XZJ_Point(8) = 0
                XZJ_Point(9) = GC_point(0) + 8
                XZJ_Point(10) = GC_point(1) - 8
                XZJ_Point(11) = 0
               
                LTK(0) = 0
                LTKSJ(0) = "TEXT"
                LTK(1) = 8
                LTKSJ(1) = FSJ(1)
               
                Dim point_Se As AcadSelectionSet
                                    point_Se.SelectByPolygon acSelectionSetWindowPolygon, XZJ_Point, LTK, LTKSJ