[求助]：eschy请进您的实体隔离程序有bug

playboy

(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.")


我用了这个程序之后隐藏的实体显示不出来了

eachy

这也许是Autodesk的玩笑，隐藏实体提供了两种方法，可以使用 60 组码，在ActiveX模型中还提供了 Group 隐藏的方法，隐藏组时，组内实体隐藏了但是实体的DXF组码中是不包括 60 组码的。

一般是使用 60 组码隐藏，上述程序只是提供一个编程上的参考。

看了看你的图，你将控制隐藏显示的组分解了，解决方法

hideobj -> all -> showall

playboy

谢谢我用显示组码为60的也解决了
再次感谢