[原创]：一个十分方便的关闭层的小程序

gysjy

图层工具栏是acad绘图的基本工具，但大家在使用中是不是感到有诸多不便啊？我绘图基本不用图层工具栏。关闭图层使用下面的小程序，十分方便。
命令名：ff （考虑到该功能经常使用，打ff按键方便）。
使用方法：点取图中某一物体，则这个物体所在的层就被关闭了，同时提示你关闭的是什么层。可以连续点取关闭你想关的层。如果误关了不想关的层，可输入“u”反悔。以下是程序代码：

2. (defun c:ff(/ pt ss w e l )
   
3.   (setq oer *error* *error* myerr)
   
4.   (setvar "cmdecho" 0)
   
5.   (setq ss (entsel "\n点取层中某一物体:"))
   
6.   (while ss
   
7.      (setq w (getvar "clayer"))
   
8.      (if (= (type ss) 'list)
   
9.        (progn
   
10.          (setq e (entget (car ss)) L (cdr (assoc 8 e)))
    
11.          (if (eq l w) (command "layer" "off" l "y" "")
    
12.            (command "layer" "off" l "")
    
13.          )
    
14.          (princ (strcat "    (" l "层已被关闭)"))
    
15.        )
    
16.      )
    
17.      (initget "U")
    
18.      (setq ss (entsel "\nU/<点取层中某一物体>:"))
    
19.      (if (eq ss "U") (command "u"))
    
20.   )
    
21.   (setq *error* oer)
    
22.   (princ "\n                             gysjy  96.11  制作")(princ)
    
23. )

(defun c:ff(/ pt ss w e l )<br />   (setq oer *error* *error* myerr)<br />   (setvar "cmdecho" 0)<br />   (setq ss (entsel "\n点取层中某一物体:"))<br />   (while ss<br />      (setq w (getvar "clayer"))<br />      (if (= (type ss) 'list)<br />        (progn<br />          (setq e (entget (car ss)) L (cdr (assoc 8 e)))<br />          (if (eq l w) (command "layer" "off" l "y" "")<br />            (command "layer" "off" l "")<br />          )<br />          (princ (strcat "    (" l "层已被关闭)"))<br />        )<br />      )<br />      (initget "U")<br />      (setq ss (entsel "\nU/<点取层中某一物体>:"))<br />      (if (eq ss "U") (command "u"))<br />   )<br />   (setq *error* oer)<br />   (princ "\n                             gysjy  96.11  制作")(princ)<br /> )

       关于打开层：可制作一个按钮菜单，将“'-layer;on;*;;”粘入按钮提示栏内，以后点取此按钮，就可打开所有被关闭的层，特别值得一提的是该功能可透明调用！

sheji1970

楼主你这个东东，cad2000以前版本是免费赠送的阿 layoff
2000以后版本为付费，不过论坛里有工具箱可下，类似的命令还有一些
LAYSUR      点选图元变为当前层图元
LAYISO    点选图元 仅显示此图元所在层
LAYON     显示所有图层
还有几个冻结锁定的命令
我一般也把他们做成简化命令，很方便快捷。

gysjy

楼主你这个东东，cad2000以前版本是免费赠送的阿 layoff

哦，我不知道呀。在哪里下载，例如r14版本的？

andyhua5240

EXPRESS TOOLS，简称ET工具，你在论坛中可以搜索到的！

细雨微尘

下载后用了，还不错，谢谢楼主。

zgboy

还编这样的lsp

gysjy

当不知道有ET的时候，由于绘图的需要，也就只好编写这样的程序了。有需求，就有想法，有想法，就去动手做。不过惭愧，一直以来，由于种种原因，本人一直使用r14，也真不知道cad2000以前版本有免费赠送的好东东。由于我还没装后面版本的，我想下载的是r14的，不知道在何处下载？

ccds

这个还是有一些优点的，et的命令长啊

xiaobai2005

这样的很多地方都有啊！

shenzc

好像还可以

qiankuncq

在某个cad文件中，共有5个图层，我需要单独打印其中各个图层，即打印第一层时，不显示其他图层；打印第2层时，不显示其他图层；......打印范围不变。如果通过常规打印时，打印一层后，需要关掉已打印的层，然后打开另外需要打印的某层；，打印一次设置一次，一次次设置，比较麻烦。所以请求能否编个程序（lsp,arx等），以便批量打印，即通过一次设置分别打印出上例5个图层的图纸。
请您帮帮忙！

gysjy

在某个cad文件中，共有5个图层，我需要单独打印其中各个图层，即打印第一层时，不显示其他图层；打印第2层时，不显示其他图层；......

我的电脑没有配置打印机，无法调试您所需要的程序。只能就您的需求，尝试改进了一下，试试看。
命令名off，可以一步关闭其他的层。命令名on，打开所有层。

2. (defun c:off(/ e)
   
3.   (setvar "cmdecho" 0)
   
4.   (setq e (entsel "\n点取要打印的层:"))
   
5.   (if e
   
6.     (progn
   
7.       (if (= (type e) 'list)
   
8.         (setq e (cdr (assoc 8 (entget (car e)))) )
   
9.       )
   
10.       (command "layer" "off" "*" "y" "on" e "")
    
11.     )
    
12.     (princ "\n您没有选中打印的层")
    
13.   )
    
14.   
    
15.   (princ "\n                          gysjy   2006.1.6.")(princ)
    
16. )
    
17. 
    
18. (defun c:on()(setvar "cmdecho" 0)(command "layer" "on" "*" "")(princ))

(defun c:off(/ e)<br />   (setvar "cmdecho" 0)<br />   (setq e (entsel "\n点取要打印的层:"))<br />   (if e<br />     (progn<br />       (if (= (type e) 'list)<br />         (setq e (cdr (assoc 8 (entget (car e)))) )<br />       )<br />       (command "layer" "off" "*" "y" "on" e "")<br />     )<br />     (princ "\n您没有选中打印的层")<br />   )<br />   <br />   (princ "\n                          gysjy   2006.1.6.")(princ)<br /> ) <br /> <br /> (defun c:on()(setvar "cmdecho" 0)(command "layer" "on" "*" "")(princ))

qiaqiadeng

建议多上网,网上的高手实在太多了,CAD出来新版本一定要先试试,新版本肯定比老的要先进,什么年代了,还用R14?

lgwlgw

关于层的函数,小弟我也有写几个,可以在这里去看看:
http://www.xdcad.net/forum/showthread.php?s=&threadid=517621

yl_andrew

楼主这个LSP很好用呀，比以前得选中层关闭速度快很多，打开的速度也快了很多，谢谢楼主