[已解决]如何把选择集添加到块呢？

nhy12345678

Sub addblock() '创建块
Dim p As Variant
Dim blockObj As AcadBlock
Dim ss As AcadSelectionSet
Set ss = ThisDrawing.SelectionSets.Add("ss")
ss.SelectOnScreen
Set blockObj = ThisDrawing.Blocks.Add(p, "abc")

'这里怎么写呢？

ss.Delete
End Sub

谢谢高手们指点！

nhy12345678

已经解决了！

Sub addblock() '创建块
Dim p As Variant
Dim blockObj As AcadBlock
Dim ss As AcadSelectionSet
Dim i As Long
Dim obj() As AcadEntity
Set ss = ThisDrawing.SelectionSets.Add("ss")
ss.SelectOnScreen
i = 0
For Each ent In ss
    Set obj(i) = ent
    i = i + 1
Next
Set blockObj = ThisDrawing.Blocks.Add(p, "abc")
ThisDrawing.CopyObjects obj, blockObj
ss.Delete
End Sub