배경색바꾸는 리습에 크로스헤어색변경하는거 추가할수 없나요?

안녕하세요…

주왕님께서  바탕화면 색상변환하는 리습을 얻었습니다.

바탕화면의 색상을  힌색…..검정색으로 바꾸는 리습인데요

옵션에서 변경하면  크로스헤어(십자선) 색상도 반대색으로 자동으로 변경되는데

그부분을 추가할수 없을까요?

ex)  배경을 힌색으로 바꾸면 크로스헤어는 검정색으로
       배경을 검정으로 바꾸면 크로스헤어는 힌색으로

현재는 디폴트가 검정바탕에 힌색 십자선 인데
힌바탕으로 하면 십자선이 안보입니다.

layoutcrosshaircolor    이란 명령이 있던데 이게 그것이 아닌가요?
어떻게 해야할지 몰라서요…


(defun c:wb()
  (vl-load-com)
  (setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object))))
  (initget “White Black”)
  (setq k (getkword “nWhite / [ Black ]: “))
  (cond
    ((or (= k nil) (= k “Black”)) (vla-put-GraphicsWinModelBackgrndColor disp 0))
    ((= k “White”) (vla-put-GraphicsWinModelBackgrndColor disp 16777215))
  )
  (princ)
)