求高手帮忙！

求高手写个LISP程序，可以像燕秀那样可以在同一个层隐藏和显示一部分物件！摆脱各位大大！注：我新公司用中望CAD，我不能决定用什么软件！

资讯不足 (没在用燕秀)

提供一个 隐藏 Block 的程序于您参考 ....

;;; =================================================
(defun hideblk (show / ss nn)
    (setq ss (ssget "x" (list (cons 0 "INSERT"))))
    (grread T)
    (if ss (progn
     (setq nn (sslength ss))
     (while (> nn 0)
       (redraw (ssname ss (setq nn (1- nn))) 2)
    )))
    (if (zerop show) nil
      (progn
        (princ "\n 按任意键还原 Block 显现 ..... ")
         (grread)
        (re_ss ss)
    ) )
    (prin1)
)


(defun Re_ss (sset)  (for-sset sset entupd))

;;; Vladimir Nesterovsky

(defun FOR-SSET (sset fun / n)
   (if (= 'PICKSET (type sset))
     (repeat (setq n (fix (sslength sset)))
        (fun (ssname sset (setq n (1- n))))
   ) )
)

;;; =================================================