SelectSimilar: for those running older version without it

[alanjt]

Per a thread someone posted about having issues with Select Similar.

 

Nothing special. I was killing time last night (finished my book and wasn't sure what to read next) and I thought I'd scratch this out for the less fortunate...

 

(defun c:SelectSimilar (/ ss lst)
 ;; Select Similar for those that don't have it
 ;; Alan J. Thompson, 07.06.10
 (vl-load-com)
 (if (setq ss (ssget))
   ((lambda (i / e ent)
      (while (setq e (ssname ss (setq i (1+ i))))
        (setq ent (entget e))
        (setq lst
               (cons (append '((-4 . "<AND"))
                             (vl-remove nil
                                        (mapcar (function
                                                  (lambda (n / p)
                                                    (if (setq p (assoc n ent))
                                                      (if (eq "*" (substr (cdr p) 1 1))
                                                        (cons n (strcat "`" (cdr p)))
                                                        p
                                                      )
                                                    )
                                                  )
                                                )
                                                '(0 2 
                                        )
                             )
                             '((-4 . "AND>"))
                     )
                     lst
               )
        )
      )
      (sssetfirst
        nil
        (setq ss (ssget "_X"
                        (append '((-4 . "<OR"))
                                (apply (function append) lst)
                                '((-4 . "OR>"))
                        )
                 )
        )
      )
    )
     -1
   )
 )
 (princ)
)

[CivilPrice]

Your the man! way to be on top of it...AutoDesk should give you a job!

[alanjt]

Your the man! way to be on top of it...AutoDesk should give you a job!

Enjoy. Glad it will help someone.

[Tharwat]

Nice Work, And now it is avaliable in Autocad 2011

 

Regards,

[Lt Dan's legs]

Nice one! Thanks for thinking of us

[alanjt]

Nice Work, And now it is avaliable in Autocad 2011

 

Regards,

Thanks. It's pretty much always been available in the vertical options, and I think you can get it for 2010 in you are on subscription.

 

Nice one! Thanks for thinking of us

Thanks and you're welcome. As I said, I was killing time. I'll never use it (Civil 3D has it built in), but I wanted to help those running older versions of CAD.

[designerstuart]

perfect thanks!

[Glen1980]

I take it there is no way of doing anything similar for us paupers who only have LT is there? At the moment I have to use the Qselect option which is time consuming when you have 100+ blocks and colleagues who use weird block names

[alanjt]

I take it there is no way of doing anything similar for us paupers who only have LT is there? At the moment I have to use the Qselect option which is time consuming when you have 100+ blocks and colleagues who use weird block names

Not without some kind of LT addon.

[jablanco]

How can I load this sintaxis??????

[alanjt]

How can I load this sintaxis??????

 

 

http://www.cadtutor.net/forum/showthread.php?1390-How-to-use-the-LISP-routines-in-this-archive

[jablanco]

Thank you for you time!! Is very easy...thanks again.....

[alanjt]

You're very welcome.

[WonkaPet]

Hi there,

Sorry for necro bumping this thread but does anyone have a version of this in C# or VB.Net?

 

Thanks,