[LISP函数]：添加设置当前层

eachy

2. 
   
3. ;;添加设置当前层
   
4. (defun xd-addlayer (layname color / lay)
   
5.   (if (not (setq elay (tblobjname "layer" layname))) ;no
   
6.     (progn
   
7.       (setq lay (vla-add (vla-get-layers (thisdrawing)) layname))
   
8.       (if color
   
9.         (vla-put-color lay color)
   
10.       )
    
11.     )
    
12.     (if        (= (type color) 'INT)
    
13.       (progn
    
14.         (setq lst    (entget elay)
    
15.               oldlst (assoc 62 lst)
    
16.               col    (abs (cdr oldlst))
    
17.         )
    
18.         (if (/= col color)
    
19.           (setq        lst (subst (cons 62 color)
    
20.                            oldlst
    
21.                            lst
    
22.                     )
    
23.           )
    
24.           (entmod lst)
    
25.         )
    
26.       )
    
27.     )
    
28.   )
    
29.   (setvar "clayer" layername)
    
30. )

<br /> ;;添加设置当前层<br /> (defun xd-addlayer (layname color / lay)<br />   (if (not (setq elay (tblobjname "layer" layname))) ;no<br />     (progn<br />       (setq lay (vla-add (vla-get-layers (thisdrawing)) layname))<br />       (if color<br />         (vla-put-color lay color)<br />       )<br />     )<br />     (if        (= (type color) 'INT)<br />       (progn<br />         (setq lst    (entget elay)<br />               oldlst (assoc 62 lst)<br />               col    (abs (cdr oldlst))<br />         )<br />         (if (/= col color)<br />           (setq        lst (subst (cons 62 color)<br />                            oldlst<br />                            lst<br />                     )<br />           )<br />           (entmod lst)<br />         )<br />       )<br />     )<br />   )<br />   (setvar "clayer" layername)<br /> )

狂刀

[php]
;| 设置当前层颜色(无层自动建层)-----by 狂刀.
  功能: 创建/修改含颜色属性的层，并设为当前层.
　参数: lan = 层名.
  　　　col = 颜色.
  实例: (xd-mklac "1" "3")
        (xd-mklac2 "1" "0")
        (xd-mklac2 "1" "2")
        (xd-mklac2 "1-1" "4")
|;
(defun xd-mklac (lan col )
  (command ".layer" "n" lan "s" lan "c" col "" "")
)
[/php][php]
;;功能等同 xd-mklac
(defun xd-mklac2 ( lan col )
  (vla-put-color (vla-add (vla-get-layers
                            (vla-get-activedocument (vlax-get-acad-object))
                            )
                          lan)
    col)
  (setvar "CLAYER" lan)
)
)
[/php]

aeo

我从来不设置层。

1. 
   
2. 新生成实体后:
   
3. 
   
4. ([URL=http://www.xdcad.net/forum/showthread.php?s=&threadid=452097][U][COLOR=red]xd-modent[/COLOR] [/U][/URL] (entlast)  8 "newlayer")  ;层会自动生成.
   
5. ([URL=http://www.xdcad.net/forum/showthread.php?s=&threadid=452097][U][COLOR=red]xd-modent[/COLOR] [/U][/URL] (cdr(assoc -1(tblobjname "layer""newlayer"))) 62 "newcolor") ;如果有必要改颜色.
   

复制代码