(defun c:blkoff (/ nent)
(vl-load-com)
(if (setq nent (nentsel))
(progn
(vla-put-layeron
(vla-item
(vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(vla-get-layer (vlax-ename->vla-object (car nent)))
) ;_ end of vla-item
:vlax-false
) ;_ end of vla-put-layeron
) ;_ end of progn
) ;_ end of if
) ;_ end of defun
(c:blkoff)

Advertisements