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

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