[原创]：［原创］自动数字图层～简单直、接、高效制图思想的完美表现

andy_li99

autocad风靡全球的原因有很多方面，诸如图形平台、简单易学易用、开放体系等等，其中管理图元方面，图层也是一个重要高效的手段，如果autocad失去了图层，后果将无法想象；
用autocad自带的命令建立新的图层效率较低，除了二次开发软件自动生成的图层，我们绘图添加的图元，为了方面后来的编辑、输出，一般都绘制在新建特定图层上，图层的名称无所谓，只要同一类图元位于同一图层上就达到了目的；
数字图层是autocad高效绘图的重要手段，因为图层的名称不重要；下面的程序编程很简单，关键的是思想很重要，那就是如何寻求解决具体问题的简洁高效的途径，数字图层仅仅是其中的一方面而已；每个autocad用户要想在cad应用方面达到至高的境界，根据自己的情况寻求解决具体问题的简洁高效的途径是必不可少的；就像李小龙的截拳道一样，autocad允许每个人根据自己的自身情况，建立自己的高效体系，这就是autocad的魅力所在。
下面的自动数字图层程序自动建立 名称为1～255的图层，每个图层的颜色取图层名称号，并在建立图层后把它置为当前图层，用户接着就可以在这个图层上绘制图元。
用法：如果想建立名称为100的图层，键入100回车即可，其他余同。把  数字图层.lsp  的内容粘贴到acad.lsp中即可随cad启动而自动加载。

liminzheng

这样的早就有了
好像本论坛就有个插件叫做"y"

andy_li99

最初由 liminzheng 发布
[B]这样的早就有了
好像本论坛就有个插件叫做"y" [/B]

y里面的图层工具没有自动建图层的。

andy_li99

操作演示：

andy_li99

原程序包：

上传的图片，无法显示，不知为什么？

民工.

最初由 andy_li99 发布
[B]因为图层的名称不重要[/B]

*-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a

andy_li99

最初由 民工. 发布
[B]
*-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *-*a *... [/B]

我说的是自己新添加的图元，为了分类管理方便，才置于不同的图层，纯粹自己用的图层；如果通用的图层（比如单位的某个制图标准所规定的图层）或打算二次开发的图层（一般的二次开发程序靠特定的图层来识别不同意义的图元）那就不适用了。

民工

最初由 民工. 发布
[B]
*-*a *-*a *-*a *-*a  *... [/B]

你要是冷就不要裸奔了嘛

我支持楼主，数字就是好！
晓东空间第一高手是哪个还记得吗？
27182818284 的光辉形象至今仍在我的眼前浮现
而你，混到现在，也只不过比我屁股后面多了根尾巴，还是兔子尾巴
说不定要是用数字ID，我俩早就成名了
我叫3462，你叫301694

民工.

用数字命名图层可不是楼主的发明，
想当初，经一帮国家级专家研究，发布了 “1层是什么，2层是什么........”.之国家级《CAD制图标准》，
想来大家都用得很好吧，嘻嘻*-*7 *-*7 *-*7 *-*7 *-*7 *-*7 *-*7 *-*7 *-*7 *-*7 *-*7 *-*7 *-*7 *-*7 *-*7 *-*7

andy_li99

最初由 民工. 发布
[B]用数字命名图层可不是楼主的发明，
想当初，经一帮国家级专家研究，发布了 “1层是什么，2层是什么........”.之国家级《CAD制图标准》，
想来大家都用得很好吧，嘻嘻*-*7 *-*7 *-*7 *-*7 *-*7 *-*7 *-*7 *-*7 *-*... [/B]

发明、发现谈不上，不管是谁的发明发现，真正领悟到其中的奥妙并积极的结合自己的实践去应用才能真正把精华的东西变成自己的。

alim

最初由 民工 发布
[B]

...我叫3462，你叫301694...

[/B]

出来的人说，里头不兴叫名字的，都叫号。以前，还把号烙在身上，怕忘了。

wxz1970930

有没有其他方法

xyp1964

2. [FONT=courier new]
   
3. (defun c:1 () (xyp-mklaco "1" 1) (princ))
   
4. (defun c:2 () (xyp-mklaco "2" 2) (princ))
   
5. (defun c:3 () (xyp-mklaco "3" 3) (princ))
   
6. (defun c:4 () (xyp-mklaco "4" 4) (princ))
   
7. (defun c:5 () (xyp-mklaco "5" 5) (princ))
   
8. (defun c:6 () (xyp-mklaco "6" 6) (princ))
   
9. (defun c:7 () (xyp-mklaco "7" 7) (princ))
   
10. (defun c:8 () (xyp-mklaco "8" 8) (princ))
    
11. (defun c:9 () (xyp-mklaco "9" 9) (princ))
    
12. (defun c:10 () (xyp-mklaco "10" 10) (princ))
    
13. ;;;……
    
14. ;;;……
    
15. (defun c:100 () (xyp-mklaco "100" 100) (princ))
    
16. ;;;……
    
17. (defun c:255 () (xyp-mklaco "255" 255) (princ))
    
18. 
    
19. (defun xyp-mkLaCo (la-name la-color)
    
20.   (If (= (Tblsearch "layer" la-name) nil)
    
21.     (Command "layer" "m" la-name "c" la-color la-name "")
    
22.     (Command "layer" "t" la-name "s" la-name "c" la-color la-name "")
    
23.   )
    
24.   (princ)
    
25. )[/FONT]

[FONT=courier new]<br /> (defun c:1 () (xyp-mklaco "1" 1) (princ))<br /> (defun c:2 () (xyp-mklaco "2" 2) (princ))<br /> (defun c:3 () (xyp-mklaco "3" 3) (princ))<br /> (defun c:4 () (xyp-mklaco "4" 4) (princ))<br /> (defun c:5 () (xyp-mklaco "5" 5) (princ))<br /> (defun c:6 () (xyp-mklaco "6" 6) (princ))<br /> (defun c:7 () (xyp-mklaco "7" 7) (princ))<br /> (defun c:8 () (xyp-mklaco "8" 8) (princ))<br /> (defun c:9 () (xyp-mklaco "9" 9) (princ))<br /> (defun c:10 () (xyp-mklaco "10" 10) (princ))<br /> ;;;……<br /> ;;;……<br /> (defun c:100 () (xyp-mklaco "100" 100) (princ))<br /> ;;;……<br /> (defun c:255 () (xyp-mklaco "255" 255) (princ))<br /> <br /> (defun xyp-mkLaCo (la-name la-color)<br />   (If (= (Tblsearch "layer" la-name) nil)<br />     (Command "layer" "m" la-name "c" la-color la-name "")<br />     (Command "layer" "t" la-name "s" la-name "c" la-color la-name "")<br />   )<br />   (princ)<br /> )[/FONT]

xcajcj

无法下载？！

uyigu

受教了