KiKO LISP

AutoCAD 리습 - 캐드 배경 화면 색상 변경 리습

KiKOs 2023. 7. 23. 03:10
반응형

캐드의 배경 색상을 변경할 수 있는 리습입니다.

가끔 화면 자체를 캡쳐하거나 메일 보낼때 사용하던 리습입니다.

현재 배경색을 알아오는 함수 입니다.

(vlax-variant-value 
  (vlax-variant-change-type 
    (vla-get-graphicswinmodelbackgrndcolor
      (vla-get-display
        (vla-get-preferences
          (vlax-get-acad-object)
        )
      )
    )
    vlax-vblong
  )
)


배경색을 바꾸는 함수 입니다.

(vla-put-GraphicsWinModelBackgrndColor
  (vla-get-display
    (vla-get-preferences
      (vlax-get-acad-object)
    )
  )
  16777215  ;; 색상 번호
)

첨부된 리습은 흰색과 검은색을 실행 할때 마다 전환이 되는 리습입니다.

즐거운 하루 되시고 오늘도 빨리 퇴근 합시다.


May the force be with you.

KiKO_BackGroundColor.lsp
0.00MB

728x90
반응형