[求助]图层LSP

q258263741

xshrimp发表于2005-10-24 20:17:00;;---图层函数定义------------------------(defun  gpslayer (/ ss n index entity la old)      (setq ss (ssget))  (setq n (sslength ss))   (setq in

上面说到图层了，但是我想问下，，

              现在有图层  

1  2  3  4  5  6  7  8  9 

我要关闭所有图层，在开 1 号层，或者是开 1 2 3  这三个图层。要怎么做，

我现在单独开了 1 号层，又要加开5号层，    (最好能把5号放到当前层)        要是要加5 6 7 怎么办,,,,

    这LSP怎么做，   谁能提供个示范吗？