[编程申请]：关闭其它图层，只开指定的几个图层

baihc798

因本人不会编程，让高手帮一下忙，我想打开指定的几个图层（例如Y1、Y2、Y3图层），而其它图层则全部关闭，能帮我编一个lsp吗？谢谢。

f5612140

2. (defun c:tlayer(/ en i en lay)
   
3.    (setq en (ssget))
   
4.    (setq i 0)
   
5.    (command "layer" "F" "*" "")
   
6.    (command "layer")
   
7.    (repeat (sslength en)
   
8.       (setq lay (cdr (assoc 8 (entget (ssname en i)))))
   
9.       (command "T" lay)
   
10.       (setq i (1+ i))
    
11.    )
    
12.    (command "")
    
13. (prin1)
    
14. )
    
15. ;(prompt "----------------------<< C:TLAYER >>-----------------------")
    
16. (prin1)

(defun c:tlayer(/ en i en lay)<br />    (setq en (ssget))<br />    (setq i 0)<br />    (command "layer" "F" "*" "")<br />    (command "layer")<br />    (repeat (sslength en)<br />       (setq lay (cdr (assoc 8 (entget (ssname en i)))))<br />       (command "T" lay)<br />       (setq i (1+ i))<br />    )<br />    (command "")<br /> (prin1)<br /> )<br /> ;(prompt "----------------------<< C:TLAYER >>-----------------------")<br /> (prin1)

baihc798

能解释一下怎么用吗？

f5612140

command:appload    或
        (load"tlayer")   ps.支援路徑下
command:tlayer

XDSoft

最初由 baihc798 发布
[B]因本人不会编程，让高手帮一下忙，我想打开指定的几个图层（例如Y1、Y2、Y3图层），而其它图层则全部关闭，能帮我编一个lsp吗？谢谢。 [/B]

晓东工具箱里面的图层工具都已经有了。

图层保留，图层孤立等等。

nwlulu

acad里EXPRESS TOOLS（R14版的BONUS，完全安装即可）中的LAYISO可以实现。选择几个要保留的图层回车，OK

wlm88888

施工组织设计方案

coolzhb

最初由 XDSoft 发布
[B]

晓东工具箱里面的图?.. [/B]

问一下，能不能不用command命令就实现此功能，还有把图层全部打开，我想用透明命令呀！

loner

(defun c:on_la(/ e ed lyrname oldexp)
(princ"\n请选择要保留图层上的实体")
    (setq oldexp (getvar "expert"))
         (setvar "expert" 1)
    (while (setq ss (ssget))
    (setq num (sslength ss))
       (command ".layer" "of" "*" "")
    (setq i 0)
    (while (< i num)
    (progn
      (setq a (entget(ssname ss i)))
      (setq lyrname (cdr (assoc 8 a)))
      (command ".layer" "on" lyrname "")
       (setq ly1 lyrname)
        (setq i (+ i 1))
    )
        
      )
      )
          (setvar "expert" oldexp)
    (princ)
)