[求助]：如何单独显示一个图层

kanfu

*-*i
问一个菜鸟的问题：一张图，包含许多图层，我想单独显示一个图层，初了一个一个地关闭其它图层外，有没有更快的方法？
有人告诉我用EXPRESSTOOLS命令，可是我不知道该怎么用？有人能告诉我吗？
谢谢指教！

jxsqq

看看吧

hello kitty

你在打开这个图形的时候，在打开下面选择“局部打开”，在局部对话框中，选择你所需要的图层，就可以了！只不过，未打开的图层不能进行编辑！

cdhua001

最初由 kanfu 发布
[B]用EXPRESSTOOLS命令，可是我不知道该怎么用？有人能告诉我吗？[/B]

动画演示：http://www.xdcad.net/techcenter/ ... =&articleid=955

民工

还有一个ET工具很好用的：图层漫步
在窗口中选中任意的图层，可以关闭所有其它的层，有时只是想看看每个层上有些什么，用这个漫步就很合适。

柔柔

好像不必这么复杂吧。
我的观点：基本命令能做到的坚决不用ET，AutoCAD能解决的坚决不用外挂，AutoCAD不能解决的坚决用外挂，外挂没有的不惜自编，高版本已有了则坚决毫不心疼把自编程序扔到垃圾桶里。

jxhaha

柔柔的算什么，有比俺的快的么？

lzlbl

八仙过海，各显神通啊！

柔柔

嘉兴哈哈，你用ET当然快呀，Express本来就是快速的意思嘛，我也竭力推荐安装Express的。不过我用的是ACAD的基本命令，可以适用于没装ET的人。～～，楼上，我跟嘉兴哈哈不但没有过节，而且是老搭档老朋友，时间长了你就知道啦。

jxhaha

最初由 柔柔 发布
[B]嘉兴哈哈，你用ET当然快呀，Express本来就是快速的意思嘛，我也竭力推荐安装Express的。不过我用的是ACAD的基本命令，可以适用于没装ET的人。～～，楼上，我跟嘉兴哈哈不但没有过节，而且是老搭档老朋友，时间长了你... [/B]

是的！只可惜斑竹居然把“如何标注圆的主题”关闭了，害得俺打了好一通键盘连一个银子也没捞着：）
看来斑竹也误解了柔柔你我：（
收敛点吧，俺们～～

柔柔

这还不好办？OVER

陌生人

最初由 jxhaha 发布
[B]柔柔的算什么，有比俺的快的么？ [/B]

哈哈的算什么,有比我的强么?
可以选择打开1个或者多个图层,多个图层以选集的第一个实体的图层为当前图层[/COLOR]

配套lsp,很久以前写的,因为功能简单,懒的用vl再写一次,而且可以在r14通用.

2. 
   
3. (defun c:lao (/ e n n1 nn)
   
4.   (setq e (car (entsel "\nobject for layer/on:"))
   
5.         n (cdr (assoc 8 (entget e))) n1 n nn n)
   
6.   (while (setq e (car (entsel "\nobject for orther layer/on:")))
   
7.       (setq n (cdr (assoc 8 (entget e)))
   
8.             nn (strcat nn "," n))
   
9.       (redraw e 3)
   
10.   )
    
11.   (command "layer" "s" n1 "off" "*" "" "on" nn "")
    
12. )
    

<br /> (defun c:lao (/ e n n1 nn)<br />   (setq e (car (entsel "\nobject for layer/on:"))<br />         n (cdr (assoc 8 (entget e))) n1 n nn n)<br />   (while (setq e (car (entsel "\nobject for orther layer/on:")))<br />       (setq n (cdr (assoc 8 (entget e)))<br />             nn (strcat nn "," n))<br />       (redraw e 3)<br />   )<br />   (command "layer" "s" n1 "off" "*" "" "on" nn "")<br /> )<br />

这个程序和晓东工具箱的类似
当然,要完善点还可写一个出错处理,避免中断时redraw的不利影响
另外还可以用ssget 代替 (while ...entsel....),可一次多选

柔柔

有陌生人帮我，看来哈哈有你受的了。
不过，为了消除我跟哈哈是死对头的误解，这次来帮哈哈讲一句：楼上的程序与哈哈用的功能其实是一回事，哈哈用的acetlayr.lsp里面就是这个原理，控制图层显示其实是非常简单的。过去我在编某程序时也加了这么一个辅助功能（不是单独的程序，与主程序有关），贴上，见笑见笑。
(defun c:fr_135on(/ fsset fsslen felist fename readnb value)
  (setq fsset (ssget "X" (List (cons 8 "FR_*"))))
  (setq fsslen (sslength fsset))
  (while (> fsslen 0)
    (setq fename (ssname fsset (setq fsslen (1- fsslen)))
          felist (entget fename)
          readnb (atoi (substr (cdr (assoc 8 felist)) 4))
           value (cdr (assoc 8 felist))
    )
    (if (/= (rem readnb 2) 0)
      (progn
        (command "_layer" "on" value "")
        (command "_layer" "on" "fltext135" "")
      )
      (progn
        (command "_layer" "off" value "")
        (command "_layer" "off" "fltext246" "")
      )
    )
  )
  (princ)
)

陌生人

用来开关 图层名4位后序号单双图层的 ? :)