Skill Code to seperate layers

First of all, the purposes you have in your list look suspiciously like the abbreviated purpose names that you see in the layer palette - whereas normally the purpose names would be "drawing" not "drw" for example. Although you've edited your post so you're no longer showing that - you've removed some of the relevant information, so I'll make a stab at answering your rather vague question.

tf=techGetTechFile(cv)
purposeMap=foreach(mapcar purpose tf~>purposes list(techGetPurposeAbbrev(tf purpose) purpose))
; assuming your original list of layers is called layerList (it was called shape in your original post, which was a rather confusing name)
expandedLayerList=foreach(mapcar lpp layerList
  cond(
    (!cdr(lpp) list(car(lpp) "drawing")) ; purpose is not specified
    (exists(purpMap purposeMap cadr(purpMap)==cadr(lpp)) lpp) ; if a valid purpose is given as the second element, leave it alone
    (match=assoc(cadr(lpp) purposeMap) list(car(lpp) cadr(match))) ; if it was an abbreviated purpose
    (t lpp) ; just in case
  )
)
; now find those which exist in the technology
existingLayerList=setof(lpp expandedLayerList
  techGetLP(tf lpp)
)
; now find those which do not exist in the technology (invert the condition)
missingLayerList=setof(lpp expandedLayerList
  !techGetLP(tf lpp)
)

The first block of code deals with expanding abbreviated purpose names (the tech file contains information on the abbreviations), and then after that it is checking to see whether the expanded names exist or not.

Andrew

Hello Andrew

Thank You for your response,  I was very confused before how to explain my question so i just choose some random layers and some layers which was in the layer pallet in the environment i was working on. I am sorry if that was confusing. But your response helps a lot.

Thank You