Selects objects and places them into a
selection set.
Signature
VBA : object.Select Mode[, Point1][, Point2][, FilterType][,
FilterData]
VLA : (vla-Select object Mode
Point1 Point2 FilterType FilterData)
(vla-Select newSet
acSelectionSetAll)
- Object : SelectionSet
The object or objects this method applies to.
- Mode : AcSelect enum;
input-only
acSelectionSetWindow
acSelectionSetCrossing
acSelectionSetPrevious
acSelectionSetLast
acSelectionSetAll
- Point1 : Variant (array of
doubles); input-only; optional
The 3D WCS coordinates, or array of coordinates, specifying Point1.
See the mode definitions above for the proper use of Point1.
- Point2 : Variant (three-element
array of doubles); input-only; optional
The 3D WCS coordinates specifying Point2. See the mode definitions
above for the proper use of Point2.
- FilterType : Integer; input-only;
optional
A DXF group code specifying the type of filter to use.
- FilterData Variant; input-only;
optional
The value to filter on.
Remarks
This method supports the filtering mechanism.
The following selection modes are available:
- Window: Selects all entities
completely inside a rectangular area whose corners are defined by
Point1 and Point2.
- Crossing: Selects objects within
and crossing a rectangular area whose corners are defined by Point1
and Point2.
- Previous: Selects the most recent
selection set. This mode is ignored if you switch between paper and
model space and attempt to use the selection set.
- Last: Selects the most recently
created visible entity.
- All: Selects all entities.
For more selection mode options, see
the SelectByPolygon, SelectAtPoint, and SelectOnScreen methods.
Refer to Visual
Lisp - Selection Objects for more details.
Example :
(defun c:al-select ()
(vl-load-com)
(setq thisdrawing (vla-get-activedocument
(vlax-get-acad-object)))
(setq ssets (vla-get-selectionsets thisdrawing))
(if (vl-catch-all-error-p
(vl-catch-all-apply 'vla-item (list ssets "$Set")))
(setq newSet (vla-add ssets "$Set"))
(progn
(vla-delete (vla-item ssets "$Set"))
(setq newSet (vla-add ssets "$Set"))
);progn
);if
(vla-Select newSet acSelectionSetAll)
(princ)
);defun
|
|