自动设置CAD模型、布局的背景颜色

andyzha

锦上添个花

(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,数值为十进制，且色号颠倒）
        )
)

你有种再说一遍

https://www.cnblogs.com/JJBox/p/11610343.html

czb203

这个有啥用，图片来个

rocking2008

就是设置CAD的背景颜色呀。一般我们用的是黑色，个别版本的CAD不是黑色，是灰的，2010是默认白的，有些菜菜画图不会设置，用这个就简单了。可以随便调成想要的颜色都可以的。

rocking2008

czb203 发表于 2020-5-14 21:59
这个有啥用，图片来个

已上传图片

andyhua

楼上的美女，要币啊？

mokson

我也想要这样的功能。
这个工具太方便了。

magicheno

不错不错~~~~

路宁宁

我只是一个搬运工。
;;;切换背景颜色 ，十字光标颜色 ，自动追踪矢量线颜色
(defun c:`` (/ DISPLAY whitecol blackcol)
  (setq  DISPLAY  (vla-get-display
      (vla-get-preferences
        (vla-get-application (vlax-get-acad-object))
      )
    )
  )
  (setq whitecol (vlax-make-variant 16777215 19))
  (setq blackcol (vlax-make-variant 0 19))
  (cond
    (
     (equal (vla-get-GraphicsWinModelBackgrndColor DISPLAY)
      whitecol
     )
     (vla-put-GraphicsWinModelBackgrndColor DISPLAY blackcol)
     (vla-put-ModelCrosshairColor  DISPLAY whitecol)
     (vla-put-AutoTrackingVecColor DISPLAY whitecol)
    )
    (
     (equal (vla-get-GraphicsWinModelBackgrndColor DISPLAY)
      blackcol
     )
     (vla-put-GraphicsWinModelBackgrndColor DISPLAY whitecol)
     (vla-put-ModelCrosshairColor  DISPLAY blackcol)
     (vla-put-AutoTrackingVecColor DISPLAY blackcol)
    )
    (T
     (vla-put-GraphicsWinModelBackgrndColor DISPLAY blackcol)
     (vla-put-ModelCrosshairColor  DISPLAY whitecol)
     (vla-put-AutoTrackingVecColor DISPLAY whitecol)
    )
  )
    (princ "\n背景颜色已经切换。")
    (prin1)
)

dabingrain

GOOD，Verygood