请教下设置背景颜色

satan421

taoyi0727 发表于 2019-11-12 17:36
帅哥能看否再帮我下,能不能找到这些,找这些确实不知道怎么下手
100币奉上

貌似并不是所有的设置都可以通过ActiveX访问、修改。
自动保存打印和发布日志可以：
(setq output (vla-get-output  (vla-get-preferences (vlax-get-acad-object))))
(vla-put-AutomaticPlotLog output 0)

打印戳记及高级选项可以通过-PLOTSTAMP命令设置。例如，设置不创建日志文件：

(command "-plotstamp" "L" "N" "" "")

satan421

sbwdx 发表于 2019-11-12 13:15
老师，请问这三个也能取消吗？

可打印区域我也没找到

taoyi0727

satan421 发表于 2019-11-12 23:31
貌似并不是所有的设置都可以通过ActiveX访问、修改。
自动保存打印和发布日志可以：
(setq output (vla ...

知道这是个知道情况吗?有币为什么转不出来?

satan421

taoyi0727 发表于 2019-11-13 08:41
知道这是个知道情况吗?有币为什么转不出来?

不用转了。举手之劳，相互学习。

taoyi0727

satan421 发表于 2019-11-13 08:47
不用转了。举手之劳，相互学习。

大气 谢谢,怪不好意思的

sbwdx

satan421 发表于 2019-11-13 00:10
可打印区域我也没找到

我查到了老师，(vla-put-LayoutDisplayMargins display 0 ) 这个

satan421

sbwdx 发表于 2020-1-2 10:44
我查到了老师，(vla-put-LayoutDisplayMargins display 0 ) 这个

不错不错，功夫不负有心人

G〆h

        (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 "0")   ;在模型空间背景色（黑色）
                         (vlax-put-property x 'ModelCrosshairColor "3355443")   ;在模型空间十字光标色（颜色250）
                         (vlax-put-property x 'GraphicsWinLayoutBackgrndColor "0")   ;在布局空间背景色（黑色）
                         (vlax-put-property x 'LayoutCrosshairColor "3355443")   ;在布局空间十字光标色（颜色250）
                 )
        ) ;对显示选项卡的操作

xj6019

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

您真是个有心人，谢谢，收藏了，欢迎懂的会的继续接力补全一下！！

taoyi0727

好东西 把这些整理好,写个程序,就能一下设置好自己习惯的操作界面了