更改模型空间和布局空间背景颜色(修改完善版-2021.11.6)

fangmin723

昨天论坛里找到了自动设置CAD模型、布局的背景颜色，代码过于简单了，于是在这个基础上做了修改与完善。


提供黑、红、黄、绿、青、蓝、洋红、白几种背景颜色的选项，还提供RGB模式的颜色输入。不过这种RGB的值是三基色值的乘积值。


最小0，最大是(R)255+(G)255*256+(B)255**256*256=16777215。


还支持同时更改模型和布局的背景颜色。如果使用系统默认模式的颜色值，只需要输入0、1、2、3、4、5、6、255就可以了。


如果使用RGB模式的颜色值，输入数字字符串。其他字符串默认设置为黑色。


使用方法如下：
将模型背景设为红色，布局的背景设为蓝色，有以下几种方式：
1、模型：输入快捷键mbg后，直接输入1回车
     布局：输入快捷键lbg后，直接输入5回车


2、模型：输入快捷键mbg后，输入R回车，再输入255回车
     布局：输入快捷键lbg后，输入R回车，再输入16711680回车



3、模型：(Backgroundcolor 1 nil)
     布局：(Backgroundcolor nil 5)


4、模型：(Backgroundcolor "255" nil)
     布局：(Backgroundcolor nil "16711680")


5、模型和布局一起 ：(Backgroundcolor 1 5)
                               (Backgroundcolor "255" "16711680")

黄翔

http://bbs.mjtd.com/thread-83917-1-1.html

aichong

;RGB模式颜色值计算公式：(+ red (* green 256) (* blue 65536))
;即：red+ green*256+ blue*256*256＝red+ green*256+ blue*65536
;最小0(黑色)，最大是：(R)255+(G)255*256+(B)255*256*256=16777215(白色)
;白色16777215，黑色0

fangmin723

RGB模式颜色值计算公式：(+ red (* green 256) (* blue 65536))

ykfoffice

请问vla-put-GraphicsWinLayoutBackgrndColor是什么函数，vlisp自带的吗，我没查到

tigcat

ykfoffice 发表于 2021-11-7 11:47
请问vla-put-GraphicsWinLayoutBackgrndColor是什么函数，vlisp自带的吗，我没查到

是CAD自带的函数,功能是指定图纸空间布局的背景颜色

fangmin723

ykfoffice 发表于 2021-11-7 11:47
请问vla-put-GraphicsWinLayoutBackgrndColor是什么函数，vlisp自带的吗，我没查到

是vlisp自带的函数，可以在葵花宝典中找到的到。至于葵花宝典，应该可以在论坛里搜索到！

mokson

敬佩楼主研究精神，感谢楼主。

czb203

敬佩楼主研究精神，感谢楼主。

ykfoffice

谢谢对我的解答

ykfoffice

fangmin723 发表于 2021-11-8 07:26
是vlisp自带的函数，可以在葵花宝典中找到的到。至于葵花宝典，应该可以在论坛里搜索到！

感谢  查到了