Hi
I have this code;
Sub selectABlockOnALayer()
Dim sset As AcadSelectionSet
Set sset = ThisDrawing.SelectionSets.Add("EXCEPTIONS-BLOCK3")
Dim filterType As Variant
Dim filterData As Variant
Dim p1(0 To 2) As Double
Dim p2(0 To 2) As Double
Dim grpCode...