if (item of member of list) is equal 0.0 (remove member)

[reza]

HI everyone

I have this list: ((0.0 70.8187) (0.0 -119.977) (61.875 44.4858)) or ((88.21 0.0) (19.80 0.0) (61.875 44.4858))

I want remove all member if x=0 or y=0 then remove members of list==> ((61.875 44.4858))

[marko_ribar]

With that I want to remove, you pretty much don't need computer or state of mind...

[reza]

dear marko:

It is possible to say what you mean more clearly.

Unfortunately, I did not understand what you mean.

[Jonathan Handojo]

(defun foo (lst)
    (vl-remove-if '(lambda (x) (or (zerop (car x)) (zerop (cadr x)))) lst)
)

 

[reza]

Hi Jonathan Handojo:

thx for reply

I used your advice and my problem was solved.
thanks again.

[reza]

Dear Jonathan:

thanks a lot again.

[Lee Mac]

Given that we're working with reals, I would suggest the use of the equal function with an appropriate tolerance - I would reserve zerop for when testing integer values.

 

Hence:

(vl-remove-if '(lambda ( x ) (or (equal (car x) 0.0 1e-8) (equal (cadr x) 0.0 1e-8))) lst)

 

Or, for any coordinate:

(vl-remove-if '(lambda ( x ) (vl-some '(lambda ( y ) (equal y 0.0 1e-8)) x)) lst)

 

[Jonathan Handojo]

3 hours ago, reza said:

Dear Jonathan:

thanks a lot again.

No worries. Glad to help.

However, I do agree with what Lee mentioned. His function should be slightly more bulletproof than mine.

[reza]

HI Everyone:

Thx Lee Mac for reply and attention 

Thx Jonathan 

[troggarf]

On 10/21/2022 at 11:37 PM, marko_ribar said:

With that I want to remove, you pretty much don't need computer or state of mind...

Deleted

Edited January 12, 2023 by troggarf

[reza]

Dear troggarf:
I'm sorry that I paid attention to your reply so late.
I have used the advice of experts like you and dear Marko many times in different forums.
I think it's my fault that I bore Marco with very simple questions.