(defun t1
(lst
/ selset count
) ;|
lst - list like
'((<BlockName> . <LayerName>)
(<BlockName> . <LayerName>)
<...>
(<BlockName> . <LayerName>)
)
All blocks not in lst will be on layer named by block name
BlockName could contain wildcards
sample:
(t1 '(("wmh" . "water Manhole")))
(t1 '(("tre*" . "TreeLikeSomthing")))
(t1 '(("w?h" . "water Manhole123") ("tre*" . "TreeLikeSomthing")))
|;
'pickset
) ;_ end of =
(t n)
) ;_ end of cond
) ;_ end of cons
) ;_ end of lambda
) ;_ end of function
) ;_ end setq
) ;_ end of repeat
) ;_ end of lambda
)
) ;_ end of mapcar
) ;_ end of foreach
) ;_ end of if
) ;_ end of defun