图层控制-源码，VL函数，非command，非修改组码

print1985

把这句加上(vl-load-com)
亲 以后遇见VL函数都要加哦

ptime

谢谢楼主分享，支持源码。

smartstar

图层锁定没有褪色效果，可否添加此效果。另外可否添加选择图层解除锁定功能。

可扩展功能图片：

xiaolong1487

太感谢了，很好的资料，而且是免费的，谢谢！

print1985

smartstar 发表于 2012-6-11 12:34
图层锁定没有褪色效果，可否添加此效果。另外可否添加选择图层解除锁定功能。

可扩展功能图片：

谢谢，功能会慢慢添加的，因为我自己也要用
褪色你是指的高版本的LAYLOCKFADECTL参数控制的褪色，还是直接改变锁定图层的颜色？
高版本的那个褪色很鸡肋，锁层与解锁切换很慢，有时图纸太大要等半天
直接改变图层颜色也只能改变颜色随层的物体，如果图层多图纸大也慢，因为都需要刷新，只要刷新就慢

smartstar

我指的是LAYLOCKFADECTL参数控制的褪色，锁定褪色可以很直观判断那些图层已经被锁定。

print1985

smartstar 发表于 2012-6-11 14:24
我指的是LAYLOCKFADECTL参数控制的褪色，锁定褪色可以很直观判断那些图层已经被锁定。

先试试

2. ;自定义命令
   
3. (defun c:vs () (tcsd));图层锁定
   
4. (defun c:vjs () (tcjs));选择解锁
   
5. (defun c:vjq () (tcqbjs));全部解锁
   
6. (defun c:vsf () (tcsdf));锁定(反)
   
7. 
   
8. ;[图层锁定]
   
9. (defun tcsd (/ AcadObject AcadDocument LayersObj ss n i ent ob lay vlay tuise)
   
10.        (setq AcadObject (vlax-get-acad-object)
    
11.               AcadDocument (vla-get-ActiveDocument AcadObject)
    
12.                                        LayersObj (vla-get-layers AcadDocument)
    
13.        );end setq
    
14.        (princ "\n请选择需要锁定的图层" )
    
15.        (if (setq ss (ssget))
    
16.               (progn
    
17.                      (setq n (sslength ss))
    
18.                      (setq i (- n 1))
    
19.                      (repeat n
    
20.                             (setq ent (ssname ss i)
    
21.                                    ob (vlax-ename->vla-object ent)
    
22.                                                                     lay (vla-get-layer ob)
    
23.                                                                     vlay (vla-item LayersObj lay)
    
24.                                                             );end setq
    
25.                                                      (vla-put-lock vlay :vlax-true)
    
26.                             (setq i (1- i))
    
27.                      );end repeat
    
28.                                  (setq tuise (getvar "LAYLOCKFADECTL"))
    
29.         (setvar "LAYLOCKFADECTL" (* tuise -1))
    
30.                                  (setvar "LAYLOCKFADECTL" tuise)
    
31.        (princ "\n已锁定选择图层" )
    
32.        ));end if
    
33.        (princ)
    
34. );end defun
    
35. ;[图层全部解锁]
    
36. (defun tcqbjs (/ AcadObject AcadDocument LayersObj vlay tuise)
    
37.        (setq AcadObject (vlax-get-acad-object)
    
38.               AcadDocument (vla-get-ActiveDocument AcadObject)
    
39.               LayersObj (vla-get-layers AcadDocument)
    
40.        );end setq
    
41.        (vlax-for vlay LayersObj
    
42.               (vla-put-lock vlay :vlax-false)
    
43.        );end vlax-for
    
44.                                  (setq tuise (getvar "LAYLOCKFADECTL"))
    
45.         (setvar "LAYLOCKFADECTL" (* tuise -1))
    
46.                                  (vla-regen AcadDocument AcAllViewPorts)
    
47.                                  (setvar "LAYLOCKFADECTL" tuise)
    
48.        (princ "\n已解锁全部图层" )
    
49.        (princ)
    
50. );end defun
    
51. ;[图层解锁(反)]
    
52. (defun tcsdf (/ AcadObject AcadDocument LayersObj ss n i ent ob lay vlay tuise)
    
53.        (setq AcadObject (vlax-get-acad-object)
    
54.               AcadDocument (vla-get-ActiveDocument AcadObject)
    
55.                                        LayersObj (vla-get-layers AcadDocument)
    
56.        );end setq
    
57.        (princ "\n请选择不需要锁定的图层" )
    
58.        (if (setq ss (ssget))
    
59.               (progn
    
60.                               (vlax-for vlay LayersObj
    
61.                             (vla-put-lock vlay :vlax-true)
    
62.                      );end vlax-for
    
63.                      (setq n (sslength ss))
    
64.                      (setq i (- n 1))
    
65.                      (repeat n
    
66.                             (setq ent (ssname ss i)
    
67.                                    ob (vlax-ename->vla-object ent)
    
68.                                                                     lay (vla-get-layer ob)
    
69.                                                                     vlay (vla-item LayersObj lay)
    
70.                                                             );end setq
    
71.                                                      (vla-put-lock vlay :vlax-false)
    
72.                             (setq i (1- i))
    
73.                      );end repeat
    
74.                                  (setq tuise (getvar "LAYLOCKFADECTL"))
    
75.         (setvar "LAYLOCKFADECTL" (* tuise -1))
    
76.                                  (setvar "LAYLOCKFADECTL" tuise)
    
77.         (princ "\n已锁定除选择图层外的其余图层" )
    
78.        ));end if
    
79.        (princ)
    
80. );end defun
    
81. ;[选择解锁]
    
82. (defun tcjs (/ AcadObject AcadDocument LayersObj ss n i ent ob lay vlay tuise lay-tn)
    
83.        (setq AcadObject (vlax-get-acad-object)
    
84.               AcadDocument (vla-get-ActiveDocument AcadObject)
    
85.                                        LayersObj (vla-get-layers AcadDocument)
    
86.        );end setq
    
87.        (princ "\n请选择需要解锁的图层" )
    
88.        (if (setq ss (ssget))
    
89.               (progn
    
90.                      (setq n (sslength ss))
    
91.                      (setq i (- n 1))
    
92.                      (repeat n
    
93.                             (setq ent (ssname ss i)
    
94.                                    ob (vlax-ename->vla-object ent)
    
95.                                                                     lay (vla-get-layer ob)
    
96.                                                                     vlay (vla-item LayersObj lay)
    
97.                                                             );end setq
    
98.                                                                                                                                 (if (= (vla-get-lock vlay) :vlax-true)
    
99.                                                                                                                                    (progn
    
100.                                                      (vla-put-lock vlay :vlax-false)
     
101.                                                      (setq lay-tn T)
     
102.                                                                                                                                 ))
     
103.                             (setq i (1- i))
     
104.                      );end repeat
     
105.                                  (if lay-tn
     
106.                                   (progn
     
107.                                    (setq tuise (getvar "LAYLOCKFADECTL"))
     
108.           (setvar "LAYLOCKFADECTL" (* tuise -1))
     
109.                                    (vla-regen AcadDocument AcAllViewPorts)
     
110.                                    (setvar "LAYLOCKFADECTL" tuise)
     
111.                                  ))
     
112.        (princ "\n已解锁选择图层" )
     
113.        ));end if
     
114.        (princ)
     
115. );end defun

;自定义命令<br /> (defun c:vs () (tcsd));图层锁定<br /> (defun c:vjs () (tcjs));选择解锁<br /> (defun c:vjq () (tcqbjs));全部解锁<br /> (defun c:vsf () (tcsdf));锁定(反)<br /> <br /> ;[图层锁定]<br /> (defun tcsd (/ AcadObject AcadDocument LayersObj ss n i ent ob lay vlay tuise)<br />        (setq AcadObject (vlax-get-acad-object)<br />               AcadDocument (vla-get-ActiveDocument AcadObject)<br />                                        LayersObj (vla-get-layers AcadDocument)<br />        );end setq<br />        (princ "\n请选择需要锁定的图层" )<br />        (if (setq ss (ssget))<br />               (progn<br />                      (setq n (sslength ss))<br />                      (setq i (- n 1))<br />                      (repeat n<br />                             (setq ent (ssname ss i)<br />                                    ob (vlax-ename->vla-object ent)<br />                                                                     lay (vla-get-layer ob)<br />                                                                     vlay (vla-item LayersObj lay)<br />                                                             );end setq<br />                                                      (vla-put-lock vlay :vlax-true)<br />                             (setq i (1- i))<br />                      );end repeat<br />                                  (setq tuise (getvar "LAYLOCKFADECTL"))<br />         (setvar "LAYLOCKFADECTL" (* tuise -1))<br />                                  (setvar "LAYLOCKFADECTL" tuise)<br />        (princ "\n已锁定选择图层" )<br />        ));end if<br />        (princ)<br /> );end defun<br /> ;[图层全部解锁]<br /> (defun tcqbjs (/ AcadObject AcadDocument LayersObj vlay tuise)<br />        (setq AcadObject (vlax-get-acad-object)<br />               AcadDocument (vla-get-ActiveDocument AcadObject)<br />               LayersObj (vla-get-layers AcadDocument)<br />        );end setq<br />        (vlax-for vlay LayersObj<br />               (vla-put-lock vlay :vlax-false)<br />        );end vlax-for<br />                                  (setq tuise (getvar "LAYLOCKFADECTL"))<br />         (setvar "LAYLOCKFADECTL" (* tuise -1))<br />                                  (vla-regen AcadDocument AcAllViewPorts)<br />                                  (setvar "LAYLOCKFADECTL" tuise)<br />        (princ "\n已解锁全部图层" )<br />        (princ)<br /> );end defun<br /> ;[图层解锁(反)]<br /> (defun tcsdf (/ AcadObject AcadDocument LayersObj ss n i ent ob lay vlay tuise)<br />        (setq AcadObject (vlax-get-acad-object)<br />               AcadDocument (vla-get-ActiveDocument AcadObject)<br />                                        LayersObj (vla-get-layers AcadDocument)<br />        );end setq<br />        (princ "\n请选择不需要锁定的图层" )<br />        (if (setq ss (ssget))<br />               (progn<br />                               (vlax-for vlay LayersObj<br />                             (vla-put-lock vlay :vlax-true)<br />                      );end vlax-for<br />                      (setq n (sslength ss))<br />                      (setq i (- n 1))<br />                      (repeat n<br />                             (setq ent (ssname ss i)<br />                                    ob (vlax-ename->vla-object ent)<br />                                                                     lay (vla-get-layer ob)<br />                                                                     vlay (vla-item LayersObj lay)<br />                                                             );end setq<br />                                                      (vla-put-lock vlay :vlax-false)<br />                             (setq i (1- i))<br />                      );end repeat<br />                                  (setq tuise (getvar "LAYLOCKFADECTL"))<br />         (setvar "LAYLOCKFADECTL" (* tuise -1))<br />                                  (setvar "LAYLOCKFADECTL" tuise)<br />         (princ "\n已锁定除选择图层外的其余图层" )<br />        ));end if<br />        (princ)<br /> );end defun<br /> ;[选择解锁]<br /> (defun tcjs (/ AcadObject AcadDocument LayersObj ss n i ent ob lay vlay tuise lay-tn)<br />        (setq AcadObject (vlax-get-acad-object)<br />               AcadDocument (vla-get-ActiveDocument AcadObject)<br />                                        LayersObj (vla-get-layers AcadDocument)<br />        );end setq<br />        (princ "\n请选择需要解锁的图层" )<br />        (if (setq ss (ssget))<br />               (progn<br />                      (setq n (sslength ss))<br />                      (setq i (- n 1))<br />                      (repeat n<br />                             (setq ent (ssname ss i)<br />                                    ob (vlax-ename->vla-object ent)<br />                                                                     lay (vla-get-layer ob)<br />                                                                     vlay (vla-item LayersObj lay)<br />                                                             );end setq<br />                                                                                                                                 (if (= (vla-get-lock vlay) :vlax-true)<br />                                                                                                                                    (progn<br />                                                      (vla-put-lock vlay :vlax-false)<br />                                                      (setq lay-tn T)<br />                                                                                                                                 ))<br />                             (setq i (1- i))<br />                      );end repeat<br />                                  (if lay-tn<br />                                   (progn<br />                                    (setq tuise (getvar "LAYLOCKFADECTL"))<br />           (setvar "LAYLOCKFADECTL" (* tuise -1))<br />                                    (vla-regen AcadDocument AcAllViewPorts)<br />                                    (setvar "LAYLOCKFADECTL" tuise)<br />                                  ))<br />        (princ "\n已解锁选择图层" )<br />        ));end if<br />        (princ)<br /> );end defun

gzxl

关于隐藏物体的代码论坛已经比较多了，但有个缺点就是对隐藏物体的显示都是全显。。。
如果可以预览所隐藏的物体是不是更简便易用，更加人性化呢？希望楼主能先搞出来


我想应该是这样的个思路

xiaoquansb

支持楼主开源

zyhandw

下了，学习学习！