怎样把DWG图形的背景由黑色变成白色？？？

meflying · 发表于 2003-2-25 14:36:00

选“显示”页，按“颜色”，选择你要改变的布局或者模型空间，再选择颜色即可

龙龙仔 · 发表于 2003-2-26 08:02:00

;;; Toggles the ModelSpace background color between black & white
(defun C:MSB (/ PREFDISPLAY)
  (vl-load-com)
  (setq       PREFDISPLAY (vla-get-display
                  (vla-get-preferences (vlax-get-acad-object))
                  )
      COLOR          (vlax-variant-value
                  (vlax-variant-change-type
                     (vla-get-graphicswinmodelbackgrndcolor PREFDISPLAY)
                     vlax-vblong
                  )
                  )
  )
  (if (= COLOR 0)
(vla-put-graphicswinmodelbackgrndcolor
   PREFDISPLAY
   (vlax-make-variant 16777215 vlax-vblong)
)
(vla-put-graphicswinmodelbackgrndcolor
   PREFDISPLAY
   (vlax-make-variant 0 vlax-vblong)
)
  )
  (princ)
)
;;; Toggles the PaperSpace background color between black & white
(defun CSB (/ PREFDISPLAY)
  (vl-load-com)
  (setq       PREFDISPLAY (vla-get-display
                  (vla-get-preferences (vlax-get-acad-object))
                  )
      COLOR          (vlax-variant-value
                  (vlax-variant-change-type
                     (vla-get-graphicswinlayoutbackgrndcolor PREFDISPLAY)
                     vlax-vblong
                  )
                  )
  )
  (if (= COLOR 0)
(vla-put-graphicswinlayoutbackgrndcolor
   PREFDISPLAY
   (vlax-make-variant 16777215 vlax-vblong)
)
(vla-put-graphicswinlayoutbackgrndcolor
   PREFDISPLAY
   (vlax-make-variant 0 vlax-vblong)
)
  )
  (princ)
)