Логотип сайта поддержки пользователей САПРО сайте поддержки пользователей САПР Translate to:

Изменение фонового цвета

Назад к списку функций
;;; Простой способ изменения фонового цвета
;;; Работает как в пространстве листа, так и в пространстве модели, 
;;; легко может быть настровна в зависимости от ваших потребностей
;;; 
;;; Проверено на AutoCAD 2002, 2004, 2005

; Set the background in model and paper space to grey
(defun c:BGGrey ()
  (vl-load-com)
  (setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object))))
  (setq drafting (vla-get-drafting (vla-get-preferences (vlax-get-acad-object))))
  (vla-put-GraphicsWinModelBackgrndColor disp 5987163)
  (vla-put-GraphicsWinLayoutBackgrndColor disp 5987163)
  (vla-put-LayoutCrosshairColor disp 16777215)
  (vla-put-ModelCrosshairColor disp 16777215)
  (vla-put-AutoTrackingVecColor disp 16777215)
  (vla-put-AutoSnapMarkerColor drafting 2)
  (princ)
)



Copyright © Сайт поддержки пользователей САПР by Victor Tkachenko