I want to place all Xrefs on layer 0
Ehy is this not working
(setq XrefTrgtLyr "0")
(vlax-for blk (vla-get-blocks (setq doc (vla-get-activedocument (vlax-get-acad-object))))
(if (= :vlax-true (vla-get-isxref blk))
(progn
(setq blkLyr (vla-get-layer blk))
(if (= :vlax-true (vla-get-lock blkLyr))
(progn
(vla-put-lock blkLyr :vlax-false)
(vla-put-layer blk XrefTrgtLyr)
(vla-put-lock blkLyr :vlax-true)
)
(vla-put-layer blk XrefTrgtLyr)
)
)
)
)