SelectionSets.add("xx") not working for me
Use these functions instead. If you're using these functions outside of acad, then in AddSelectionSet method, change ThisDrawing to an acad Document object or set a new var called ThisDrawing.
Public Function GetAcad(Optional ver As String) As AcadApplication
' support multiple acad versions.
'Sample ver for AutoCAD 2023 ' ".24.2"
On Error Resume Next
Dim acApp As AcadApplication
Dim clsid As String
clsid = "AutoCAD.Application"
If Not ver = "" Then
clsid = clsid & ver
End If
Set acApp = GetObject(, clsid)
If acApp Is Nothing Then
Set acApp = CreateObject(clsid)
End If
Set GetAcad = acApp
End Function
Public Function AddSelectionSet(SetName As String) As AcadSelectionSet
' This routine does the error trapping neccessary for when you want to create a
' selectin set. It takes the proposed name and either adds it to the selectionsets
' collection or sets it.
On Error Resume Next
Set AddSelectionSet = ThisDrawing.SelectionSets.Add(SetName)
If Err.Number <> 0 Then
Set AddSelectionSet = ThisDrawing.SelectionSets.item(SetName)
AddSelectionSet.Clear
End If
End Function
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
Change line 18 to
Set sset = AddSelectionSet("test")
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
@Timothy_BrooksU4G6R wrote:
and just curious, new here, how do make code look like code with line numbers?
See the comment that was made to your first post.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
@Timothy_BrooksU4G6R wrote:
here is the current code...
You didn't use my functions I gave you.
Public Function AddSelectionSet(SetName As String) As AcadSelectionSet
' This routine does the error trapping neccessary for when you want to create a
' selectin set. It takes the proposed name and either adds it to the selectionsets
' collection or sets it.
On Error Resume Next
Set AddSelectionSet = ThisDrawing.SelectionSets.Add(SetName)
If Err.Number <> 0 Then
Set AddSelectionSet = ThisDrawing.SelectionSets.item(SetName)
AddSelectionSet.Clear
End If
End Function
Public Function GetAcad(Optional ver As String) As AcadApplication
' support multiple acad versions.
'Sample ver for AutoCAD 2023 ' ".24.2"
On Error Resume Next
Dim acApp As AcadApplication
Dim clsid As String
clsid = "AutoCAD.Application"
If Not ver = "" Then
clsid = clsid & ver
End If
Set acApp = GetObject(, clsid)
If acApp Is Nothing Then
Set acApp = CreateObject(clsid)
End If
Set GetAcad = acApp
End Function
Sub testing()
Dim acadApp As AcadApplication
Dim acadDoc As AcadDocument
Dim sset As AcadSelectionSet
Set acadApp = GetAcad()
Set acadDoc = acadApp.ActiveDocument
Set sset = AddSelectionSet("test")
'Dim filterType As Variant - must be an array
'Dim filterData As Variant - must be an array
Dim filterType(0) As Variant
Dim filterData(0) As Variant
Dim p1(0 To 2) As Double
Dim p2(0 To 2) As Double
'p1 = 0
'p2 = 0
'Proper setting of array, however this is unnecessary because
'the default for a double is 0.
p1(0) = 0; p1(1) = 0; p1(2) = 0
'search by block name
filterType(0) = 2
'block name to search for
filterData(0) = "Arion_ARCH_B_L"
'sset.Select acSelectionSetAll, 0, 0, 2, "Arion_Arch_B_L"
sset.Select acSelectionSetAll, pt1, pt2, FilterType, FilterData
If TypeOf sset.item(0) Is AcadAttributeReference Then
Debug.Print sset.item(0).GetAttributes.TagString.TextString
End If
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
@Timothy_BrooksU4G6R wrote:
Well basically, I use your code for the selectionset just moved to be within the sub instead of a function, and didn't need the GetAcad, my original code already had gotten cad.
My functions use OnError to trap the errors. You don't want to do that inside your main function. It's best to encapsulate specific tasks, especially if you're doing error trapping. You want that error to stay in the function where the error is in order to make debugging easier. Otherwise and error could "bubble up" to a higher level function.
But I tried it as function to and still got errors, my comment are the two ‘’
AddSelectionSet only creates an AcadSelectionSet object. You still have to execute a SelectXXX method. On line 6, you need parenthesis after GetAcad() because it is on the right side of a set statement. This tells the compiler that it is a function and not a variable.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
@Timothy_BrooksU4G6R wrote:
Yes but your function return an AcadSelectionSet which should be an array of SelectionSet with the first indexed item named 'test'.
No, The SelectionSets collection contains SelectionSet objects. When you create a new SelectionSet, it will be empty until you execute a Select method. Then it will contain objects that derive from AcadEntity, not SelectionSet objects.
I posted this a few post back..
Debug.Print acadDoc.SelectionSets(0).Name 'yeap the word "test" printedon line 28 29
In that line, you are getting the name of the SelectionSet at index 0 of the SelectionSets collection. If you ask for the Count property, it will be 0 because you haven't selected any objects yet.
On the code where I posted that, I got pass creating the Selection, my code was then erroring on this line item, try to load the Selection by search for block name 'Arion_ARCH_B_L'
like I said most all of the was working in 2024 so don't why didn't in 2020 version
sset.Select acSelectionSetAll, 0, 0, 2, "Arion_Arch_B_L"That is the wrong syntax for passing a selection set filter. I didn't pay attention to it sooner. I was focused on your other problems. See the documentation for the Select method. There is a sample code. Points are 3D arrays. Dim pt(0 to 2) As Double. This will create an array with the defaults at each index, which is 0 for doubles. I edited the code in post 8.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
Glad that you "solved" your code issue. However, if you want to keep working with AutoCAD VBA, you may need to know:
1. Regarding to
Dim sset As AutocadSelectionSet
It is not a bug with AutoCAD 2020, nor with ANY AutoCAD version. There is no such thing "AutoCADSelectionSet". It should be AcadSelectionSet.
2. While you can do
Dim sset As Variant
and this code works, but it is not NECESSARY (it is called late-binding: the code does not specify wat the data type for variable "sset" is, and relies on AutoCAD to figure out it is the type of AcadSelectionSet at runtime). Al least, doing this, you lose VBA editor's intellisense (i.e. while you type "sset.", VBA editor does not pops up dropdown tips to show available options for properties/methods, such as "Count"). And, if you click menu "Debug=> Compile XXXXX" to compile your code, VBA would not fond possible error of late-bound variables. for example, if you accidently do
Dim sset as Variant
...
sset.SetName "xxx"
where you accidently use a non-exist method name "SetName", the code would still compile, but would error out at runtime.
So, you DO NOT HAVE TO declare the variable for selection set as "Variant". Event making it Variable works, you should declare it as AcadSelectionSet, as best practice.
@Timothy_BrooksU4G6R That tells me that there is a problem with your project references, since variant is a vba type and not an acad type. You must have a reference set to the wrong acad tlb. A dvb can only bind to one acad version at a time. For example, if you have a dvb for 2020 and then use that in 2025, then acad will remove the reference to the 2020 tlb and add a reference to the 2025 tlb and recompile the dvb. You will no longer be able to use the dvb in 2020.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
