明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3573|回复: 19

[源码] 自动设置CAD模型、布局的背景颜色

  [复制链接]
发表于 2020-5-13 14:17:07 | 显示全部楼层 |阅读模式
购买主题 本主题需向作者支付 3 个明经币 才能浏览
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 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,数值为十进制,且色号颠倒)
        )
)

点评

没有最好,只有更好。  发表于 2020-6-16 14:32
回复 支持 3 反对 0

使用道具 举报

发表于 2021-9-23 22:57:55 来自手机 | 显示全部楼层
https://www.cnblogs.com/JJBox/p/11610343.html
回复 支持 1 反对 0

使用道具 举报

发表于 2020-5-14 21:59:35 | 显示全部楼层
这个有啥用,图片来个
 楼主| 发表于 2020-5-14 22:02:47 | 显示全部楼层
就是设置CAD的背景颜色呀。一般我们用的是黑色,个别版本的CAD不是黑色,是灰的,2010是默认白的,有些菜菜画图不会设置,用这个就简单了。可以随便调成想要的颜色都可以的。
 楼主| 发表于 2020-5-18 11:05:41 | 显示全部楼层
czb203 发表于 2020-5-14 21:59
这个有啥用,图片来个

已上传图片
发表于 2020-5-18 16:47:20 | 显示全部楼层
楼上的美女,要币啊?
发表于 2020-6-14 11:35:49 | 显示全部楼层
本帖最后由 mokson 于 2021-10-28 09:10 编辑

我也想要这样的功能。
这个工具太方便了。
发表于 2020-6-14 22:06:50 | 显示全部楼层
我只是一个搬运工。
;;;切换背景颜色 ,十字光标颜色 ,自动追踪矢量线颜色
(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)
)

点评

高大尚的搬运工  发表于 2020-6-16 14:32
发表于 2021-9-9 14:42:38 | 显示全部楼层
GOOD,Verygood
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-14 14:36 , Processed in 0.344050 second(s), 35 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表