Removes specified items from the group or selection set.
Supported platforms: Windows only
VBA:
object.RemoveItems Objects
Type: Group, SelectionSet
The objects this method applies to.
Access: Input-only
Type: Variant (array of objects)
An array of objects to be removed.
No return value.
Items removed from a group or selection set remain in the drawing; they are simply no longer associated to the group or selection set. This functionality mimics the functionality found in the Clear method, except that RemoveItems allows you to specify individual items to be removed instead of the entire selection set.
This method differs from the Delete and Erase methods in that it does not remove objects from the drawing.
VBA:
Sub Example_RemoveItems() ' This example creates a selection set and several objects. ' It adds the objects to the selection set, and then ' removes two of the objects from the selection set. ' Create the new selection set Dim ssetObj As AcadSelectionSet Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SELECTIONSET") ' Create a Ray object in model space Dim rayObj As AcadRay Dim basePoint(0 To 2) As Double Dim SecondPoint(0 To 2) As Double basePoint(0) = 3#: basePoint(1) = 3#: basePoint(2) = 0# SecondPoint(0) = 1#: SecondPoint(1) = 3#: SecondPoint(2) = 0# Set rayObj = ThisDrawing.ModelSpace.AddRay(basePoint, SecondPoint) ' Create a polyline object in model space Dim plineObj As AcadLWPolyline Dim points(0 To 5) As Double points(0) = 3: points(1) = 7 points(2) = 9: points(3) = 2 points(4) = 3: points(5) = 5 Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points) plineObj.Closed = True ' Create a line object in model space Dim lineObj As AcadLine Dim startPoint(0 To 2) As Double Dim endPoint(0 To 2) As Double startPoint(0) = 0: startPoint(1) = 0: startPoint(2) = 0 endPoint(0) = 2: endPoint(1) = 2: endPoint(2) = 0 Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint) ' Create a circle object in model space Dim circObj As AcadCircle Dim centerPt(0 To 2) As Double Dim radius As Double centerPt(0) = 20: centerPt(1) = 30: centerPt(2) = 0 radius = 3 Set circObj = ThisDrawing.ModelSpace.AddCircle(centerPt, radius) ' Create an ellipse object in model space Dim ellObj As AcadEllipse Dim majAxis(0 To 2) As Double Dim center(0 To 2) As Double Dim radRatio As Double center(0) = 5#: center(1) = 5#: center(2) = 0# majAxis(0) = 10: majAxis(1) = 20#: majAxis(2) = 0# radRatio = 0.3 Set ellObj = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio) ZoomAll ' Iterate through the model space collection. ' Collect the objects found into an array of objects ' to be added to the selection set. ReDim ssobjs(0 To ThisDrawing.ModelSpace.Count - 1) As AcadEntity Dim I As Integer For I = 0 To ThisDrawing.ModelSpace.Count - 1 Set ssobjs(I) = ThisDrawing.ModelSpace.Item(I) Next ' Add the array of objects to the selection set ssetObj.AddItems ssobjs GoSub LISTOBJS ' Remove two of the objects from the selection set Dim removeObjects(0 To 1) As AcadEntity Set removeObjects(0) = ellObj Set removeObjects(1) = circObj ssetObj.RemoveItems removeObjects MsgBox "The ellipse and circle have been removed from the selection set." GoSub LISTOBJS Exit Sub LISTOBJS: ' List all the objects in the selection set If ssetObj.Count = 0 Then MsgBox "The selection set is empty" Else For I = 0 To ssetObj.Count - 1 MsgBox "The selection set contains: " & ssetObj.Item(I).ObjectName Next End If Return End Sub
Visual LISP:
(vl-load-com) (defun c:Example_RemoveItems() ;; This example creates a selection set and several objects. ;; It adds the objects to the selection set, and then ;; removes two of the objects from the selection set. (setq acadObj (vlax-get-acad-object)) (setq doc (vla-get-ActiveDocument acadObj)) (setq modelSpace (vla-get-ModelSpace doc)) ;; Create the new selection set (setq ssetObj (vla-Add (vla-get-SelectionSets doc) "TEST_SELECTIONSET")) ;; Create a Ray object in model space (setq basePoint (vlax-3d-point 3 3 0) secondPoint (vlax-3d-point 1 3 0)) (setq rayObj (vla-AddRay modelSpace basePoint SecondPoint)) ;; Create a polyline object in model space (setq points (vlax-make-safearray vlax-vbDouble '(0 . 5))) (vlax-safearray-fill points '(3 7 9 2 3 5 ) ) (setq plineObj (vla-AddLightWeightPolyline modelSpace points)) (vla-put-Closed plineObj :vlax-true) ;; Create a line object in model space (setq startPoint (vlax-3d-point 0 0 0) endPoint (vlax-3d-point 2 2 0)) (setq lineObj (vla-AddLine modelSpace startPoint endPoint)) ;; Create a circle object in model space (setq centerPt (vlax-3d-point 20 30 0) radius 3) (setq circObj (vla-AddCircle modelSpace centerPt radius)) ;; Create an ellipse object in model space (setq center (vlax-3d-point 5 5 0) majAxis (vlax-3d-point 10 20 0) radRatio 0.3) (setq ellObj (vla-AddEllipse modelSpace center majAxis radRatio)) (vla-ZoomAll acadObj) ;; Iterate through the model space collection. ;; Collect the objects found into an array of objects ;; to be added to the selection set. (setq ssobjs (vlax-make-safearray vlax-vbObject (cons 0 (- (vla-get-Count modelSpace) 1)))) (setq cnt 0) (vlax-for each-item modelSpace (vlax-safearray-put-element ssobjs cnt each-item) (setq cnt (1+ cnt)) ) ;; Add the array of objects to the selection set (vla-AddItems ssetObj ssobjs) ;; List all the objects in the selection set (setq I 0) (if (= (vla-get-Count ssetObj) 0) (alert "The selection set is empty") (while (>= (1- (vla-get-Count ssetObj)) I) (alert (strcat "The selection set contains: " (vla-get-ObjectName (vla-Item ssetObj I)))) (setq I (1+ I)) ) ) ;; Remove two of the objects from the selection set (setq removeObjects (vlax-make-safearray vlax-vbObject '(0 . 1))) (vlax-safearray-put-element removeObjects 0 ellObj) (vlax-safearray-put-element removeObjects 1 circObj) (vla-RemoveItems ssetObj removeObjects) (alert "The ellipse and circle have been removed from the selection set.") ;; List all the objects in the selection set (setq I 0) (if (= (vla-get-Count ssetObj) 0) (alert "The selection set is empty") (while (>= (1- (vla-get-Count ssetObj)) I) (alert (strcat "The selection set contains: " (vla-get-ObjectName (vla-Item ssetObj I)))) (setq I (1+ I)) ) ) (vla-Delete ssetObj) )