把外部引用的图层改为灰色，无法改回来

happysheep

简单的说，我的问题就是：包含外部引用的图形，把包括外部引用在内的所有层变成灰色，并记录原来的颜色，再读取记录全部变回来。

怎么做呢？？

——————————————————————————————————
以下程序，功能是：

sl命令：选择一个对象，设为当前层，除本对象所在图层外，其他图层锁定并变为灰色，在词典中记录变色的图层原来的颜色……所有图层，包括外部引用的图层都会变色。
ull命令：所有图层解除锁定，并按照词典中的颜色把各层的颜色变回来……外部引用的图层变不回来，但是普通层能变回来。

我要怎么改，才能让ull命令全部解除锁定的时候，外部引用的图层颜色也能变回来呢？

求教~~

2. ;;;生成图层列表
   
3. (vl-load-com)
   
4. (defun laytab ()
   
5.   (setq first T)
   
6.   (setq layertab '())
   
7.   (while (setq lay1 (tblnext "layer" first))
   
8.     (if  (= first T)
   
9.       (setq first nil)
   
10.     )
    
11.     (if  (/= lay1 nil)
    
12.       (progn (setq lay2 (cdr (assoc 2 lay1)))
    
13.        (setq layertab (cons lay2 layertab))
    
14.       )
    
15.     )
    
16.   )
    
17. )
    
18. 
    
19. (defun locks (e / laytab n m n lay_ent lay_c layname)
    
20.   (setq n (length layertab))
    
21.   (setq m 0)
    
22.   (setq h (cdr (assoc 8 (entget e))))
    
23.   
    
24.   (vla-put-ActiveLayer
    
25.     (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
    
26.     (vla-item (vla-get-layers doc) h)
    
27.   )
    
28.   
    
29.   (while (/= m n)
    
30.     (if (/= h (setq layname (nth m layertab)))
    
31.       (progn (setq lay_ent (entget (tblobjname "layer" layname)))
    
32.        (setq lay_c (cdr (assoc 62 lay_ent)))
    
33.        (VLAX-LDATA-PUT "date" layname lay_c)
    
34.        (setq lay_ent (subst '(62 . 252) (assoc 62 lay_ent) lay_ent)
    
35.        lay_ent (subst '(70 . 4) '(70 . 0) lay_ent)
    
36.        )
    
37.        (entmod lay_ent)
    
38.       );依次对各层锁定、改色
    
39.     )
    
40.     (setq m (1+ m))
    
41.   )
    
42. )
    
43. 
    
44. 
    
45. 
    
46. ;;;全部解锁
    
47. (defun unall (/ laytab n m n lay_ent lay_c layname)
    
48.   (setq n (length layertab))
    
49.   (setq m 0)
    
50.   (while (/= m n)
    
51.     (setq layname (nth m layertab))
    
52.     (setq lay_ent (entget (tblobjname "layer" layname)))
    
53.      (if (= (cdr (assoc 62 lay_ent)) 252);如果该层颜色是252则改色
    
54.       (progn (if (setq lay_c (VLAX-LDATA-get "date" layname))
    
55.               (setq lay_ent (subst (cons 62 lay_c) (assoc 62 lay_ent) lay_ent))
    
56.        )
    
57.        (setq lay_ent (subst '(70 . 0) '(70 . 4) lay_ent));所有层都解锁
    
58.        (VLAX-LDATA-delete "date" layname)
    
59.        (entmod lay_ent)
    
60.       )
    
61.     )
    
62.     (setq m (1+ m))
    
63.   )
    
64. )
    
65. 
    
66. 
    
67. ;;;全部解锁
    
68. (defun c:ull ()
    
69.   (laytab)
    
70.   (setvar "cmdecho" 0)
    
71.   (command "_.undo" "be")
    
72.   (unall)
    
73.   (command "_.undo" "e")
    
74.   (setvar "cmdecho" 1)
    
75. )
    
76. 
    
77. ;;;单选解锁反锁
    
78. (defun c:sl ()
    
79.   (setvar "cmdecho" 0)
    
80.   (command "_.undo" "be")
    
81.   (if (setq e (car (entsel "\n选择需要编辑的图层上的物体:")))
    
82.     (progn
    
83.       (laytab) (unall) (locks e)
    
84.     )
    
85.   )
    
86.   (command "_.undo" "e")
    
87.   (setvar "cmdecho" 1)
    
88. )

;;;生成图层列表<br /> (vl-load-com)<br /> (defun laytab ()<br />   (setq first T)<br />   (setq layertab '())<br />   (while (setq lay1 (tblnext "layer" first))<br />     (if  (= first T)<br />       (setq first nil)<br />     )<br />     (if  (/= lay1 nil)<br />       (progn (setq lay2 (cdr (assoc 2 lay1)))<br />        (setq layertab (cons lay2 layertab))<br />       )<br />     )<br />   )<br /> )<br /> <br /> (defun locks (e / laytab n m n lay_ent lay_c layname)<br />   (setq n (length layertab))<br />   (setq m 0)<br />   (setq h (cdr (assoc 8 (entget e))))<br />   <br />   (vla-put-ActiveLayer<br />     (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))<br />     (vla-item (vla-get-layers doc) h)<br />   )<br />   <br />   (while (/= m n)<br />     (if (/= h (setq layname (nth m layertab)))<br />       (progn (setq lay_ent (entget (tblobjname "layer" layname)))<br />        (setq lay_c (cdr (assoc 62 lay_ent)))<br />        (VLAX-LDATA-PUT "date" layname lay_c)<br />        (setq lay_ent (subst '(62 . 252) (assoc 62 lay_ent) lay_ent)<br />        lay_ent (subst '(70 . 4) '(70 . 0) lay_ent)<br />        )<br />        (entmod lay_ent)<br />       );依次对各层锁定、改色<br />     )<br />     (setq m (1+ m))<br />   )<br /> )<br /> <br /> <br /> <br /> ;;;全部解锁<br /> (defun unall (/ laytab n m n lay_ent lay_c layname)<br />   (setq n (length layertab))<br />   (setq m 0)<br />   (while (/= m n)<br />     (setq layname (nth m layertab))<br />     (setq lay_ent (entget (tblobjname "layer" layname)))<br />      (if (= (cdr (assoc 62 lay_ent)) 252);如果该层颜色是252则改色<br />       (progn (if (setq lay_c (VLAX-LDATA-get "date" layname))<br />               (setq lay_ent (subst (cons 62 lay_c) (assoc 62 lay_ent) lay_ent))<br />        )<br />        (setq lay_ent (subst '(70 . 0) '(70 . 4) lay_ent));所有层都解锁<br />        (VLAX-LDATA-delete "date" layname)<br />        (entmod lay_ent)<br />       )<br />     )<br />     (setq m (1+ m))<br />   )<br /> )<br /> <br /> <br /> ;;;全部解锁<br /> (defun c:ull ()<br />   (laytab)<br />   (setvar "cmdecho" 0)<br />   (command "_.undo" "be")<br />   (unall)<br />   (command "_.undo" "e")<br />   (setvar "cmdecho" 1)<br /> )<br /> <br /> ;;;单选解锁反锁<br /> (defun c:sl ()<br />   (setvar "cmdecho" 0)<br />   (command "_.undo" "be")<br />   (if (setq e (car (entsel "\n选择需要编辑的图层上的物体:")))<br />     (progn<br />       (laytab) (unall) (locks e)<br />     )<br />   )<br />   (command "_.undo" "e")<br />   (setvar "cmdecho" 1)<br /> )

happysheep

自己顶吧，求教~

edata

happysheep 发表于 2014-3-1 10:34
自己顶吧，求教~

1. ;;;生成图层列表
   
2. (vl-load-com)
   
3. (defun laytab ()
   
4.   (setq first T)
   
5.   (setq layertab '())
   
6.   (while (setq lay1 (tblnext "layer" first))
   
7.     (if  (= first T)
   
8.       (setq first nil)
   
9.     )
   
10.     (if  (/= lay1 nil)
    
11.       (progn (setq lay2 (cdr (assoc 2 lay1)))
    
12.        (setq layertab (cons lay2 layertab))
    
13.       )
    
14.     )
    
15.   )
    
16. )
    
17. 
    
18. (defun locks (e / laytab n m n lay_ent lay_c layname)
    
19.   (setq n (length layertab))
    
20.   (setq m 0)
    
21.   (setq h (cdr (assoc 8 (entget e))))
    
22.   
    
23.   (vla-put-ActiveLayer
    
24.     (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
    
25.     (vla-item (vla-get-layers doc) h)
    
26.   )
    
27.   
    
28.   (while (/= m n)
    
29.     (if (/= h (setq layname (nth m layertab)))
    
30.       (progn (setq lay_ent (entget (tblobjname "layer" layname)))       
    
31.        (setq lay_c (cdr (assoc 62 lay_ent)))
    
32.         (setq layhad(cdr(assoc 5 lay_ent)))
    
33.        (VLAX-LDATA-PUT "date" layhad lay_c)
    
34.        (setq lay_ent (subst '(62 . 252) (assoc 62 lay_ent) lay_ent)
    
35.        lay_ent (subst '(70 . 4) '(70 . 0) lay_ent)
    
36.        )
    
37.        (entmod lay_ent)
    
38.       );依次对各层锁定、改色
    
39.     )
    
40.     (setq m (1+ m))
    
41.   )
    
42.   ;(princ (VLAX-LDATA-list "date" ))测试存储结果
    
43. )
    
44. 
    
45. 
    
46. 
    
47. ;;;全部解锁
    
48. (defun unall (/ laytab n m n lay_ent lay_c layname)
    
49.   (setq n (length layertab))
    
50.   (setq m 0)  
    
51.   (while (/= m n)
    
52.     (setq layname (nth m layertab))
    
53.     (setq lay_ent (entget (tblobjname "layer" layname))
    
54.           lay_hand (cdr(assoc 5 lay_ent)))
    
55.      (if (= (cdr (assoc 62 lay_ent)) 252);如果该层颜色是252则改色
    
56.       (progn (if (setq lay_c (VLAX-LDATA-get "date" lay_hand))                                  
    
57.               (setq lay_ent (subst (cons 62 lay_c) (assoc 62 lay_ent) lay_ent))             
    
58.        )
    
59.        (setq lay_ent (subst '(70 . 0) '(70 . 4) lay_ent));所有层都解锁
    
60.        (VLAX-LDATA-delete "date" lay_hand)
    
61.        (entmod lay_ent)
    
62.       )
    
63.     )
    
64.     (setq m (1+ m))
    
65.   )
    
66. )
    
67. 
    
68. 
    
69. ;;;全部解锁
    
70. (defun c:ull ()
    
71.   (laytab)
    
72.   (setvar "cmdecho" 0)
    
73.   (command "_.undo" "be")
    
74.   (unall)
    
75.   (command "_.undo" "e")
    
76.   (setvar "cmdecho" 1)
    
77. )
    
78. 
    
79. ;;;单选解锁反锁
    
80. (defun c:sl ()
    
81.   (setvar "cmdecho" 0)
    
82.   (command "_.undo" "be")
    
83.   (if (setq e (car (entsel "\n选择需要编辑的图层上的物体:")))
    
84.     (progn
    
85.       (laytab) (unall) (locks e)
    
86.     )
    
87.   )
    
88.   (command "_.undo" "e")
    
89.   (setvar "cmdecho" 1)
    
90. )
    
91. 
    
92. 
    

;;;生成图层列表<br /> (vl-load-com)<br /> (defun laytab ()<br />   (setq first T)<br />   (setq layertab '())<br />   (while (setq lay1 (tblnext "layer" first))<br />     (if  (= first T)<br />       (setq first nil)<br />     )<br />     (if  (/= lay1 nil)<br />       (progn (setq lay2 (cdr (assoc 2 lay1)))<br />        (setq layertab (cons lay2 layertab))<br />       )<br />     )<br />   )<br /> )<br /> <br /> (defun locks (e / laytab n m n lay_ent lay_c layname)<br />   (setq n (length layertab))<br />   (setq m 0)<br />   (setq h (cdr (assoc 8 (entget e))))<br />   <br />   (vla-put-ActiveLayer<br />     (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))<br />     (vla-item (vla-get-layers doc) h)<br />   )<br />   <br />   (while (/= m n)<br />     (if (/= h (setq layname (nth m layertab)))<br />       (progn (setq lay_ent (entget (tblobjname "layer" layname)))        <br />        (setq lay_c (cdr (assoc 62 lay_ent)))<br />         (setq layhad(cdr(assoc 5 lay_ent)))<br />        (VLAX-LDATA-PUT "date" layhad lay_c)<br />        (setq lay_ent (subst '(62 . 252) (assoc 62 lay_ent) lay_ent)<br />        lay_ent (subst '(70 . 4) '(70 . 0) lay_ent)<br />        )<br />        (entmod lay_ent)<br />       );依次对各层锁定、改色<br />     )<br />     (setq m (1+ m))<br />   )<br />   ;(princ (VLAX-LDATA-list "date" ))测试存储结果<br /> )<br /> <br /> <br /> <br /> ;;;全部解锁<br /> (defun unall (/ laytab n m n lay_ent lay_c layname)<br />   (setq n (length layertab))<br />   (setq m 0)  <br />   (while (/= m n)<br />     (setq layname (nth m layertab))<br />     (setq lay_ent (entget (tblobjname "layer" layname))<br />           lay_hand (cdr(assoc 5 lay_ent)))<br />      (if (= (cdr (assoc 62 lay_ent)) 252);如果该层颜色是252则改色<br />       (progn (if (setq lay_c (VLAX-LDATA-get "date" lay_hand))                                  <br />               (setq lay_ent (subst (cons 62 lay_c) (assoc 62 lay_ent) lay_ent))              <br />        )<br />        (setq lay_ent (subst '(70 . 0) '(70 . 4) lay_ent));所有层都解锁<br />        (VLAX-LDATA-delete "date" lay_hand)<br />        (entmod lay_ent)<br />       )<br />     )<br />     (setq m (1+ m))<br />   )<br /> )<br /> <br /> <br /> ;;;全部解锁<br /> (defun c:ull ()<br />   (laytab)<br />   (setvar "cmdecho" 0)<br />   (command "_.undo" "be")<br />   (unall)<br />   (command "_.undo" "e")<br />   (setvar "cmdecho" 1)<br /> )<br /> <br /> ;;;单选解锁反锁<br /> (defun c:sl ()<br />   (setvar "cmdecho" 0)<br />   (command "_.undo" "be")<br />   (if (setq e (car (entsel "\n选择需要编辑的图层上的物体:")))<br />     (progn<br />       (laytab) (unall) (locks e)<br />     )<br />   )<br />   (command "_.undo" "e")<br />   (setvar "cmdecho" 1)<br /> )<br /> <br /> <br />

happysheep

edata 发表于 2014-3-1 11:48

感谢edata！
原来用图元名，而不是图层名字，就可以变灰色了，学习了。

这里，我还有个问题，如下代码和上面那些是同一系统的，功能是选择一个对象，然后锁定并变灰该对象所在的图层，但是如果选择的是个外部引用，其内部的图层就不能被操作，原因是根据选择集无法得到外部引用内部图层的图元名，怎么解决这个问题呢？

2. (defun lockl (e / layname lay_ent lay_c)
   
3.   (setq layname (cdr (assoc 8 (entget e))))
   
4.   (setq lay_ent (entget (tblobjname "layer" layname)))
   
5.   (setq lay_hand (cdr(assoc 5 lay_ent)))
   
6.   (if (= (cdr (assoc 70 lay_ent)) 0)
   
7.     (progn (setq lay_c (cdr (assoc 62 lay_ent)))
   
8.            (VLAX-LDATA-PUT "date" lay_hand lay_c)
   
9.            (setq lay_ent (subst '(62 . 252) (assoc 62 lay_ent) lay_ent)
   
10.                  lay_ent (subst '(70 . 4) '(70 . 0) lay_ent);锁住图层
    
11.            )
    
12.            (entmod lay_ent);在图纸上更新数据库内的图元
    
13.     )
    
14.   )
    
15. )
    
16. 
    
17. (defun c:ll ()
    
18.   (setvar "cmdecho" 0)
    
19.   (command "_.undo" "be")
    
20.   (prompt "\n选择需锁定层上的图元:")
    
21.   (if (setq e_ss (ssget))
    
22.     (progn (setq n (sslength e_ss))
    
23.            (setq m 0)
    
24.            (while (/= m n)
    
25.              (setq e (ssname e_ss m))
    
26.              (lockl e)
    
27.              (setq m (1+ m))
    
28.            )
    
29.     )
    
30.   )
    
31.   (command "_.undo" "e")
    
32.   (setvar "cmdecho" 1)
    
33. )

(defun lockl (e / layname lay_ent lay_c)<br />   (setq layname (cdr (assoc 8 (entget e))))<br />   (setq lay_ent (entget (tblobjname "layer" layname)))<br />   (setq lay_hand (cdr(assoc 5 lay_ent)))<br />   (if (= (cdr (assoc 70 lay_ent)) 0)<br />     (progn (setq lay_c (cdr (assoc 62 lay_ent)))<br />            (VLAX-LDATA-PUT "date" lay_hand lay_c)<br />            (setq lay_ent (subst '(62 . 252) (assoc 62 lay_ent) lay_ent)<br />                  lay_ent (subst '(70 . 4) '(70 . 0) lay_ent);锁住图层<br />            )<br />            (entmod lay_ent);在图纸上更新数据库内的图元<br />     )<br />   )<br /> )<br /> <br /> (defun c:ll ()<br />   (setvar "cmdecho" 0)<br />   (command "_.undo" "be")<br />   (prompt "\n选择需锁定层上的图元:")<br />   (if (setq e_ss (ssget))<br />     (progn (setq n (sslength e_ss))<br />            (setq m 0)<br />            (while (/= m n)<br />              (setq e (ssname e_ss m))<br />              (lockl e)<br />              (setq m (1+ m))<br />            )<br />     )<br />   )<br />   (command "_.undo" "e")<br />   (setvar "cmdecho" 1)<br /> )

happysheep

自己顶一下..........

lz123456

最好把那单选解锁反锁改为框选，这样效率要高些