홈/ 질문/Q 100664
다음
진행 중
Lv.0
등록일: 2014-03-17T11:35:06+09:00 카테고리:

배경색변경리습은 구했는데 크로스헤어색상이 같아서 안보입니다

안녕하세요

예전에 배경색 리습을 구해주셔서 잘 썻습니다
아래 내용이 배경색 변경 리습입니다.

문제점은   배경색을 힌색으로 변경시  십자 크로스헤어(cross hair) 색상이 같아서
보이질 않습니다.

배경색과 반대로  
배경색(검정)  십자선(힌색)
배경색(힌색)  십자선(검정)
이렇게 할순 없을까요?

아니면 십자선 변수는 따로 없나요?
 

; 바탕화면 색상 변환        
; Created by VIP44 20090321 
;                           


(defun c:BG()
  (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)
)


공유

    관련 있는 질문들

    1 답변

    1. aalan

    2. 계속 못찾았는데    방금글올리고 다시 검색하다보니 찾아졌습니다.
      글만올려도   해결이 되었네요.

      (defun c:bgw () ;;white background
      (setq acadobject (vlax-get-acad-object))
      (setq acadpref (vlax-get-property acadobject ‘preferences))
      (setq acaddisp (vlax-get-property acadpref ‘display))
      (vlax-put-property acaddisp ‘GraphicsWinmodelBackgrndColor 16777215)
      (vlax-put-property acaddisp ‘ModelCrosshairColor 0)
      )
       
      (defun c:bgb () ;; black background
      (setq acadobject (vlax-get-acad-object))
      (setq acadpref (vlax-get-property acadobject ‘preferences))
      (setq acaddisp (vlax-get-property acadpref ‘display))
      (vlax-put-property acaddisp ‘GraphicsWinmodelBackgrndColor 0)
      (vlax-put-property acaddisp ‘ModelCrosshairColor 16777215)
      )

      요 리습으로 하니깐 배경색이랑  십자선색이랑 서로 반전으로 나오네요.

      • 0