如何让图层锁定后变暗？

saybluesky

哪位能解决这个问题不？不胜感激。

ljpnb

试了一下，在2010里直接用(command "-layer" "lo" 图层名 "")会出现变暗，用（vla-put-lock layer :vlax-true)会锁住层，但不会变暗.

ALXY

我也想知道，在04里如何实现这样的效果？请各位指点

zhynt

提供一个方法：

2. 
   
3. (defun c:ll (/ e h lay_c);;;锁层
   
4.   (vl-load-com)
   
5.   (setvar "cmdecho" 1)
   
6.   (setq e (car (entsel "\n选择图层所在的实体 :")))
   
7.   (if e
   
8.     (progn
   
9.       (setq h (cdr (assoc 8 (entget e))))
   
10.       (command "layer" "LO" h "")
    
11.       (setq lay_c (cdr
    
12.       (assoc
    
13.         62
    
14.         (tblsearch "layer" h)
    
15.       )
    
16.     )
    
17.       )
    
18.       (VLAX-LDATA-PUT h h lay_c)      
    
19.       (command "layer" "c" "252" h "")
    
20.     )
    
21.     (princ "\n没有选到实体!按回车继续.")
    
22.   )
    
23.   (setvar "cmdecho" 1)
    
24.   (princ)
    
25. )
    
26. (defun c:ul (/ e h lay_c);;;解锁
    
27.   (vl-load-com)
    
28.   (setvar "cmdecho" 1)
    
29.   (setq e (car (entsel "\n选择图层所在的实体 :")))
    
30.   (if e
    
31.     (progn
    
32.       (setq h (cdr (assoc 8 (entget e))))
    
33.       (command "layer" "u" h "")      
    
34.       (if (setq lay_c (VLAX-LDATA-get h h))
    
35. (command "layer" "c" lay_c h "")
    
36.       )
    
37.     )
    
38.     (princ "\n没有选到实体!按回车继续.")
    
39.   )
    
40.   (setvar "cmdecho" 1)
    
41.   (princ)
    
42. )
    
43. (print "命令：ll锁层，ul解锁")
    

<br /> (defun c:ll (/ e h lay_c);;;锁层<br />   (vl-load-com)<br />   (setvar "cmdecho" 1)<br />   (setq e (car (entsel "\n选择图层所在的实体 :")))<br />   (if e<br />     (progn<br />       (setq h (cdr (assoc 8 (entget e))))<br />       (command "layer" "LO" h "")<br />       (setq lay_c (cdr<br />       (assoc<br />         62<br />         (tblsearch "layer" h)<br />       )<br />     )<br />       )<br />       (VLAX-LDATA-PUT h h lay_c)      <br />       (command "layer" "c" "252" h "")<br />     )<br />     (princ "\n没有选到实体!按回车继续.")<br />   )<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )<br /> (defun c:ul (/ e h lay_c);;;解锁<br />   (vl-load-com)<br />   (setvar "cmdecho" 1)<br />   (setq e (car (entsel "\n选择图层所在的实体 :")))<br />   (if e<br />     (progn<br />       (setq h (cdr (assoc 8 (entget e))))<br />       (command "layer" "u" h "")      <br />       (if (setq lay_c (VLAX-LDATA-get h h))<br /> (command "layer" "c" lay_c h "")<br />       )<br />     )<br />     (princ "\n没有选到实体!按回车继续.")<br />   )<br />   (setvar "cmdecho" 1)<br />   (princ)<br /> )<br /> (print "命令：ll锁层，ul解锁")<br />

daidong013

回复 zhynt 的帖子

选层反选锁定颜色变暗可以做到吗？！~~~

xiguao

http://bbs.mjtd.com/thread-83744-1-1.html

zhynt

回复 daidong013 的帖子

选层反锁我也弄了，但是有个问题就是当图层较多时，程序反应较慢，看来写字典信息速度比较慢，现将程序发上来大家研究一下。
还有就是回楼上的“西瓜哦”兄弟，2004以前的版本没有“LAYLOCKFADECTL"系统变量，不能控制图层的淡显。

daidong013

回复 zhynt 的帖子

Z版大侠编的这个锁层工具还是不错的！~~
这里有一个【它山】做的图层灰锁大侠可以参考！~~

zhynt

嗯，这个工具不错，可否发上来？

daidong013

回复 zhynt 的帖子

编译过的！~看不到源码！~~

Z版大侠用用看！~~