隐藏与隔离对像

flyfox1048 · 发表于 2013-11-14 15:14:12

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;YC1:隐藏选中的对象 ;YC2:隐藏同一颜色的对象 ;YC3:只显示选择颜色的对象 ;XS:显示所有隐藏的对象
(defun c:yc1 (/ ss ssn n)
(princ "\n请选择需要隐藏的对象:")
(setq ss (ssget))
(command "undo" "be")
(setvar "cmdecho" 0)
(setq n 0)
(while (< n (sslength ss))
(setq ssn (ssname ss n))
(setq ssn (entget ssn))
(setq ssn (append ssn '((60 . 1))))
;(setq ssn (cons '(60 . 1) ssn))
(entmod ssn)
(setq n (1+ n))
)
(command "undo" "e")
(princ)
)
(defun c:yc2 (/ ss ssn n cor m ss1 pd ssm)
(princ "\n请选择需要隐藏的颜色:")
(setq ss (nth 0 (entsel)))
(command "undo" "be")
(setvar "cmdecho" 0)
(setq cor (assoc 62 (entget ss))) ;颜色如果随层,按图层颜色
(if (= cor nil)
(progn (setq tc (cdr (assoc 8 (entget ss))))
(setq tc (tblsearch "layer" tc))
(setq cor (assoc 62 tc))
)
)
;;;找出不是随层符合颜色的对象
(setq ss (ssget "x" (list cor)))
(if (/= ss nil)
(progn (setq n 0)
(while (< n (sslength ss))
(setq ssn (ssname ss n))
(setq ssn (entget ssn))
(setq ssn (append ssn '((60 . 1))))
(entmod ssn)
(setq n (1+ n))
)
)
)
;;;找出随层符合颜色的对象
(setq tc (tblnext "layer" "0"))
(while (/= tc nil)
(if (equal cor (assoc 62 tc))
(progn (setq ss1 (ssget "x" (list (cons 8 (cdr (assoc 2 tc))))))
(if (/= ss1 nil)
(progn (setq m 0)
(while (< m (sslength ss1))
(setq ssm (entget (ssname ss1 m)))
(setq pd (assoc 62 ssm))
(if (= pd nil)
(progn (setq ssm (append ssm '((60 . 1)))) ;
(setq ssm (cons '(60 . 1) ssm))
(entmod ssm)
)
)
(setq m (1+ m))
)
)
)
)
)
(setq tc (tblnext "layer"))
)
(command "undo" "e")
(princ)
)
(defun c:yc3 (/ corss ssn cor ss corl n tc)
(princ "\n请选择不隐藏颜色:")
(setq ss (ssget))
(command "undo" "be")
(setvar "cmdecho" 0)
(setq corss (list))
(setq n 0)
(while (< n (sslength ss)) ;找出不关闭的颜色
(setq ssn (ssname ss n))
(setq cor (assoc 62 (entget ssn))) ;不随层
(if (= cor nil) ;随层
(progn (setq tc (cdr (assoc 8 (entget ssn))))
(setq tc (tblsearch "layer" tc))
(setq cor (assoc 62 tc))
)
)
(setq cor (cdr cor)) ;得到颜色
(setq corl (list cor))
(if (= nil (assoc cor corss))
(setq corss (cons corl corss))
)
(setq n (1+ n))
)
(princ "\n不隐藏颜色:")
(princ corss)
(setq ss (ssget "x" '()))
(setq n 0)
(while (< n (sslength ss))
(setq ssn (ssname ss n))
(setq cor (assoc 62 (entget ssn)))
(if (= cor nil)
(progn (setq tc (cdr (assoc 8 (entget ssn))))
(setq tc (tblsearch "layer" tc))
(setq cor (assoc 62 tc))
)
)
(setq cor (cdr cor)) ;得到颜色
(if (= nil (assoc cor corss)) ;如果不在表内隐藏
(progn (setq ssn (entget ssn))
(setq ssn (append ssn '((60 . 1))))
(entmod ssn)
)
)
(setq n (1+ n))
)
(command "undo" "e")
(princ)
)
(defun c:xs (/ ss ssn n)
(setq ss (ssget "x" (list (cons 60 1))))
(command "undo" "be")
(setvar "cmdecho" 0)
(setq n 0)
(while (< n (sslength ss))
(setq ssn (ssname ss n))
(setq ssn (entget ssn))
(setq ssn (subst (cons 60 0) (assoc 60 ssn) ssn))
(entmod ssn)
(setq n (1+ n))
)
(command "undo" "e")
)

;YC1:隐藏选中的对象 ;YC2:隐藏同一颜色的对象 ;YC3:只显示选择颜色的对象 ;XS:显示所有隐藏的对象 
(defun c:yc1 (/ ss ssn n) 
  (princ "\n请选择需要隐藏的对象:") 
  (setq ss (ssget)) 
  (command "undo" "be") 
  (setvar "cmdecho" 0) 
  (setq n 0) 
  (while (< n (sslength ss)) 
    (setq ssn (ssname ss n)) 
    (setq ssn (entget ssn)) 
    (setq ssn (append ssn '((60 . 1)))) 
                                        ;(setq ssn (cons '(60 . 1) ssn)) 
    (entmod ssn) 
    (setq n (1+ n)) 
  ) 
  (command "undo" "e") 
  (princ) 
) 
(defun c:yc2 (/ ss ssn n cor m ss1 pd ssm) 
  (princ "\n请选择需要隐藏的颜色:") 
  (setq ss (nth 0 (entsel))) 
  (command "undo" "be") 
  (setvar "cmdecho" 0) 
  (setq cor (assoc 62 (entget ss)))        ;颜色如果随层,按图层颜色 
  (if (= cor nil) 
    (progn (setq tc (cdr (assoc 8 (entget ss)))) 
           (setq tc (tblsearch "layer" tc)) 
           (setq cor (assoc 62 tc)) 
    ) 
  ) 
;;;找出不是随层符合颜色的对象 
  (setq ss (ssget "x" (list cor))) 
  (if (/= ss nil) 
    (progn (setq n 0) 
           (while (< n (sslength ss)) 
             (setq ssn (ssname ss n)) 
             (setq ssn (entget ssn)) 
             (setq ssn (append ssn '((60 . 1)))) 
             (entmod ssn) 
             (setq n (1+ n)) 
           ) 
    ) 
  ) 
;;;找出随层符合颜色的对象 
  (setq tc (tblnext "layer" "0")) 
  (while (/= tc nil) 
    (if        (equal cor (assoc 62 tc)) 
      (progn (setq ss1 (ssget "x" (list (cons 8 (cdr (assoc 2 tc)))))) 
             (if (/= ss1 nil) 
               (progn (setq m 0) 
                      (while (< m (sslength ss1)) 
                        (setq ssm (entget (ssname ss1 m))) 
                        (setq pd (assoc 62 ssm)) 
                        (if (= pd nil) 
                          (progn (setq ssm (append ssm '((60 . 1)))) ; 
                                 (setq ssm (cons '(60 . 1) ssm)) 
                                 (entmod ssm) 
                          ) 
                        ) 
                        (setq m (1+ m)) 
                      ) 
               ) 
             ) 
      ) 
    ) 
    (setq tc (tblnext "layer")) 
  ) 
  (command "undo" "e") 
  (princ) 
) 
(defun c:yc3 (/ corss ssn cor ss corl n tc) 
  (princ "\n请选择不隐藏颜色:") 
  (setq ss (ssget)) 
  (command "undo" "be") 
  (setvar "cmdecho" 0) 
  (setq corss (list)) 
  (setq n 0) 
  (while (< n (sslength ss))                ;找出不关闭的颜色 
    (setq ssn (ssname ss n)) 
    (setq cor (assoc 62 (entget ssn)))        ;不随层 
    (if        (= cor nil)                        ;随层 
      (progn (setq tc (cdr (assoc 8 (entget ssn)))) 
             (setq tc (tblsearch "layer" tc)) 
             (setq cor (assoc 62 tc)) 
      ) 
    ) 
    (setq cor (cdr cor))                ;得到颜色 
    (setq corl (list cor)) 
    (if        (= nil (assoc cor corss)) 
      (setq corss (cons corl corss)) 
    ) 
    (setq n (1+ n)) 
  ) 
  (princ "\n不隐藏颜色:") 
  (princ corss) 
  (setq ss (ssget "x" '())) 
  (setq n 0) 
  (while (< n (sslength ss)) 
    (setq ssn (ssname ss n)) 
    (setq cor (assoc 62 (entget ssn))) 
    (if        (= cor nil) 
      (progn (setq tc (cdr (assoc 8 (entget ssn)))) 
             (setq tc (tblsearch "layer" tc)) 
             (setq cor (assoc 62 tc)) 
      ) 
    ) 
    (setq cor (cdr cor))                ;得到颜色 
    (if        (= nil (assoc cor corss))        ;如果不在表内隐藏 
      (progn (setq ssn (entget ssn)) 
             (setq ssn (append ssn '((60 . 1)))) 
             (entmod ssn) 
      ) 
    ) 
    (setq n (1+ n)) 
  ) 
  (command "undo" "e") 
  (princ) 
) 
(defun c:xs (/ ss ssn n) 
  (setq ss (ssget "x" (list (cons 60 1)))) 
  (command "undo" "be") 
  (setvar "cmdecho" 0) 
  (setq n 0) 
  (while (< n (sslength ss)) 
    (setq ssn (ssname ss n)) 
    (setq ssn (entget ssn)) 
    (setq ssn (subst (cons 60 0) (assoc 60 ssn) ssn)) 
    (entmod ssn) 
    (setq n (1+ n)) 
  ) 
  (command "undo" "e") 
)

附上G版主优化的隔离对象的源码：

;;隐藏选择对象 By Gu_xl
(defun c:yc ()
(if (ssget)
(progn
(vlax-for obj
(vla-get-activeselectionset
(vla-get-activedocument (vlax-get-acad-object))
)
(vla-put-Visible obj :vlax-false)
)
)
)
(princ)
)
;;隔离选择对象 By Gu_xl
(defun c:gl (/ ss ss1)
(if (setq ss (ssget))
(progn
(setq ss1 (ssget "x"))
(command "_select" ss1 "r" ss "")
(vlax-for obj
(vla-get-activeselectionset
(vla-get-activedocument (vlax-get-acad-object))
)
(vla-put-Visible obj :vlax-false)
)
)
)
(princ)
)
;;恢复显示 By Gu_xl
(defun c:hfxs (/ ss)
(if (setq ss (ssget "x" '((60 . 1))))
(vlax-for obj
(vla-get-activeselectionset
(vla-get-activedocument (vlax-get-acad-object))
)
(vla-put-Visible obj :vlax-true)
)
)
(princ)
)

;;隐藏选择对象 By Gu_xl 
(defun c:yc () 
  (if (ssget) 
    (progn 
      (vlax-for        obj 
                    (vla-get-activeselectionset 
                      (vla-get-activedocument (vlax-get-acad-object)) 
                    ) 
        (vla-put-Visible obj :vlax-false) 
      ) 
    ) 
  ) 
  (princ) 
) 
;;隔离选择对象 By Gu_xl 
(defun c:gl (/ ss ss1) 
  (if (setq ss (ssget)) 
    (progn 
      (setq ss1 (ssget "x")) 
      (command "_select" ss1 "r" ss "") 
      (vlax-for        obj 
                    (vla-get-activeselectionset 
                      (vla-get-activedocument (vlax-get-acad-object)) 
                    ) 
        (vla-put-Visible obj :vlax-false) 
      ) 
    ) 
  ) 
  (princ) 
) 
;;恢复显示 By Gu_xl 
(defun c:hfxs (/ ss) 
  (if (setq ss (ssget "x" '((60 . 1)))) 
    (vlax-for obj 
                  (vla-get-activeselectionset 
                    (vla-get-activedocument (vlax-get-acad-object)) 
                  ) 
      (vla-put-Visible obj :vlax-true) 
    ) 
  ) 
  (princ) 
)

st788796 · 发表于 2013-11-14 18:40:23

本帖最后由 st788796 于 2013-11-14 18:41 编辑

看楼主用的版本有更高效和方便方法
hideobj

tianyi1230 · 发表于 2013-11-14 19:19:53

看看我的演示吧，还是那个YC2有问题，出现在图元颜色与图层一样的情况有BUG，文本可以隐藏，麻烦G版主修改一下。

start4444 · 发表于 2016-8-15 19:03:38

:loveliness:;P;P

xvjiex · 发表于 2021-9-18 00:40:45

感谢楼主分享隐藏与隔离对像

账号		自动登录	找回密码
密码			立即注册

[每日一码] 隐藏与隔离对像

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

相关帖子