As part of a larger project I need to have a routine similar to fastsel.lsp that will get a selection set of lines, lwplines, circles, arcs, splines, and ellipses that touch an entity I select or that touch one of the touching entities. The routine has to run in R2004 and newer. I'd like to avoid using fastsel.lsp if possible (express tools could go away at any time). Before I spend a couple of days coding I thought I'd ask if anyone either has a routine they'd be willing to share or has any tips on best approach.
The two approaches I'm considering at this point are (1) select the first entity, offset both directions, convert offsets to plines, combine plines into a closed pline, use ssget "CP", then iterate through the resulting selection set. Closed entities would be split in half and ssget would be run on each half. (2) get a selection set of all lines, lwplines, etc. on screen, then iterate through the selection set with "intersectwith" to build a set of entities touching the selected entity, then loop until the entire mesh is selected. Any thoughts on which is better for a general function would be welcome.
Thanks in advance,
Martin