alanjt Posted July 7, 2010 Posted July 7, 2010 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) ) Quote
CivilPrice Posted August 4, 2010 Posted August 4, 2010 Your the man! way to be on top of it...AutoDesk should give you a job! Quote
alanjt Posted August 4, 2010 Author Posted August 4, 2010 Your the man! way to be on top of it...AutoDesk should give you a job!Enjoy. Glad it will help someone. Quote
Tharwat Posted August 4, 2010 Posted August 4, 2010 Nice Work, And now it is avaliable in Autocad 2011 Regards, Quote
alanjt Posted August 4, 2010 Author Posted August 4, 2010 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 usThanks 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. Quote
Glen1980 Posted December 16, 2010 Posted December 16, 2010 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 Quote
alanjt Posted December 16, 2010 Author Posted December 16, 2010 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. Quote
alanjt Posted August 13, 2013 Author Posted August 13, 2013 How can I load this sintaxis?????? http://www.cadtutor.net/forum/showthread.php?1390-How-to-use-the-LISP-routines-in-this-archive Quote
jablanco Posted August 13, 2013 Posted August 13, 2013 Thank you for you time!! Is very easy...thanks again..... Quote
WonkaPet Posted February 13, 2019 Posted February 13, 2019 Hi there, Sorry for necro bumping this thread but does anyone have a version of this in C# or VB.Net? Thanks, Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.