This will help you build a list of layers associated lists:
Code:(setq theLayer (cdr (assoc 2 (tblnext "LAYER" 1)))) (while theLayer (setq listLayers (append listLayers (list (entget (tblobjname "LAYER" theLayer)))) theLayer (cdr (assoc 2 (tblnext "LAYER")))) )




Reply With Quote
Bookmarks