여러 레이어를 선택한 레이어로 쉽게 합치는 방법이나 리습이 있을까요?

급히 작성하느라 간단하게만 썼는데 도움이 되셨다니 다행입니다^^

추가적으로 설명 드리자면 빨간네모 로드 누르시고 현재 도면 불러주신다음 왼쪽창에서 해당 레이어 클릭 / 오른쪽 창에서 대상 레이어 찾아서 더블클릭 하시면 아래 도면층 변환 매핑에 이전 도면층 새 도면층 해서 뜹니다. 한 번에 여러개 레이어 변경도 가능하구요, 아래 변환 버튼 누르시면 뭐라고 질문창이 뜨는데 그 때 [매핑만] 선택하시면 끝!!

이런 방법도….

되네…..

(setq c1 (ssget))  (while (/= c1 nil)   (if (/= c1 nil)    (command "change" c1 "" "p" "c" "ByLayer" "lt" "ByLayer" "la" "0″ "")   )   (prompt "n입력한 레이어로 변경할 객체를 선택해주세요:")   (setq c1 (ssget))  )

옛날엔 이렇게 썻는딩

;테스트는 안해봤지만 선택한것을 0 레이어로 변경

(defun c:LAYTR() (setq al "0″) ;레이어 명칭을 가져오는 리습은 직접 구현해보셔요.. (if (setq ss (ssget))   (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 al)     (setq index (1+ index))    )    (vla-endundomark doc)   ) ) )

지렁이형님 감사합니다. LAYTRANS 좀 어렵더라구요…답글 너무 감사드려요~^^

laytrans 라는 명령어가 있습니다.

드림이 유료화 되어서 64비트용이 나왔네요.

1년에 5만원 이라고 합니다.