1、根据图块名过滤
Dim tksTV(0) As DatabaseServices.TypedValue tksTV.SetValue(New DatabaseServices.TypedValue(DatabaseServices.DxfCode.BlockName, tkNames), 0) Dim tksFilter As New EditorInput.SelectionFilter(tksTV) Dim tksPSR As Autodesk.AutoCAD.EditorInput.PromptSelectionResult tksPSR = doc.Editor.GetSelection(tksFilter)
原文：https://www.cnblogs.com/rf8862/p/13956390.html