리습 변경 질문 입니다.

회사에서 오토캐드 2010버전을 쓰고있는데요

층에 인원이 100명이 넘는데 라이센스때문에 매일 접속을 못해서

아예 캐디안으로 갈아탄 유저 입니다.

아쉬운게 레이어 작업할때 끄고 키고 락걸고 풀고 하는건데

기존에 여기서 받은 레이어 리습이 vla인가…? 그거로 되어있어서

캐디안에서는 사용이 안되더라구용….

캐디안에서도 사용가능하게 수정 하는 방법이 없나요??

;==================================================================================================
;  현재 레이어만 제외하고 모든 레이어 오프
;==================================================================================================
 (defun c:AF (/ acDoc acLay)
  (vl-load-com)
  (setq acDoc (vla-get-activedocument (vlax-get-acad-object)))
  (setq acLay (vla-get-name (vla-get-activelayer acDoc)))
  (vla-startundomark acDoc)
  (vlax-for lay (vla-get-layers acDoc)
   (if (not (= acLay (vla-get-name lay)))
    (vla-put-LayerOn lay :vlax-false)
   )
  )(vla-endundomark acDoc)(princ)
 )
 
;==================================================================================================
;  선택한 객체의 레이어만 오프
;==================================================================================================
 (defun c:LF (/ acDoc ss layerList)
  (vl-load-com)
  (setq acDoc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark acDoc)
  (and
   (setq ss (ssget))
   (setq layerList
    (mapcar ‘vla-get-layer
     (mapcar ‘vlax-ename->vla-object
      (vl-remove-if ‘listp (mapcar ‘cadr (ssnamex ss)))
     )
    )
   )
   (vlax-for lay (vla-get-layers acDoc)
    (if (member (vla-get-name lay) layerList)
     (vla-put-LayerOn lay :vlax-false)
    )
   )
  )(vla-endundomark acDoc)(princ)
 )
;==================================================================================================
;  선택한 객체의 레이어만 제외하고 나머지 레이어 오프
;==================================================================================================
 (defun c:LFF (/ acDoc ss layerList)
  (vl-load-com)
  (setq acDoc (vla-get-activedocument (vlax-get-acad-object)))
  (vla-startundomark acDoc)
  (and
   (setq ss (ssget))
   (setq layerList
    (mapcar ‘vla-get-layer
     (mapcar ‘vlax-ename->vla-object
      (vl-remove-if ‘listp (mapcar ‘cadr (ssnamex ss)))
     )
    )
   )
   (vlax-for lay (vla-get-layers acDoc)
    (if (not (member (vla-get-name lay) layerList))
     (vla-put-LayerOn lay :vlax-false)
    )
   )
  )(vla-endundomark acDoc)(princ)
 )
;==================================================================================================
;  모든 레이어 온
;==================================================================================================
 (defun c:LOO ()
  (vla-startundomark acDoc)
  (vlax-for lay (vla-get-layers acDoc)
   (vla-put-LayerOn lay :vlax-true)
  )
  (vla-endundomark acDoc)(princ)
 )(princ)