请教下设置背景颜色

nyistjz

G〆h 发表于 2020-1-2 13:07
(vl-catch-all-apply
                '(lambda ( / x )
                         (setq x (vlax-get-property (vlax-get-property (vlax-ge ...

您的方法感觉有点麻烦


(defun Environment ();环境变量设定
        (vla-put-WindowState *ACAD* 3);窗口最大化
        (setenv "ShowFullPathInTitle" "1" );标题栏显示文件完整路径
        (setenv "qpmode" "-1" );不显示快捷特性面板
        (setvar "tooltips" 1);显示工具提示：是
        (setenv "Scrollbars" "0" );关闭滚动条
        (setvar "dynmode" 0);光标输入关闭
        (vl-cmdf "taskbar" "0" );任务栏标签合并
        (setvar "ACADLSPASDOC" 0);打开文件不加载LSP
        (setvar "REPORTERROR" 0);不发送错误报告
       
        (setvar "LAYOUTREGENCTL" 2);第一次切换选项卡时会重生成图形
        (setvar "FILEDIA" 1);打开文件对话框
        (setvar "DWGCHECK" 2);打开错误文件命令行警告
        (setvar "proxynotice" 0);代理图形对话框（不显示）
        (setvar "proxyshow" 1);显示代理图形
        (setvar "RECOVERYMODE" 1);记录修复信息，但是系统出现故障后不自动显示“图形修复”窗口
       
        (setvar "ISAVEBAK" 0);控制备份文件 (BAK) 的创建。1-创建, 0-不创建
        (vl-cmdf "isavepercent" "0" );完全保存,使文件最小
        (vl-cmdf "-scalelistedit" "reset" "y" "e" );解决复制粘贴大图时，程序卡慢、甚至死掉的问题！
        (vl-cmdf "regenauto" "on" );自动重生成
        (vl-cmdf "viewres" "y" "1000" );弧形显示平滑度，不平顺时可RE重生成
        (setvar "vtenable" 0);控制显示缩放动画，0为无动画，1为有动画
        (setvar "VTFPS" 7);VTFPS 1~7 默认7 控制平滑缩放的速度
        (setvar "zoomfactor" 85);鼠标滑轮缩放比例（默认为60）
       
        (setvar "pickfirst" 1);选择集模式(先选择后执行)
        (setvar "pickadd" 1);选择方式为传统
        (setvar "MBUTTONPAN" 1);中键功能
        (setvar "QAFLAGS" 0);带基点复制
        (setvar "SHORTCUTMENU" 3);右键单击快捷菜单
        (setvar "apbox" 0);关闭靶框
        (setvar "GRIPSIZE" 6);设置夹点框的大小
        (setvar "PICKBOX" 7);拾取框调整
        (setvar "cursorsize" 5);十字光标调整到常规大小
       
        (setvar "SNAPMODE" 0);关闭捕捉
        (setvar "AUTOSNAP" 63);打开对角追踪
        (setenv "AutoSnapTrackPath" "0" );显示全屏及极轴追踪矢量
        (vl-cmdf "POLARANG" "45" );设置极轴角增量
        (setvar "POLARDIST" 1);设置极轴捕捉增量
        (setvar "POLARMODE" 2);控制极轴和对象捕捉追踪设置
        (setvar "TRACKPATH" 0);控制显示极轴和对象捕捉追踪的对齐路径
        (setvar "lwdisplay" 0);线宽关闭
        (vl-cmdf "COMMANDLINE" );打开命令行
        (vl-cmdf "traynotify" "0" );控制是否在状态栏系统托盘上显示服务通知
       
        (setvar "UCSFOLLOW" 0);从布局切换到模型，不会自动重生成，每个视口都要设置
        (setvar "LAYOUTCREATEVIEWPORT" 0);关闭在新布局中创建视口
        (setenv "ShowPrintBorder" "0" );不显示布局图纸背景
        (setenv "ShowPaperMargins" "0" );关闭布局可打印区域
);end defun
(defun Hversion ();高版环境参数设置
        (if (>= acadver4 2015)(setvar "STARTMODE" 0));关闭"开始"选项卡。
        (setvar "StartUp" 0);自动启动样板文件
        (setvar "secureload" 0);任何位置加载不警告，或用命令trustedpaths加载信任路径
        ;(setvar "tooltips" 0);关闭工具提示
        (setvar "rollovertips" 0);显示鼠标悬停提示：否(适用于CAD2009及更高版本)
        (setenv "DefaultFormatForSave" "24" );设置CAD默认保存文件格式2013(24-2004,36-2007,48-2010,60-2013)
        (vl-cmdf "Filetabclose" );关闭标签工具条
        (vl-cmdf "FILETABPREVIEW" "0" );关闭标签悬停布局缩略图显示
        (vl-cmdf "FILETABTHUMBHOVER" "0" );关闭标签悬停布局标签显示
        (setvar "VPCONTROL" 0);关闭视口控件
        (vl-cmdf "DISPLAYVIEWCUBEIN2D" "OFF" );关闭东南西北
        (vl-cmdf "navbar" "off");关闭三维导航栏
        (setvar "HPMAXLINES" 100);设置在图案填充操作中生成的图案填充线的最大数目
        (setvar "HPSCALE" 1);设定填充图案比例因子
        (setvar "gripmultifunctional" 1);动态夹点菜单关闭(适用于CAD2010及更高版本)
        (setvar "INPUTSEARCHOPTIONFLAGS" 30);命令行自动完成关闭(-INPUTSEARCHOPTIONS)
        (vl-cmdf "CLIPROMPTLINES" "3" );命令行提示历史记录的行数
);end defun

nyistjz

;设定背景色：深铅灰色3156001，白色16777215，黑色0
(defun Backgroundcolor (color1 color2 / prefdisplay);模型与布局背景颜色切换
        (vl-load-com)
        (setq        prefDisplay (vla-get-Display (vla-get-Preferences *ACAD*)))
        (vla-put-GraphicsWinModelBackgrndColor prefDisplay (vlax-make-variant color1 vlax-vbLong));设定模型背景色
        (vla-put-GraphicsWinLayoutBackgrndColor prefDisplay (vlax-make-variant color2 vlax-vbLong));设定布局背景色
);end defun
(Backgroundcolor 0 0);模型黑，背景黑
(Backgroundcolor 3156001 16777215);模型灰，背景白

G〆h

nyistjz 发表于 2020-1-2 16:23
您的方法感觉有点麻烦

使用setenv可能需要重启CAD才能生效(环境变量区分大小写),但改用Vlisp实现，则不需要重启，同时能获得更多的功能---------

tianying307

G〆h 发表于 2020-1-2 13:07
(vl-catch-all-apply
                '(lambda ( / x )
                         (setq x (vlax-get-property (vlax-get-property (vlax-ge ...

请教下，这种颜色代码"3355443"是怎么对应的，我想改成白色，不知道怎么改，黑色背景，250的光标颜色，就看不见光标了，先谢了啊

G〆h

tianying307 发表于 2020-2-22 18:25
请教下，这种颜色代码"3355443"是怎么对应的，我想改成白色，不知道怎么改，黑色背景，250的光标颜色，就 ...

这个颜色值是在电脑上试验后的结果，可用(getenv "Background" ) 来测试。
在CAD中，op（选项）→显示：颜色中  设置好背景色为你想要的颜色，再(getenv "Background" ) 的值就是你要的颜色代码。变量一般分系统变量和环境变量两种。光标色等都可借背景色来获取颜色代码。

tianying307

G〆h 发表于 2020-3-20 16:43
这个颜色值是在电脑上试验后的结果，可用(getenv "Background" ) 来测试。
在CAD中，op（选项）→显示： ...

好的，十分感谢

muwind

倒是不用重启 只是有点麻烦，比如
(setenv "ShowFullPathInTitle" "1" )
新开一个图纸， 哪怕是你新建一个图纸马上关闭，标题栏也不同了

KO你

nyistjz 发表于 2020-1-2 16:23
您的方法感觉有点麻烦

命令: (vla-put-WindowState *ACAD* 3) ;窗口最大化    错误: no function definition:
VLA-PUT-WINDOWSTATE
这个怎么运行有问题呢

nyistjz

KO你 发表于 2022-2-17 00:20
命令: (vla-put-WindowState *ACAD* 3) ;窗口最大化    错误: no function definition:
VLA-PUT-WINDOW ...

(vla-put-WindowState(vla-get-ActiveDocument(vlax-get-acad-object))3)
(vla-put-WindowState(vlax-get-acad-object)3)
文档及程序，窗口最大化

KO你

nyistjz 发表于 2022-2-17 16:45
(vla-put-WindowState(vla-get-ActiveDocument(vlax-get-acad-object))3)
(vla-put-WindowState(vlax-ge ...

高版本试了可以，低版本提示错误: no function definition: VLAX-GET-ACAD-OBJECT
没有通用的吗