更改模型空间和布局空间背景颜色(修改完善版-2021.11.6)
本帖最后由 fangmin723 于 2022-7-29 09:00 编辑昨天论坛里找到了自动设置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
http://bbs.mjtd.com/forum.php?mod=attachment&aid=NTQwNDZ8OWNkNTU0ZGR8MTcxOTk3Mjc5NXw3MzI2NjE5fDgzOTE3&noupdate=yes ;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 RGB模式颜色值计算公式：(+ red (* green 256) (* blue 65536)) 请问vla-put-GraphicsWinLayoutBackgrndColor是什么函数，vlisp自带的吗，我没查到 ykfoffice 发表于 2021-11-7 11:47
请问vla-put-GraphicsWinLayoutBackgrndColor是什么函数，vlisp自带的吗，我没查到
是CAD自带的函数,功能是指定图纸空间布局的背景颜色 ykfoffice 发表于 2021-11-7 11:47
请问vla-put-GraphicsWinLayoutBackgrndColor是什么函数，vlisp自带的吗，我没查到
是vlisp自带的函数，可以在葵花宝典中找到的到。至于葵花宝典，应该可以在论坛里搜索到！ 敬佩楼主研究精神，感谢楼主。 敬佩楼主研究精神，感谢楼主。 谢谢对我的解答:lol fangmin723 发表于 2021-11-8 07:26
是vlisp自带的函数，可以在葵花宝典中找到的到。至于葵花宝典，应该可以在论坛里搜索到！
感谢查到了