老大们请帮忙

冒个烟圈

此命令提示”\n该图层已存在！"后就自动退出了
要求增加功能：提示”该图层已存在“后，请重新输入图层名

；；来自明经lyqiezi的新建图层                     
(defun c:NL()
        (setq lay_name (getstring "\n输入要新建的图层名称："))
        (if (tblsearch "LAYER"  lay_name)
                (princ "\n该图层已存在！")
                (progn
                        (setq lay_cor (abs (cdr(assoc 62 (tblnext"layer" t)))))
                        (setq cor_list nil)
                        (while lay_cor
                                (setq cor_list (vl-list* lay_cor cor_list))
                                (if (setq lay_cor (cdr (assoc 62 (tblnext"layer"))))
                                        (setq lay_cor (abs lay_cor)))
                        )
                        (setq cor 1)
                        (while (member cor cor_list)
                                (setq cor (1+ cor))
                        )
                        (if (> cor 255)
                                (progn
                                        (princ "\n您的图层颜色过多，已按255色建层")
                                  (setq cor 255)))
                        (entmake (list '(0 . "LAYER") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLayerTableRecord") '(70 . 0) '(6 . "Continuous")(cons 62 cor)
                                        (cons 2 lay_name)
                                )
                        )
                        (command "clayer" lay_name)
                        (princ "\n已新建图层<<")
                  (princ lay_name)
                 (princ ">>并切换成当前图层")
                )
               
        )
        (prin1)
)

该贴已经同步到 冒个烟圈的微博


该贴已经同步到 冒个烟圈的微博

放羊去的

2. (defun c:NL()
   
3.         (setq lay_name (getstring "\n输入要新建的图层名称："))
   
4.         (if (tblsearch "LAYER"  lay_name)
   
5.                   (progn
   
6.                  (princ "\n该图层已存在！")
   
7.                  (c:NL)
   
8.                 )
   
9.                 (progn
   
10.                         (setq lay_cor (abs (cdr(assoc 62 (tblnext"layer" t)))))
    
11.                         (setq cor_list nil)
    
12.                         (while lay_cor
    
13.                                 (setq cor_list (vl-list* lay_cor cor_list))
    
14.                                 (if (setq lay_cor (cdr (assoc 62 (tblnext"layer"))))
    
15.                                         (setq lay_cor (abs lay_cor)))
    
16.                         )
    
17.                         (setq cor 1)
    
18.                         (while (member cor cor_list)
    
19.                                 (setq cor (1+ cor))
    
20.                         )
    
21.                         (if (> cor 255)
    
22.                                 (progn
    
23.                                         (princ "\n您的图层颜色过多，已按255色建层")
    
24.                                   (setq cor 255)))
    
25.                         (entmake (list '(0 . "LAYER") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLayerTableRecord") '(70 . 0) '(6 . "Continuous")(cons 62 cor)
    
26.                                         (cons 2 lay_name)
    
27.                                 )
    
28.                         )
    
29.                         (command "clayer" lay_name)
    
30.                         (princ "\n已新建图层<<")
    
31.                   (princ lay_name)
    
32.                  (princ ">>并切换成当前图层")
    
33.                 )
    
34.                
    
35.         )
    
36.         (prin1)
    
37. )

(defun c:NL()<br />         (setq lay_name (getstring "\n输入要新建的图层名称："))<br />         (if (tblsearch "LAYER"  lay_name)<br />                   (progn<br />                  (princ "\n该图层已存在！")<br />                  (c:NL)<br />                 )<br />                 (progn<br />                         (setq lay_cor (abs (cdr(assoc 62 (tblnext"layer" t)))))<br />                         (setq cor_list nil)<br />                         (while lay_cor<br />                                 (setq cor_list (vl-list* lay_cor cor_list))<br />                                 (if (setq lay_cor (cdr (assoc 62 (tblnext"layer"))))<br />                                         (setq lay_cor (abs lay_cor)))<br />                         )<br />                         (setq cor 1)<br />                         (while (member cor cor_list)<br />                                 (setq cor (1+ cor))<br />                         )<br />                         (if (> cor 255)<br />                                 (progn <br />                                         (princ "\n您的图层颜色过多，已按255色建层")<br />                                   (setq cor 255)))<br />                         (entmake (list '(0 . "LAYER") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLayerTableRecord") '(70 . 0) '(6 . "Continuous")(cons 62 cor)<br />                                         (cons 2 lay_name)<br />                                 )<br />                         )<br />                         (command "clayer" lay_name)<br />                         (princ "\n已新建图层<<")<br />                   (princ lay_name)<br />                  (princ ">>并切换成当前图层")<br />                 )<br />                 <br />         )<br />         (prin1)<br /> )

冒个烟圈

放羊去的 发表于 2015-5-28 08:23

谢谢，，要的就是这个效果

nadaloveluna

冒个烟圈 发表于 2015-5-28 08:42
谢谢，，要的就是这个效果

新建图层的颜色，线型怎么修改呢，前辈。。。。。

ZZXXQQ

1.   (entmake
   
2.    (list
   
3.     '(0 . "LAYER")
   
4.     '(100 . "AcDbSymbolTableRecord")
   
5.     '(100 . "AcDbLayerTableRecord")
   
6.     '(70 . 0)
   
7.     '(6 . "Continuous");线型
   
8.     (cons 62 cor);颜色
   
9.     (cons 2 lay_name)
   
10.    )
    
11.   )
    

复制代码

冒个烟圈

nadaloveluna 发表于 2015-5-28 12:07
新建图层的颜色，线型怎么修改呢，前辈。。。。。

这个是自动设置颜色的，就是与图形文件中现有的图层颜色不一样，自动选定一种颜色，如果不满意动手改下颜色，至于线型嘛，“ZZXXQQ”前辈的贴子上有标注了。

oistre

谢谢大神，牛牛牛牛！！！