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

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：   注册？ 验证：  防止恶意留言请输入问题答案：1*9=?
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字	表  情