How to re-use Selection VBA

[CarlosR2022]

Let's say I pre-select a number of geometric elements in a 2D environment. This includes lines and texts. Now I want to have 2 distinct searches to get (1) lines then (2) texts/

'I selected a number of objects manually.
'because I want to limit my works on these objects only
dim preSelectedItems as Selection
dim selectedLines as Selection
dim selectedTexts as Selection

set preSelectedItems = CATIA.ActiveDocument.Selection
preSelectedItems.Search "Drafting.Line,sel"
set selectedLines = preSelectedItems '<~~~ this is fine

preSelectedItems.Search "Drafting.Text,sel"
set selectedTexts = preSelectedItems '<~~~ this is not ok because sel contains lines from 1st Search

 

[dddn]

Hi,
try to insert the line "preSelectedItems.Clear" before the second search; and after insert a string that contain "selectElement3" to re-select the operations.

Bye

 

[Little Cthulhu]

No, you can't manage selection results as if they were independent collections.

1. Make an initial search
2. Iterate through selection and save items to a Collectionn or an ArrayList
3. Search for lines within "sel" scope
4. Iterate and place lines to their own Collection
5. Clear and reselect items from step 2
6. Search for points within "sel" scope

Consider using TypeName() function or TypeOf ... is operator to determine object type instead of Selection.Search