Topic: Why does this happen? foreach foreach

[daron]

First off, I have this:

Code: [Select]

(setq *acad   (vlax-get-acad-object)
   doc    (vla-get-activedocument *acad)
   layers  (vla-get-layers doc)
   alist   (list "a-panel" "a-furn")
     )Then I create a list of layernames like so:

Code: [Select]

(vlax-for i layers
  (if (or (wcmatch (strcase (vla-get-name i) t) "rcp-*")
  (= (strcase (vla-get-name i) t) "a-head")
  )
      (setq rcplist (append rcplist (list i)))
      (setq layernames (append layernames (list (vla-get-name i))))
  )
     )This allows me to have one list for freezing and while the other thaws the layers.
What I'm having trouble with is how the next piece handles putting the list together.

Code: [Select]

(foreach i alist
  (foreach j layernames
       (if (= i (strcase j t))
    (setq below
      (append below (list (vla-item layers j)))
    )
       )
  )
     )What I'm thinking this should do is take one item from alist (i), compare it with all the items in layernames (j) and if it finds a match append it to list "below". What's it's doing is checking (i) twice. Why?

[daron]

Well, that's strange. I just rewrote that part from the inside out and it worked just fine. Uh??? Nevermind, I guess.

[daron]

Then again, maybe not.

[daron]

Well, since I'm having a conversation with myself, I'll just answer. It's works as it should. There was a variable that apparently had double information that was causing the problem.

[CAB]

Glad ya'll figured it out.

[daron]

Thanks, from all of us.