도면층을 한번에 싹~ 바꿀 수 있나요?

(defun c:LC(/ aL bL)
 (setvar “cmdecho” 0)

 

 (setq  aL (getstring “n선택할 도면층 이름을 입력하세요 : “))
 (setq  bL (getstring “n옮겨질 도면층 이름을 입력하세요 : “))

 

 (if (setq ss (ssget “X” (list (cons 8 aL))))
  (progn
   (setq doc (vla-get-activedocument (vlax-get-acad-object)))
   (vla-startundomark doc)
   (setq index 0)
   (repeat (sslength ss)
    (setq e (ssname ss index))
    (setq obj (vlax-ename->vla-object e))
    (setq lnm (vlax-get obj ‘layer))
    (vlax-put obj ‘layer bL)
    (setq index (1+ index))
   )
   (vla-endundomark doc)
  )
 )

 

 (princ)
)

기존 선택한 도면층 싹 지우기 리습재활용해서 대충 만들어봤는데 되려나요…

아. 전 실무에서 블럭 레이어는 전부 0으로 작업해서 그쪽은 신경을 안썼네요.