- 积分
- 4592
- 明经币
- 个
- 注册时间
- 2011-5-5
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
发表于 2020-6-15 08:19:57
|
显示全部楼层
锦上添个花
(vl-catch-all-apply
'(lambda ( / x )
(setq x (vlax-get-property (vlax-get-property (vlax-get-acad-object) 'Preferences) 'Display))
(vlax-put-property x 'displaylayouttabs :vlax-true) ;打开布局控制图签
(vlax-put-property x 'DisplayScrollBars :vlax-false) ;关闭滚动条
(vlax-put-property x 'TextFont "Consolas") ;设置命令行字体
(vlax-put-property x 'LayoutDisplayMargins :vlax-false) ;在布局不显示可打印区域
(vlax-put-property x 'LayoutDisplayPaper :vlax-false) ;在布局不显示图纸背景
(vlax-put-property x 'LayoutDisplayPaperShadow :vlax-false) ;在布局不显示图纸阴影
(vlax-put-property x 'GraphicsWinModelBackgrndColor "3352863") ;在模型空间背景色(黑色31,41,51,数值为十进制,且色号颠倒)
(vlax-put-property x 'ModelCrosshairColor "14079702") ;在模型空间十字光标色(颜色252,数值为十进制,且色号颠倒)
(vlax-put-property x 'GraphicsWinLayoutBackgrndColor "3352863") ;在布局空间背景色(黑色31,41,51,数值为十进制,且色号颠倒)
(vlax-put-property x 'LayoutCrosshairColor "14079702") ;在布局空间十字光标色(颜色252,数值为十进制,且色号颠倒)
)
) |
|