块内层归0层

惜惜2

(defun C:C0(/ dxl km)
(if (= (getvar "cmdactive") 1) (ssget "x" ) (sssetfirst nil (ssget "x" )))
        (and
                (setq dxl (car(l-vldxl(ssget "_:S" '((0 . "INSERT"))))))
                (setq km (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))
                (l-c0 dxl km)
                (not(vla-Update dxl))
                (vlax-release-object km)
        )
        (princ)
)[/code]
;
(defun l-c0(dxl km)
        (vla-put-layer dxl "0")
        (vla-put-color dxl acbylayer)
        (if (= "AcDbBlockReference" (vlax-get-property dxl "objectname"))
                (progn
                        (vlax-for x (vla-item km (vla-get-name dxl))
                                (l-c0 x km)
                        )
                        (if(=(vla-get-HasAttributes dxl):vlax-true)
                         (vl-cmdf "AttSync" "n" (vla-get-name dxl))
                        )
                )
        )T
)[/code]
;
(defun l-vldxl(dx / dxl i)
        (if (null dx)
                (setq dxl nil)
                (progn
                        (setq i 0 dxl nil)
                        (sssetfirst nil nil)
                        (repeat (sslength dx)
                                (setq dxl (cons (vlax-ename->vla-object (ssname dx i)) dxl) i (1+ i))
                        )
                )
        )
        dxl
)[/code]  

大佬，其余选中的图元也能归置0层吗？这个需要怎么修改