Topic: te get a list of comon word on each member

[DEVITG]

I have this list with the names of all the layers in a DWG

("texto" "cotas" "Norte" "E manzana nros lotes" "E manzana nro" "E manzana lotes" "E manzana" "Defpoints" "D manzana nros  lotes" "D manzana nro" "D manzana lotes" "D manzana" "C manzana nros lotes" "C manzana nro" "C manzana lotes" "C manzana" "B manzana nros lotes" "B manzana nro" "B manzana lotes" "B manzana" "A manzana nros lotes" "A manzana nro" "A manzana lotes" "A manzana" "0")
 

As you can notice ther are a lot of them that contains the word manzana , it stand for the array of parcels in a subdivision or the terrain surrounding  by streets that have parcels inside.
By the way lotes stand for parcel.

Guess it is  well explain , my question.

How I can get the list with all the layers that have this word      manzana inside???

so I will have

   "E manzana nros lotes" "E manzana nro" "E manzana lotes" "E manzana"  "D manzana nros  lotes" "D manzana nro" "D manzana lotes" "D manzana" "C manzana nros lotes" "C manzana nro" "C manzana lotes" "C manzana" "B manzana nros lotes" "B manzana nro" "B manzana lotes" "B manzana" "A manzana nros lotes" "A manzana nro" "A manzana lotes" "A manzana" 

Thank in advance.

[uncoolperson]

sick day so i'm away from autocad

but i think something like this is what you might be looking for

Code: [Select]

(setq yourlist '("texto" "cotas" "Norte" "E manzana nros lotes" "E manzana nro" "E manzana lotes" "E manzana" "Defpoints" "D manzana nros  lotes" "D manzana nro" "D manzana lotes" "D manzana" "C manzana nros lotes" "C manzana nro" "C manzana lotes" "C manzana" "B manzana nros lotes" "B manzana nro" "B manzana lotes" "B manzana" "A manzana nros lotes" "A manzana nro" "A manzana lotes" "A manzana" "0") )

(setq thelist (VL-REMOVE-IF-NOT
    '(LAMBDA (partoflist) (wcmatch partoflist "*manzana*"))
    yourlist
  ))



[CAB]

Sorry to hear you're under the weather.
It's almost exactly what I cooked up. You were a little faster though.

Code: [Select]

(defun c:test ()

  (setq masterlist '("texto" "cotas" "Norte" "E manzana nros lotes" "E manzana nro" "E manzana lotes" "E manzana"
                     "Defpoints" "D manzana nros  lotes" "D manzana nro" "D manzana lotes" "D manzana"
                     "C manzana nros lotes" "C manzana nro" "C manzana lotes" "C manzana" "B manzana nros lotes"
                     "B manzana nro" "B manzana lotes" "B manzana" "A manzana nros lotes" "A manzana nro"
                     "A manzana lotes" "A manzana" "0"
                    )
  )

  (setq target "*manzana*")

  (setq result (vl-remove nil
                          (mapcar '(lambda (x) (if (wcmatch x target) x))
                                  masterlist
                          )
               )
  )

)

[DEVITG]

Hi Uncool  and Cab , yes it work great .

Thanks a lot

[MP]

Don't get bit by case differences when adopting that code for other purposes.