---

Hi everyone,

I have a question about function "member".
Here is my code.
1. choose a face face1
2. choose 2 faces face2(including face1)
3. check whether face1 is a member of the 2 faces

But the result is nil.

Why can't I get the "true" result?

Greeting,
Andy.

Code:

---

(in-package  :aaaa)
(use-package li)

(sd-defdialog 'test_faces
  :Dialog-title "test_faces"
  :toolbox-button t
  :variables '(
 
 

   (face1 :value-type :face
   :modifies nil   
   :modifies :contents
:title "face1"
           :initial-value nil
         
            
);end face1
    (face2
        :value-type :face
:multiple-items t
   :modifies nil   
   :modifies :contents
           :title "face2"

            :initial-value nil
         
           :after-input (setf face_list face2)
            
);end face2
   
    );end variables

     k-action
'(progn

(display face1)
(display face_list)
(display (member face1 face_list))
    )
)

---

The result show below:

Code:

---

#S(SEL_ITEM PATH
      (#S(NPARCEL SIMPLE-ENTITY-PTR 111685152)
       #S(NPARCEL SIMPLE-ENTITY-PTR 378290912))
      TYPE 112058176 ITEM #S(FACE SIMPLE-ENTITY-PTR 381338256))

(#S(SEL_ITEM PATH
       (#S(NPARCEL SIMPLE-ENTITY-PTR 111685152)
        #S(NPARCEL SIMPLE-ENTITY-PTR 378290912))
       TYPE 112058176 ITEM #S(FACE SIMPLE-ENTITY-PTR 381340704))
#S(SEL_ITEM PATH
       (#S(NPARCEL SIMPLE-ENTITY-PTR 111685152)
        #S(NPARCEL SIMPLE-ENTITY-PTR 378290912))
       TYPE 112058176 ITEM #S(FACE SIMPLE-ENTITY-PTR 381338256)))
NIL

---

[Diese Nachricht wurde von Andylau am 30. Jun. 2021 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

i think you have to use: :test #'equal.

(member face1 face_list :test #'equal)

Greetz Michael

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Michael,

Thanks a lot
That's very helpful.
It works good.

Greeting from China!
Andy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP