如何得到CAD屏幕背景色?

shun

请帮忙

孤星

工具－选项－显示－颜色

shun

在ARX中如何获得CAD屏幕背景色的颜色索引值

smilestone

7.

baitang36

(vl-load-com)
(defun c:chgsc(/ col DISPLAY)
        (setq    DISPLAY    (vla-get-display
                        (vla-get-preferences
                                (vla-get-application (vlax-get-acad-object))
                        )
                )
  )
        (if (= (getenv "Background") "0") (setq col 255) (setq col 0))
        (vla-put-graphicswinlayoutbackgrndcolor DISPLAY (vlax-make-variant
                        (+ col (* col 256)(* col 65536))
                        vlax-vblong
        ))
  (vla-put-graphicswinmodelbackgrndcolor DISPLAY (vlax-make-variant
                        (+ col (* col 256)(* col 65536))
                        vlax-vblong
        ))
        (princ)
)