Can anybody help me with this one...
I've defined a SelectionSet that should contain all the Blocks on a certain layer... The Blocks all need to be 3Dmirrored.
When I do this with 3DSolids in a SelectionSet everything works as it should.
For some reason (I can't figure it out) the Blocks are not in the SelectionSet since the Mirror3D piece is being skipped.
The Blocks are on the layer "Handgreep".
Here's the code:
---------------------------------------------------------------------
Public Sub MirrorBlocks()
Dim GpCode(0) As Integer
Dim GpData(0) As Variant
GpCode(0) = 8
GpData(0) = "Handgreep"
Dim Mode As Integer
Dim Filtype, FilData As Variant
Filtype = GpCode
FilData = GpData
Mode = acSelectionSetAll
Dim newSSet As AcadSelectionSet
Set newSSet = ACADProject.ThisDrawing.SelectionSets.Add("newSel")
newSSet.Select Mode, , , Filtype, FilData
Dim ssObject As AcadEntity
Dim EntMirror As AcadEntity
Dim mirrorpoint1(0 To 2) As Double
Dim mirrorpoint2(0 To 2) As Double
Dim mirrorpoint3(0 To 2) As Double
mirrorpoint1(0) = 0
mirrorpoint1(1) = 0
mirrorpoint1(2) = 0
mirrorpoint2(0) = 100
mirrorpoint2(1) = 0
mirrorpoint2(2) = 0
mirrorpoint3(0) = 100
mirrorpoint3(1) = 0
mirrorpoint3(2) = 100
'when using blocks in newSSet it skips this part
For Each ssObject In newSSet
Set EntMirror = ssObject.Mirror3D _
(mirrorpoint1, mirrorpoint2, mirrorpoint3)
Next ssObject
newSSet.Erase
newSSet.Clear
End Sub
---------------------------------------------------------------------
Thanx in advance
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Foren auf CAD.de
| 
but I haven't changed a thing... Don't ask me...
