선택한 블럭만 화면에 보이게 하고 싶은데요.

검색해서
밑에를 찾았는데요 안되더라구요. 어떻게 해야될까요. 도움좀 주실분 계신가요..

(defun c:bff(/ a on_name sel_all n i ed) ; 특정블럭만 on 하기
  (prompt “nt 특정블럭만 화면상에 보여줍니다
  (prompt “n Select of Only-on-Block Name ?:”)
  (setq a (ssget “:S” (list (cons 0 “INSERT”))))
  (setq on_name (cdr (assoc 2 (entget (ssname a 0))))) ;

  (setq sel_all (ssget “X”))

  (setq n (sslength sel_all))
  (setq i 0)
  (repeat n
    (setq ed (ssname sel_all i))
    (if (/= on_name (cdr (assoc 2 (entget ed))))
      (redraw ed 2)
    )
    (setq i (1+ i))
  )
)



레이어 처럼 블럭도 on/off 기능이 있는 리습이 있을까요…