能否告诉我如何框选屏幕上的一个块，不选其他，谢谢

qsl707

能否告诉我如何框选屏幕上的一个块，不选其他，谢谢

tnt1095

dim ft(0) as integer

dim dt(0) as variant

ft(0)=0

dt(0)="insert"

再用选择集选择就可以了

mayuezxl

Sub CadBlock()
    Dim tempBlock As Variant
    Dim msg As String
    Dim SsetObj As AcadSelectionSet
    Dim FilterType(0) As Integer, filterDate(0) As Variant
   
      FilterType(0) = 0
      filterDate(0) = "insert"
   
     Do While ThisDrawing.SelectionSets.Count > 0 '=====安全创建选择集
         ThisDrawing.SelectionSets.Item(0).Delete
     Loop
       Set SsetObj = ThisDrawing.SelectionSets.Add("CadBlock")
       SsetObj.SelectOnScreen FilterType, filterDate
     For Each tempBlock In SsetObj
       msg = tempBlock.Name
       MsgBox msg
     Next tempBlock
       SsetObj.Delete
End Sub

qsl707

非常感谢