cad怎么选择一个对象打散vba_AutoCAD VBA对象的组合和拆散

Sub AddUnNameGroup()

Dim SelObjects As AcadSelectionSet

Dim appendObjs() As AcadEntity

Set SelObjects = GetSelSet

Dim UnNameGroup As AcadGroup

Set UnNameGroup = ThisDrawing.Groups.Add("*")

ReDim appendObjs(0 To SelObjects.Count - 1)

Dim i As Integer

For i = 0 To SelObjects.Count - 1

Set appendObjs(i) = SelObjects.Item(i)

Next

UnNameGroup.AppendItems appendObjs

End Sub

Public Function GetSelSet() As AcadSelectionSet

Dim ss As AcadSelectionSet

Set ss = ThisDrawing.PickfirstSelectionSet

If ss.Count = 0 Then

Dim ssName As String

ssName = "strSSet"

On Error Resume Next

Set ss = ThisDrawing.SelectionSets(ssName)

If Err Then Set ss = ThisDrawing.SelectionSets.Add(ssName)

ss.Clear

ss.SelectOnScreen

End If

Set GetSelSet = ss

End Function

Sub DelUnNa