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

print1985

先试试 暂时没加颜色隐藏

2. ;[隐藏物体]
   
3. (defun c:yc (/ AcadObject AcadDocument LayersObj ss n i ent ob lay vlay lay-tn)
   
4. (setq AcadObject (vlax-get-acad-object)
   
5.               AcadDocument (vla-get-ActiveDocument AcadObject)
   
6.               LayersObj (vla-get-layers AcadDocument)
   
7. );end setq
   
8. (princ "\n请选择需要隐藏的物体" )
   
9. (if (setq ss (ssget))
   
10.                (progn
    
11.                       (setq n (sslength ss))
    
12.                       (setq i (- n 1))
    
13.                       (repeat n
    
14.                              (setq ent (ssname ss i)
    
15.                                     ob (vlax-ename->vla-object ent)
    
16.                                     lay (vla-get-layer ob)
    
17.                                     vlay (vla-item LayersObj lay)
    
18.                             );end setq
    
19.                              (if (= (setq lay-tn (vla-get-lock vlay)) :vlax-true);如果图层锁定
    
20.                                     (vla-put-lock vlay :vlax-false);先解锁图层
    
21.                             );end if
    
22.                              (vla-put-visible ob :vlax-false)
    
23.                              (if (= lay-tn :vlax-true)
    
24.                                     (vla-put-lock vlay :vlax-true);再锁定图层，恢复图层状态
    
25.                             );end if
    
26.                              (setq i (1- i))
    
27.                      );end repeat
    
28.                       (princ "\n已隐藏选择物体" )
    
29. ));end if
    
30. (princ)
    
31. );end defun
    
32. ;[恢复隐藏]
    
33. (defun c:xs (/ AcadObject AcadDocument LayersObj ss n i ent ob lay vlay lay-tn)
    
34. (setq AcadObject (vlax-get-acad-object)
    
35.               AcadDocument (vla-get-ActiveDocument AcadObject)
    
36.               LayersObj (vla-get-layers AcadDocument)
    
37. );end setq
    
38. (if (setq ss (ssget "x" '((60 . 1))))
    
39.                (progn
    
40.                       (setq n (sslength ss))
    
41.                       (setq i (- n 1))
    
42.                       (repeat n
    
43.                              (setq ent (ssname ss i)
    
44.                                     ob (vlax-ename->vla-object ent)
    
45.                                     lay (vla-get-layer ob)
    
46.                                     vlay (vla-item LayersObj lay)
    
47.                             );end setq
    
48.                              (if (= (setq lay-tn (vla-get-lock vlay)) :vlax-true)
    
49.                                     (vla-put-lock vlay :vlax-false)
    
50.                             );end if
    
51.                              (vla-put-visible ob :vlax-true)
    
52.                              (if (= lay-tn :vlax-true)
    
53.                                     (vla-put-lock vlay :vlax-true)
    
54.                             );end if
    
55.                              (setq i (1- i))
    
56.                      );end repeat
    
57.                       (princ "\n已显示隐藏物体" )
    
58.               );end progn
    
59.                (princ "\n本图无隐藏物体" )
    
60. );end if
    
61. ;(vla-regen AcadDocument AcAllViewPorts) 图形较大有时需要重生成才显示 可把这句加上
    
62. (princ)
    
63. );end defun
    
64. ;[隐藏物体(反)]
    
65. (defun c:yf (/ AcadObject AcadDocument LayersObj ssObj ss ob n i ent ob ss2 ss3 lay vlay lay-tn)
    
66. (setq AcadObject (vlax-get-acad-object)
    
67.               AcadDocument (vla-get-ActiveDocument AcadObject)
    
68.               LayersObj (vla-get-layers AcadDocument)
    
69. );end setq
    
70. (princ "\n请选择不需要隐藏的物体" )
    
71. (if (setq ss (ssget))
    
72.                (progn
    
73.                       (setq ss2 (ssget "x" ))
    
74.                       (setq n (sslength ss))
    
75.                       (setq i (- n 1))
    
76.                       (repeat n
    
77.                              (setq ent (ssname ss i))
    
78.                              (if (setq ss3 (ssdel ent ss2))
    
79.                                     (setq ss2 ss3)
    
80.                             );end if
    
81.                              (setq i (1- i))
    
82.                      );end repeat
    
83.                       (sssetfirst nil ss2)
    
84.                       (setq ssObj (vla-get-ActiveSelectionSet AcadDocument))
    
85.                       (vlax-for ob ssObj
    
86.                              (setq lay (vla-get-layer ob)
    
87.                                     vlay (vla-item LayersObj lay)
    
88.                             );end setq
    
89.                              (if (= (setq lay-tn (vla-get-lock vlay)) :vlax-true)
    
90.                                     (vla-put-lock vlay :vlax-false)
    
91.                             );end if
    
92.                              (vla-put-visible ob :vlax-false)
    
93.                              (if (= lay-tn :vlax-true)
    
94.                                     (vla-put-lock vlay :vlax-true)
    
95.                             );end if
    
96.                      );end vlax-for
    
97.                       (princ "\n已隐藏非选择物体" )
    
98. ));end if
    
99. (sssetfirst nil nil)
    
100. (princ)
     
101. );end defun
     
102. (princ "\n[隐藏物体-yc]/[恢复隐藏-xs]/[隐藏物体(反)-yf]" )

;[隐藏物体]<br /> (defun c:yc (/ AcadObject AcadDocument LayersObj ss n i ent ob lay vlay 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 (= (setq lay-tn (vla-get-lock vlay)) :vlax-true);如果图层锁定<br />                                     (vla-put-lock vlay :vlax-false);先解锁图层<br />                             );end if<br />                              (vla-put-visible ob :vlax-false)<br />                              (if (= lay-tn :vlax-true)<br />                                     (vla-put-lock vlay :vlax-true);再锁定图层，恢复图层状态<br />                             );end if<br />                              (setq i (1- i))<br />                      );end repeat<br />                       (princ "\n已隐藏选择物体" )<br /> ));end if<br /> (princ)<br /> );end defun<br /> ;[恢复隐藏]<br /> (defun c:xs (/ AcadObject AcadDocument LayersObj ss n i ent ob lay vlay 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 /> (if (setq ss (ssget "x" '((60 . 1))))<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 (= (setq lay-tn (vla-get-lock vlay)) :vlax-true)<br />                                     (vla-put-lock vlay :vlax-false)<br />                             );end if<br />                              (vla-put-visible ob :vlax-true)<br />                              (if (= lay-tn :vlax-true)<br />                                     (vla-put-lock vlay :vlax-true)<br />                             );end if<br />                              (setq i (1- i))<br />                      );end repeat<br />                       (princ "\n已显示隐藏物体" )<br />               );end progn<br />                (princ "\n本图无隐藏物体" )<br /> );end if<br /> ;(vla-regen AcadDocument AcAllViewPorts) 图形较大有时需要重生成才显示 可把这句加上<br /> (princ)<br /> );end defun<br /> ;[隐藏物体(反)]<br /> (defun c:yf (/ AcadObject AcadDocument LayersObj ssObj ss ob n i ent ob ss2 ss3 lay vlay 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 ss2 (ssget "x" ))<br />                       (setq n (sslength ss))<br />                       (setq i (- n 1))<br />                       (repeat n<br />                              (setq ent (ssname ss i))<br />                              (if (setq ss3 (ssdel ent ss2))<br />                                     (setq ss2 ss3)<br />                             );end if<br />                              (setq i (1- i))<br />                      );end repeat<br />                       (sssetfirst nil ss2)<br />                       (setq ssObj (vla-get-ActiveSelectionSet AcadDocument))<br />                       (vlax-for ob ssObj<br />                              (setq lay (vla-get-layer ob)<br />                                     vlay (vla-item LayersObj lay)<br />                             );end setq<br />                              (if (= (setq lay-tn (vla-get-lock vlay)) :vlax-true)<br />                                     (vla-put-lock vlay :vlax-false)<br />                             );end if<br />                              (vla-put-visible ob :vlax-false)<br />                              (if (= lay-tn :vlax-true)<br />                                     (vla-put-lock vlay :vlax-true)<br />                             );end if<br />                      );end vlax-for<br />                       (princ "\n已隐藏非选择物体" )<br /> ));end if<br /> (sssetfirst nil nil)<br /> (princ)<br /> );end defun<br /> (princ "\n[隐藏物体-yc]/[恢复隐藏-xs]/[隐藏物体(反)-yf]" )

gzxl

简短的
(defun ObjHidden ( / ssobj ent) ;隐藏对象物体
  (if (setq ssobj (ssget))
      (progn
        (setq ssobj (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object))))
        (vlax-for ent ssobj (vla-put-Visible ent :vlax-false))
      )
  )
  (princ)
)
(defun RHidden ( / ssobj ent) ;恢复隐藏物体
  (if (and (ssget "X" (list (cons 60 1) (cons 410 (getvar "CTAB"))))
           (setq ssobj (ssget "X" (list (cons 410 (getvar "CTAB")))))
      )
      (progn
         (setq ssobj (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object))))
         (vlax-for ent ssobj (vla-put-Visible ent :vlax-true))
         (prompt "\n显示所有物件!")
      )
      (prompt "\n无隐藏物件!")
  )
  (princ)
)

print1985

gzxl 发表于 2012-6-10 20:30
简短的
(defun ObjHidden ( / ssobj ent) ;隐藏对象物体
  (if (setq ssobj (ssget))

你把图层锁定了试试，简短是要付出代价的
代码原理基本是相同的，我的代码增加了对锁定图层的处理

print1985

请大家测试下，是否对某些特殊情况会出错，如果没问题了再加到主程序里面

gzxl

print1985 发表于 2012-6-10 20:42
你把图层锁定了试试，简短是要付出代价的
代码原理基本是相同的，我的代码增加了对锁定图层的处理

不然怎么叫简短

dalin1985

学习一下，谢谢楼主。

yjr111

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

longer1000

好。支持源码.

print1985

yjr111 发表于 2012-6-10 22:20
关于隐藏物体的代码论坛已经比较多了，但有个缺点就是对隐藏物体的显示都是全显。。。
如果可以预览所隐藏 ...

预览？高级货啊，又是第一次听说，太孤陋寡闻了
详细说说呢，要达到什么样的预览效果，预览之后又需要些神马操作呢？

psdcdr

print1985 发表于 2012-6-10 19:53
先试试 暂时没加颜色隐藏

在2008下，出现错误，

命令: YC ; 错误: no function definition: VLAX-GET-ACAD-OBJECT