[原创]：另类图元隐藏/显示，通过建立组隐藏实体

eachy

2. 
   
3. ;;另类图元隐藏/显示，通过建立组隐藏实体
   
4. ;|
   
5. visible
   
6. 
   
7. object.Visible
   
8. 
   
9. object
   
10.       All Drawing objects, Application, AttributeReference, Group, Toolbar
    
11.       The object or objects this property applies to.
    
12. 
    
13. Boolean; read-write (write-only for the Group object)
    
14. TRUE:    The object or application is visible.
    
15. FALSE:   The object or application is not visible.
    
16. 
    
17. Remarks
    
18. If you specify an object to be invisible, it will be invisible regardless of
    
19. the application visible setting. Other factors can also cause an object to be
    
20. invisible; for example, an objectwill not be displayed if its layer is off or
    
21. frozen.
    
22. Specifying the application to be invisible allows you to run tasks in the
    
23. background without having to see the component.
    
24. Specifies the visibility of an object or the application.
    
25. All Drawing objects, Application, AttributeReference, Group, Toolbar
    
26. |;
    
27. (defun ea:SSonoff (tf s mode / groups gl)
    
28.   (setvar "cmdecho" 0)
    
29.   ;;检测是否有特定组
    
30.   (if (vl-catch-all-error-p
    
31.         (vl-catch-all-apply
    
32.           'vla-item
    
33.           (list
    
34.             (setq
    
35.               groups
    
36.                (vla-get-groups
    
37.                  (vla-get-activedocument (vlax-get-acad-object))
    
38.                )
    
39.             )
    
40.             "ea_hide_object"
    
41.           )
    
42.         )
    
43.       )
    
44.     (progn
    
45.       (setq gr (vla-add groups "ea_hide_object"));添加组
    
46.       (setq gl (entget (vlax-vla-object->ename gr)))
    
47.       (entmod (subst '(71 . 0)
    
48.                      (assoc 71 gl)
    
49.                      gl
    
50.               )
    
51.       );不可选择
    
52.     );end progn
    
53.   );end if
    
54.   (if (not tf)
    
55.     (progn
    
56.       (command ".select" "all" "r" s "")
    
57.       (command ".group" "a" "ea_hide_object" "p" "")
    
58.     );隔离隐藏用
    
59.     (command ".group" "a" "ea_hide_object" s "")
    
60.   )
    
61.   (vla-put-visible
    
62.     (vla-item groups "ea_hide_object")
    
63.     mode
    
64.   );隐藏组，实体将不拥有 62 组码
    
65.   (princ)
    
66. )
    
67. ;;隐藏选择实体
    
68. (defun c:Hideobj (/ ss)
    
69.   (if (progn (princ "\n选择要隐藏的实体...")
    
70.              (setq ss (ssget))
    
71.       )
    
72.     (ea:SSonoff t ss :vlax-false)
    
73.   )
    
74.   (princ)
    
75. )
    
76. ;;显示全部实体
    
77. (defun c:Showall (/ ss)
    
78.   (setvar "pickstyle" 0)
    
79.   (if (not (vl-catch-all-error-p
    
80.              (vl-catch-all-apply
    
81.                'vla-item
    
82.                (list
    
83.                  (setq
    
84.                    groups
    
85.                     (vla-get-groups
    
86.                       (vla-get-activedocument (vlax-get-acad-object))
    
87.                     )
    
88.                  )
    
89.                  "ea_hide_object"
    
90.                )
    
91.              )
    
92.            )
    
93.       )
    
94.     (progn
    
95.       (vla-put-visible
    
96.         (vla-item groups "ea_hide_object")
    
97.         :vlax-true
    
98.       )
    
99.       (command ".group" "e" "ea_hide_object");清除组
    
100.     )
     
101.   )
     
102.   (princ)
     
103. )
     
104. ;;隐藏非选择实体
     
105. (defun c:ISOobj        (/ ss)
     
106.   (if (progn (princ "\n选择隔离实体....")
     
107.              (setq ss (ssget))
     
108.       )
     
109.     (ea:ssonoff nil ss :vlax-false)
     
110.   )
     
111.   (princ)
     
112. )
     
113. (princ "\n\t命令: HideObj ShowAll IsoObj.")

<br /> ;;另类图元隐藏/显示，通过建立组隐藏实体<br /> ;|<br /> visible<br /> <br /> object.Visible <br /> <br /> object<br />       All Drawing objects, Application, AttributeReference, Group, Toolbar<br />       The object or objects this property applies to. <br /> <br /> Boolean; read-write (write-only for the Group object) <br /> TRUE:    The object or application is visible. <br /> FALSE:   The object or application is not visible.<br /> <br /> Remarks <br /> If you specify an object to be invisible, it will be invisible regardless of<br /> the application visible setting. Other factors can also cause an object to be<br /> invisible; for example, an objectwill not be displayed if its layer is off or<br /> frozen. <br /> Specifying the application to be invisible allows you to run tasks in the<br /> background without having to see the component. <br /> Specifies the visibility of an object or the application.<br /> All Drawing objects, Application, AttributeReference, Group, Toolbar<br /> |;<br /> (defun ea:SSonoff (tf s mode / groups gl)<br />   (setvar "cmdecho" 0)<br />   ;;检测是否有特定组<br />   (if (vl-catch-all-error-p<br />         (vl-catch-all-apply<br />           'vla-item<br />           (list<br />             (setq<br />               groups<br />                (vla-get-groups<br />                  (vla-get-activedocument (vlax-get-acad-object))<br />                )<br />             )<br />             "ea_hide_object"<br />           )<br />         )<br />       )<br />     (progn<br />       (setq gr (vla-add groups "ea_hide_object"));添加组<br />       (setq gl (entget (vlax-vla-object->ename gr)))<br />       (entmod (subst '(71 . 0)<br />                      (assoc 71 gl)<br />                      gl<br />               )<br />       );不可选择<br />     );end progn<br />   );end if<br />   (if (not tf)<br />     (progn<br />       (command ".select" "all" "r" s "")<br />       (command ".group" "a" "ea_hide_object" "p" "")<br />     );隔离隐藏用<br />     (command ".group" "a" "ea_hide_object" s "")<br />   )<br />   (vla-put-visible<br />     (vla-item groups "ea_hide_object")<br />     mode<br />   );隐藏组，实体将不拥有 62 组码<br />   (princ)<br /> )<br /> ;;隐藏选择实体<br /> (defun c:Hideobj (/ ss)<br />   (if (progn (princ "\n选择要隐藏的实体...")<br />              (setq ss (ssget))<br />       )<br />     (ea:SSonoff t ss :vlax-false)<br />   )<br />   (princ)<br /> )<br /> ;;显示全部实体<br /> (defun c:Showall (/ ss)<br />   (setvar "pickstyle" 0)<br />   (if (not (vl-catch-all-error-p<br />              (vl-catch-all-apply<br />                'vla-item<br />                (list<br />                  (setq<br />                    groups<br />                     (vla-get-groups<br />                       (vla-get-activedocument (vlax-get-acad-object))<br />                     )<br />                  )<br />                  "ea_hide_object"<br />                )<br />              )<br />            )<br />       )<br />     (progn<br />       (vla-put-visible<br />         (vla-item groups "ea_hide_object")<br />         :vlax-true<br />       )<br />       (command ".group" "e" "ea_hide_object");清除组<br />     )<br />   )<br />   (princ)<br /> )<br /> ;;隐藏非选择实体<br /> (defun c:ISOobj        (/ ss)<br />   (if (progn (princ "\n选择隔离实体....")<br />              (setq ss (ssget))<br />       )<br />     (ea:ssonoff nil ss :vlax-false)<br />   )<br />   (princ)<br /> )<br /> (princ "\n\t命令: HideObj ShowAll IsoObj.")

yjtdkj

太好了，谢谢班竹!!!!，极力推荐!!!!!
请问(defun ea:SSonoff (tf s mode / groups gl)
中的ea:是什么意思，以及它的用法？？
------------------------------------------------------------------------
试用了一下，有一个问题就是如果图形文件较大或对象较多时运行起来就比较慢了[/COLOR]

cqnj023

ea：大概就是eachy的意思了，ea:SSonoff 就是一个自定义函数。

spring1983

请问楼主，这种功能你在什么情况用？我觉得好象用不到啊

lhj743

楼主，真是太好用！
什么都能隐藏，请问为什么说“通过建立组隐藏实体 ”？
不用建立组吧！
虽然是为了控制方便！

ljs026

請問命令是什麼丫，小弟不懂lsp指令說