Presentación de información sobre un conjunto de selección

AutoCAD ActiveX

previous page next page

Filtro para datos extendidos

Trabajo con conjuntos de selección

Eliminación de objetos de un conjunto de selección

Manual del desarrollador de ActiveX y VBA > Creación y edición de entidades de AutoCAD > Trabajo con conjuntos de selección >

Presentación de información sobre un conjunto de selección

Si desea referirse a un conjunto de selección cuyo nombre conoce, utilice su nombre. En el siguiente ejemplo, se hace referencia a un conjunto de selección denominado “SS10”:

Sub GetObjInSet()

  Dim selset As AcadSelectionSet

  Set selset = ThisDrawing.SelectionSets("SS10")

      MsgBox ("Selection set " & selset.Name & " contains " & _
        selset.Count & " items")
        End Sub

Los conjuntos de selección de un dibujo son miembros de la colección SelectionSets. Se puede utilizar la instrucción For Each para iterar en toda la colección SelectionSets de un dibujo y recoger información acerca de cada conjunto.

Presentación del nombre de los conjuntos de selección de un dibujo

El siguiente código muestra el nombre de todos los conjuntos de selección de un dibujo, junto con el tipo de los objetos incluidos en cada uno.

Sub ListSelectionSets()

  Dim selsetCollection As AcadSelectionSets

  Dim selset As AcadSelectionSet

  Dim ent As Object

  Dim i, j As Integer

        Set selsetCollection = ThisDrawing.SelectionSets
              ' Find each selection set in the drawing
        i = 0
        For Each selset In selsetCollection
          MsgBox "Selection set " & CStr(i) & " is: " & selset.Name
                ' Now find each object in the selection set, and say what it is
          j = 0
          For Each ent In selset
             MsgBox "Item " & CStr(j + 1) & " in " & selset.Name _ 
               & "is: " & ent.EntityName
             j = j + 1
          Next
          i = i + 1
        Next
            End Sub

previous page start next page