保留选择集

保留选择集

程序代码：

 Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim acCurDb As Database = acDoc.Database
        Dim acTypValAr(0) As TypedValue
        acTypValAr.SetValue(New TypedValue(DxfCode.Start, "TCH_WALL"), 0)
        Dim acSelFtr As SelectionFilter = New SelectionFilter(acTypValAr)
        Dim acSSPrompt As PromptSelectionResult = acDoc.Editor.GetSelection(acSelFtr)
        If acSSPrompt.Status = PromptStatus.OK Then
            '选择成功
            Dim acSSet As SelectionSet = acSSPrompt.Value
            Dim New_acSSet As SelectionSet = acSSPrompt.Value
            '保留选择集的选择状态
            Dim IDs() As ObjectId = acSSPrompt.Value.GetObjectIds
            If IDs IsNot Nothing Then
                acDoc.Editor.SetImpliedSelection(IDs)
            End If
        End If