Mirroring selection sets in Autocad VBA

[brucem]

Can selection sets be mirrored or copied as a group? I am using VB in Autocad 14.

 

[tigrek]

Hi

I wrote just now the code for mirroring a selection set and posted it on FAQ area.

I tested it about a dozen times on Acad2000 - looks OK.

Please try on Acad14 and let us see if any bugs show up.

Maybe you could revise it for COPY and tell us about it.

Thanks.

 

[tigrek]

Sorry, it was not appropriate as FAQ. Here is the code for you:

Sub Tigrek_MirrorSelectionSet()
'

http://www.homescript.com

' This example mirrors all entities in a selection set
' made by picking on screen
' I wrote this code today and tested a dozen times
' but there may still be bugs - would appreciate feedback posts here
Dim ssTigrek As AcadSelectionSet
Set ssTigrek = ThisDrawing.SelectionSets.Add("TIGREK_SSET1&quot
' Add entities to a selection set by prompting user to select on the
screen
ssTigrek.SelectOnScreen
'get the points for mirror axis:
Dim point1 As Variant
point1 = ThisDrawing.Utility.GetPoint(, "Enter first point of mirror
axis: &quot
Dim point2 As Variant
point2 = ThisDrawing.Utility.GetPoint(point1, "Enter second point: &quot
Dim mirrorObj As AcadEntity
For I = 0 To ssTigrek.Count - 1
Set mirrorObj = ssTigrek(I).Mirror(point1, point2)
Next
ThisDrawing.SelectionSets("TIGREK_SSET1&quot.Delete
End Sub