请教，还是选择集的问题

nami

请教，要过滤出名为"LATE"的块，下面这段程序有什么问题吗？怎么过滤不出来，.COUNT老是0
        Point1 = ThisDrawing.Utility.GetPoint(, "Select the first point")
        point2 = ThisDrawing.Utility.GetCorner(Point1, "Select second point")
        BKCode(0) = 0
        BKDataValue(0) = "BLOCK"
        BKCode(1) = 2
        BKDataValue(1) = "LATE"
        myss.Select acSelectionSetWindow, Point1, point2, BKCode, BKDataValue
谢先！

mccad

nami

THANK YOU VERY MUCH