如果让块内的所有的图层都显示（layiso）的功能的

chen7560152

请教下大侠们，有没有点击一个块，可以使得整个块及块内的所有图层都全部独立显示的功能的，这个可以实现么
因为平常会遇到某些块，比如图层为A，块里有很多图元有图层分别是B,C,D,E,F,我用layiso点击这个块，就一个图层也不会显示出来了，因为块里没有A的图层，都是其他图层，只有和块一样的图层才能独立显示

chen7560152

LLSheng_73大侠整的，分享下
(defun c:tt5(/ doc lay e)
  (and(setq e(ssget":e:s"'((0 . "INSERT"))))
      (setq e(vlax-ename->vla-object(ssname e 0))
            doc(vlax-get-property(vlax-get-acad-object)'activedocument)
            lay(vlax-get-property doc'layers)))
  (vlax-for i lay(vlax-put-property i 'layeron 0))
  (vlax-for i(vlax-invoke-method(vlax-get-property doc'blocks)'item(vlax-get-property e'name))
    (vlax-put-property(vlax-invoke-method lay'item(vlax-get-property i 'layer))'layeron 1))
  (vlax-put-property(vlax-invoke-method lay'item(vlax-get-property e'layer))'layeron 1))