리습 수정 가능할까요?

offset 을 하고 기존선을 삭제하는 옵셋 리습인데요..
옵셋이 되면서 선색깔을 노란색으로 바꿔주는 기능을 추가하고 싶은데
 가능 할런지요…
————————————————————————————————–
(defun C:OO ( / po me dd )
      (graphscr)
      (setvar “cmdecho” 0)
      (setq dd (strcase (getstring “n Type distance: “)))
      (setq me 1)
      (if (/= me nil)
          (while
                 (setq me (entsel))
                 (setq po (getpoint “n Enter point “))
                 (command “.offset” dd me po “” )
                 (command “.erase” me “”)
                
          );;while
      );;if
      (setvar “cmdecho” 1)
)