topic Re: Filter list/selection by highest property in Visual LISP, AutoLISP and General Customization Forum

Filter list/selection by highest property

jotaferrer — Wed, 16 Feb 2022 10:04:00 GMT

Hey guys, it's me again!

I've been trying to reach a way to do this, but I just can't figure it out.

As you can see, there's a step in my developing (with @pbejse help!) list that I need to filter my selection.

I ~~need~~ want to automatically select the highest perimeter in a list and all other regions that I may have into another list. So that I can subtract to create a region.

Is that possible to be done? Thanks in advance!

(defun c:secm ( / ) (setq ss (ssget "_A")) (command ".region" ss "") ;create region (setq $ss (ssget "_A")) ; (if $ss ; (repeat (setq i (sslength $ss)) ; (setq lst (cons (vlax-ename->vla-object (ssname $ss (setq i (1- ;i)))) lst)) ; ) ; ) ; turns ssget a list and vla-object too (repeat (setq i (sslength $ss)) (setq lst (cons (vlax-get (vlax-ename->vla-object (ssname $ss (setq i (1- i)))) 'perimeter) lst)) )

Re: Filter list/selection by highest property

pbejse — Wed, 16 Feb 2022 10:16:33 GMT

@jotaferrer wrote:
I ~~need~~ want to automatically select the highest perimeter in a list and all other regions that I may have into another list.

For starters, Look into max or vl-sort

Re: Filter list/selection by highest property

jotaferrer — Wed, 16 Feb 2022 11:15:17 GMT

So I tried to do an (apply 'max lst) and it does gives me the highest perimeter, but I still trying to "relink" it to its region.

But maybe I can sort the looped list by the highest perimeter... I'll try it!

Re: Filter list/selection by highest property

john.uhden — Thu, 17 Feb 2022 21:41:59 GMT

@jotaferrer

Hint:

When you make your list, include an object identifier, such as its handle or vla-object name.

So your list would look like '((handle_1 . perim_1)(handle_2 . perim_2)...(handle_n . perim_n))

Then you would sort it via (setq sorted (vl-sort lst '(lambda (a b)(> (cdr a)(cdr b)))))

and the first one would be the one with the largest perimeter.

Re: Filter list/selection by highest property

ronjonp — Thu, 17 Feb 2022 23:46:52 GMT

HERE is some example code sorting objects ( in this case circles ) then converting to regions and subtracting from the largest.

Re: Filter list/selection by highest property

john.uhden — Fri, 18 Feb 2022 00:13:14 GMT

@ronjonp

I almost never use regions. What happens if you subtract more than the largest? A negative region? A black hole?

At least we can show him how to sort the sizes in ranges. 😁

Re: Filter list/selection by highest property

ronjonp — Fri, 18 Feb 2022 00:18:24 GMT

@john.uhden I'd guess black hole depending on your screen color 🙂

Re: Filter list/selection by highest property

john.uhden — Fri, 18 Feb 2022 00:43:11 GMT

@ronjonp

Guess?! Haven't you tried it? I guess not. It's too big a risk what with "the greys" awaiting at the other end.

But maybe you would meet Lilu. <Wow, was she hot!> "Multipass, multipass!"

Re: Filter list/selection by highest property

jotaferrer — Fri, 18 Feb 2022 10:37:09 GMT

So @juhn.uhden that I'm intending to do, but I'm still figuring out how it's possible. But I won't quit my researches, I'll find a way (I think). But if not, I'll ask you guys a little help hehe.

And yeah, you're almost right, subtract by the smallest and you create a worm hole right head to Gargantua! Thanks, now I'm 89 y.o. ‌‌‌‌‌‌‌‌‌‌

Re: Filter list/selection by highest property

jotaferrer — Fri, 18 Feb 2022 10:37:33 GMT

I'll take a look into it, thans @ronjonp

Re: Filter list/selection by highest property

ronjonp — Fri, 18 Feb 2022 14:53:33 GMT

@jotaferrer wrote:
I'll take a look into it, thans @ronjonp

Glad to help 🙂

Re: Filter list/selection by highest property

ronjonp — Fri, 18 Feb 2022 14:56:27 GMT

@john.uhden wrote:

@ronjonp

Guess?! Haven't you tried it? I guess not. It's too big a risk what with "the greys" awaiting at the other end.

But maybe you would meet Lilu. <Wow, was she hot!> "Multipass, multipass!"

@john.uhden I did try it and the code did not fail. I ended up with nothing or negative matter which I could not see :).

Re: Filter list/selection by highest property

john.uhden — Fri, 18 Feb 2022 18:12:29 GMT

@ronjonp wrote, " negative matter which I could not see"

Just think. You could tell Kent's cousin Sheldon Cooper that you can create negative matter with AutoLisp.

Of course the downside of that is that he might befriend you. 😕

Re: Filter list/selection by highest property

jotaferrer — Mon, 21 Feb 2022 15:04:51 GMT

@john.uhden Can you please tell me what am I doing wrong!? I'm pretty new with lisp and both mapcar and lambda functions are obscure to me...

(defun c:jsm (/ ss p1 MoIx l $ss i lst 1st 2nd perim)

(vl-load-com)

(setvar "cmdecho" 0)

(setq ss (ssget "_A"))

(command ".region" ss "") ;create region

(setq $ss (ssget "_A"))

(if $ss
(repeat (setq i (sslength $ss))
(setq lst (cons (vlax-ename->vla-object (ssname $ss (setq i (1- i)))) lst))
)
) ; turns ssget a list and vla-object too

(setq 1st (list (cons 5 (nth 0 lst)) (cons 140 (vla-get-Perimeter (nth 0 lst)))))
(setq 2nd (list (cons 5 (nth 1lstT)) (cons 140 (vla-get-Perimeter (nth 1 lst)))))
(setq perim (append 1st 2nd))

(setq sorted (vl-sort perim '(lambda (1st 2dn)(> (cdr 1st)(cdr 2nd)))))

Re: Filter list/selection by highest property

Kent1Cooper — Mon, 21 Feb 2022 15:40:19 GMT

@jotaferrer wrote:
....
(setq 1st (list (cons 5 (nth 0 lst)) (cons 140 (vla-get-Perimeter (nth 0 lst)))))
(setq 2nd (list (cons 5 (nth 1lstT)) (cons 140 (vla-get-Perimeter (nth 1 lst)))))
....
(setq sorted (vl-sort perim '(lambda (1st 2dn)(> (cdr 1st)(cdr 2nd)))))

At the least, the red parts will cause problems....

But I also wonder what you're really going for. For example, the (cons 5) part would typically be about an entity handle, not a VLA object that is what you're pairing it with.

Re: Filter list/selection by highest property

john.uhden — Mon, 21 Feb 2022 16:01:00 GMT

@jotaferrer

Well, you've got a couple of typos but they don't matter because we are changing your code below, but I'm concerned about your ssget with no filter.

Do you know for sure that all your objects have a perimeter property?

(defun c:jsm (/ ss p1 MoIx l $ss i lst 1st 2nd perim)
(vl-load-com)
(setvar "cmdecho" 0)
(setq ss (ssget "_A"))
(command ".region" ss "") ;create region
(setq $ss (ssget "_A"))
(if $ss
(repeat (setq i (sslength $ss))
(setq lst (cons (vlax-ename->vla-object (ssname $ss (setq i (1- i)))) lst))
)
) ; turns ssget a list and vla-object too

;; There's no sense in adding codes to your list because it messes up your sorting

;; In fact there's no need to sort if all you have are two (2) objects, but that's okay.

;; BUT, you don't sort two separate lists. You sort one list, which you have (all objects).

;; So...

(setq sorted (vl-sort lst '(lambda (a b)(> (vla-get-perimeter a)(vla-get-perimeter b)))))

;; What that returns is still the same list of objects but sorted in descending order of perimeter.
;; To get the actual largest perimeter, use...

(setq maxperim (vla-get-perimeter (car sorted)))

~~(setq 1st (list (cons 5 (nth 0 lst)) (cons 140 (vla-get-Perimeter (nth 0 lst)))))~~
~~(setq 2nd (list (cons 5 (nth 1 lst)) (cons 140 (vla-get-Perimeter (nth 1 lst)))))~~
~~(setq perim (append 1st 2nd))~~

~~(setq sorted (vl-sort perim '(lambda (1st 2nd)(> (cdr 1st)(cdr 2nd)))))~~

Re: Filter list/selection by highest property

jotaferrer — Mon, 21 Feb 2022 16:21:19 GMT

hey @Kent1Cooper thanks for your reply

I'll try to figure out why the red parts will cause problems, thanks!

So, I'm developing a code that will give me the section modulus for any shape. My lisp does work but only if there is no hole whitin the region...
I know that's so much easier for the user to just subtract the regions and make the final region (with hole or holes) by themselves, but while I'm write this lisp with all you guys help, I'm learning and improving my knowledges.

"CONS 5" was my first thought of what @john.uhden told me to do. No need to say I'm pretty new on lisps as well haha

Re: Filter list/selection by highest property

jotaferrer — Mon, 21 Feb 2022 16:29:39 GMT

There's no filter in my ssget because we always open a new dwg and draw what we want in order to get the section modulus. So that's why...

I was thinking about sorting because there's a possible to have more than two regions, it's a small possibility, but we can skip it if is too complicated. At least for me this lisp is driving me crazy haha

Thanks for all your tips!