offset이후 객체 삭제 하면서 색깔 변경

안녕하세요. 본 리습은 옵셋 하면서 기존객체 삭제 리습 인데요.
이리습을 옵셋 하면서 색깔도 같이 변경하고 싶습니다.
파일 첨부하겠습니다.
많음도움 부탁드립니다.


고캐드에서 이와같은 리습을 검색해서 찾긴 찾았는,그건 커맨드 리습이라서
다시 요청하게 되었습니다.


(defun c:ood ( / *error* mrSta mrEnd dis offdist acDoc ent )
 (defun *error* (msg)(mrEnd)
  (if (not (wcmatch (strcase msg) “*BREAK,*CANCEL*,*EXIT*”))
   (princ (strcat “n** Error: ” msg ” **”)))(princ)
 )
 (defun mrSta ()
  (and (= 8 (logand 8 (getvar ‘UNDOCTL)))(vla-endundomark acDoc))
  (vla-startundomark acDoc)
  (setq gv (mapcar ‘getvar (setq gvL ‘(“OSMODE” “CMDECHO”))))
  (mapcar ‘setvar gvL ‘(0 0))
 )
 (defun mrEnd ()(and gvL gv (mapcar ‘setvar gvL gv))(vla-endundomark acDoc))
 (and (= (setq dis (getvar ‘OFFSETDIST)) -1.0)(setq dis “T”))
 (initget “T”)
 (setq offdist
  (getdist
   (strcat “n간격띄우기 거리 지정 또는 [통과점(T)] <“
    (if (= dis “T”) “통과점” (rtos dis)) “>: “
   )
  )
 )
 (and offdist (if (= offdist “T”)(setvar ‘OFFSETDIST -1)(setvar ‘OFFSETDIST offdist)))
 (vl-load-com)
 (setq acDoc (vla-get-activedocument (vlax-get-acad-object)))
 (mrSta)
 (while (setq ent (entsel “n간격띄우기할 객체선택: “))
  (if (not
    (vl-catch-all-error-p
     (vl-catch-all-apply ‘vl-cmdf (list “_offset” “” (car ent) pause “”))
    )
   )
   (entdel (car ent))
  )
 )(mrEnd)(princ)
)