如何得到CAD屏幕背景色?

shun · 发表于 2004-12-12 16:10

请帮忙

孤星 · 发表于 2004-12-12 16:29

工具－选项－显示－颜色

shun · 发表于 2004-12-13 08:19

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

smilestone · 发表于 2004-12-13 20:56

baitang36 · 发表于 2023-2-9 08:16

(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)
)

账号		自动登录	找回密码
密码			注册