;批量隐藏------------------------------------------------陌生人.2004.1
;;测试: (x_hide (ssget '((0 . "INSERT"))))
(defun x_hide (ss)
  (setq ssv (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
  (vlax-for obj ssv (vla-put-Visible Obj :vlax-false))
)
;批量消隐------------------------------------------------陌生人.2004.1
;;测试: (x_show (ssget "x" '((0 . "INSERT"))))
(defun x_show (ss)
  (setq ssv (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
  (vlax-for obj ssv (vla-put-Visible Obj :vlax-true))
)