Search the Community
Showing results for tags 'specific layer'.
Found 1 result
-
VBA Selction sets. Select a list of blocks that exist on a specific layer
callvey posted a topic in .NET, ObjectARX & VBA
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(0 To 1) As Integer grpCode(0) = 8 grpCode(1) = 2 filterType = grpCode Dim grpValue(0 To 1) As Variant grpValue(0) = "FXPM" grpValue(1) = "4PLUG" filterData = grpValue sset.Select acSelectionSetAll, p1, p2, filterType, filterData Debug.Print "Entities: " & str(sset.count) sset.Delete End Sub I understand the code only selects 1 type of block on a layer but I cant even get that to work! I am trying to select 89 different types of block that exist on a specific layer. Is this something that can be done using VB? Any advice would be great. Thanks Tom