将一组对象的图层同指定的对象匹配

Lisphk

1. (defun c:CL ( / ENTITY1 LN OLDCE OLDERR OLDTE)
   
2.   ; Save the current value of cmdecho then redefine it.
   
3.   (setq OLDCE (getvar "cmdecho"))
   
4.   (setvar "cmdecho" 1)
   
5.   ; Save the current value of texteval then set it to 1
   
6.   (setq OLDTE (getvar "texteval"))
   
7.   (setvar "texteval" 1)
   
8.   ; Save the current value of the error handling subroutine then redefine it.
   
9.   (setq OLDERR *error*)
   
10.   (defun *error* (errmes)
    
11.     (princ (strcat "\nExecution of CL halted by the following error: " ERRMES))
    
12.     (setvar "cmdecho" OLDCE)
    
13.     (setq *error* OLDERR)
    
14.     (prin1)
    
15.   )
    
16.   ;(setq *error* nil)
    
17.   ; NOTE: to turn error handling off, erase the semicolon in the line above.
    
18. 
    
19.   ; GET a ENTITY from the user and store it in ENTITY1.
    
20.   (setq ENTITY1 (car (entsel "\nSelect object from which to extract the layer: ")))
    
21. 
    
22.   ; EXTRACT the Layer name from the entity ENTITY1 and store it in LN.
    
23.   (setq LN (cdr (assoc 8 (entget ENTITY1))))
    
24. 
    
25.   ; Input to AutoCAD's command line.
    
26.   (command
    
27.     "change"
    
28.   )
    
29.   (command
    
30.     (ssget)
    
31.     ""
    
32.     "p"
    
33.     "la"
    
34.     LN
    
35.     ""
    
36.   )
    
37. 
    
38.   ; Reset "cmdecho" to previous value.
    
39.   (setvar "cmdecho" OLDCE)
    
40.   ; Reset "texteval" to previous value.
    
41.   (setvar "texteval" OLDTE)
    
42.   ; Reset *error* to previous definition.
    
43.   (setq *error* OLDERR)
    
44.   ; Exit quietly (no return value.)
    
45.   (prin1)
    
46. )
    
47. 
    

(defun c:CL ( / ENTITY1 LN OLDCE OLDERR OLDTE)<br />   ; Save the current value of cmdecho then redefine it. <br />   (setq OLDCE (getvar "cmdecho"))<br />   (setvar "cmdecho" 1)<br />   ; Save the current value of texteval then set it to 1<br />   (setq OLDTE (getvar "texteval"))<br />   (setvar "texteval" 1)<br />   ; Save the current value of the error handling subroutine then redefine it. <br />   (setq OLDERR *error*)<br />   (defun *error* (errmes)<br />     (princ (strcat "\nExecution of CL halted by the following error: " ERRMES))<br />     (setvar "cmdecho" OLDCE)<br />     (setq *error* OLDERR)<br />     (prin1)<br />   )<br />   ;(setq *error* nil)<br />   ; NOTE: to turn error handling off, erase the semicolon in the line above. <br /> <br />   ; GET a ENTITY from the user and store it in ENTITY1. <br />   (setq ENTITY1 (car (entsel "\nSelect object from which to extract the layer: ")))<br /> <br />   ; EXTRACT the Layer name from the entity ENTITY1 and store it in LN.<br />   (setq LN (cdr (assoc 8 (entget ENTITY1)))) <br /> <br />   ; Input to AutoCAD's command line. <br />   (command<br />     "change"<br />   )<br />   (command <br />     (ssget)<br />     ""<br />     "p"<br />     "la"<br />     LN<br />     ""<br />   )<br /> <br />   ; Reset "cmdecho" to previous value. <br />   (setvar "cmdecho" OLDCE)<br />   ; Reset "texteval" to previous value. <br />   (setvar "texteval" OLDTE)<br />   ; Reset *error* to previous definition. <br />   (setq *error* OLDERR)<br />   ; Exit quietly (no return value.)<br />   (prin1)<br /> )<br /> <br />

xvjiex

感谢分享将一组对象的图层同指定的对象匹配

13793997827

能说说用法吗？