도면 색깔 변환없이 레이어를 하나로 만드는 방법이 있나요?..

bylayer로 된 색을 전부 레어어 설정색으로 색을 바꿔야만 같은 색상으로 합칠 수 있습니다.
블록에 bylayer 및 byblock 색을 포함하여
   각각  다른 레이어에서 상이한 색으로 사용한 경우는 곤란 합니다.

블록내부까지 바꾸는 것은 블록사용에 따라 복잡해지므로
bylayer 색상을 고정색으로 바꾸는 코드를 올려드리겠습니다.

(defun c:@col_fix_lay(/ layer_ c_olor lay_name ss )       ;——–bylayer를 레어이색상으로 변경
   (setq layer_ (tblnext “LAYER” T))
   (while layer_
      (setq c_olor (cdr (assoc 62 layer_)))
      (if (> c_olor 0)
         (progn
          (setq lay_name (cdr (assoc 2 layer_)))
          (setq ss (ssget “x” (list (cons 8 lay_name) (cons 62 256))))
          (if ss
              (command “change” ss “” “p” “c” c_olor “”)
          )
         )
      )
      (setq layer_ (tblnext “LAYER”))
   )
);defun