[编程申请]：只显示所需的一个实体且隐藏其余所有实体

herphoneno1

由于工作上需要，我想麻烦晓东工具为我编一个类似[晓东工具箱 \ 工具一 \ 隐藏实体（_XDTB_EntityOFF）、取消隐藏（_XDTB_EntityON）]的程序，其功能为：只显示所需的一个实体且隐藏其余所有实体。实际操作时命令行为：
命令：_XDTB_EntityON ONLY ONE
输入块名：pj(配筋)
命令：_XDTB_EntityON ONLY ONE
输入块名：jm(截面)

      之前我是利用 晓东工具箱 \ 工具一 \ 隐藏实体、取消隐藏 来切换，每次都要操作好几次来只显示一个实体。(CAD环境为AUTOCAD 2002)

eachy

2. 
   
3. (defun c:XDRX_EntityOn (/ str ss e)
   
4.   (if
   
5.     (and (setq str (getstring "\n输入隔离物体组名: "))
   
6.          (/= str "")
   
7.          (member (cons 3 str) (dictsearch (namedobjdict) "ACAD_GROUP"))
   
8.     )
   
9.      (progn
   
10.        (command ".select" "all" "r" "g" str "")
    
11.        (setq ss (ssget "_p"))
    
12.        (if (not $XDTB_Global_EntityGroup)
    
13.          (setq $XDTB_Global_EntityGroup (ssadd))
    
14.        )
    
15.        (xdrx_setsstodb ss 0)
    
16.        (while (setq e (xdrx_getentdata 0))
    
17.          (ssadd e $XDTB_Global_EntityGroup)
    
18.          (xdrx_entity_setvisible e)
    
19.        )
    
20.      )
    
21.   )
    
22.   (princ)
    
23. )

<br /> (defun c:XDRX_EntityOn (/ str ss e)<br />   (if<br />     (and (setq str (getstring "\n输入隔离物体组名: "))<br />          (/= str "")<br />          (member (cons 3 str) (dictsearch (namedobjdict) "ACAD_GROUP"))<br />     )<br />      (progn<br />        (command ".select" "all" "r" "g" str "")<br />        (setq ss (ssget "_p"))<br />        (if (not $XDTB_Global_EntityGroup)<br />          (setq $XDTB_Global_EntityGroup (ssadd))<br />        )<br />        (xdrx_setsstodb ss 0)<br />        (while (setq e (xdrx_getentdata 0))<br />          (ssadd e $XDTB_Global_EntityGroup)<br />          (xdrx_entity_setvisible e)<br />        )<br />      )<br />   )<br />   (princ)<br /> )

xshrimp

参考
[php]
;;另类图元隐藏/显示，通过建立组隐藏实体
;|
visible

object.Visible

object
      All Drawing objects, Application, AttributeReference, Group, Toolbar
      The object or objects this property applies to.

Boolean; read-write (write-only for the Group object)
TRUE:    The object or application is visible.
FALSE:   The object or application is not visible.

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

gcb998

最初由 eachy 发布
[B][code]
(defun c:XDRX_EntityOn (/ str ss e)
  (if
    (and (setq str (getstring "\n输入隔离物体组名: "))
         (/= str "")
         (member (cons 3 str) (dictsearch (namedobjdict) "ACAD_GROUP"))
    )
    ... [/B]

我个人的意见哈,可以编一个选取物体后
隐藏"其它"实体的命令.不要出现无畏的"输入隔离物体组名"类
的东西,然后加入晓东工具箱,那样才真正的方便大众.*-*9 *-*6

herphoneno1

谢谢高手们，谢谢！