Hi

This is my first post, my name is Lorenzo I’m living in northern Quebec in Canada. I’m a Mechanical designer & draftsmen for the last 18 years & recently got a new job where they only use 2d & since I use 3d Inventor for the last 10 years I had to take my old routine from the mothballs & put them back to work.

My problems is that i do not find my autolisp class note from the 90 & now I need to built a new Layer manipulation routine from scratch & I just don’t remember how.! Well I remember many parts but not enough so I pick-up some lines from existing routine

The proposed routine will go like this

1-Selection of objects & extraction of layer name of each object with something like:

(setq A (cdr (assoc 8 (entget (car (entsel "\nPick entity to keep layer on: "))))))

2-Building a list of the layer name from previous selection

That where I jam!

4-Off or freeze of all layer with something like

(command "_-layer" "_off" "*" "" "")

5-On or thaw of the list of the previously selected item

(command "_-layer" "_on" "???????list generated with item 2???????" ""))



My guess that I should use ssget instead of enget but I’m not sure & I don’t remember how to use it anyway!


Any help would be appreciated

Thanks

Lorenzo Di Marco