rocking2008 发表于 2020-5-13 14:17:07

本主题需向作者支付 3 个明经币 才能浏览 购买主题

andyzha 发表于 2020-6-15 08:19:57

锦上添个花:lol

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

你有种再说一遍 发表于 2021-9-23 22:57:55

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

czb203 发表于 2020-5-14 21:59:35

这个有啥用，图片来个

rocking2008 发表于 2020-5-14 22:02:47

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

rocking2008 发表于 2020-5-18 11:05:41

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

已上传图片

andyhua 发表于 2020-5-18 16:47:20

楼上的美女，要币啊？

mokson 发表于 2020-6-14 11:35:49

本帖最后由 mokson 于 2021-10-28 09:10 编辑

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

magicheno 发表于 2020-6-14 21:56:59

不错不错~~~~

路宁宁 发表于 2020-6-14 22:06:50

我只是一个搬运工。
;;;切换背景颜色 ，十字光标颜色 ，自动追踪矢量线颜色
(defun c:`` (/ DISPLAY whitecol blackcol)
(setqDISPLAY(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-ModelCrosshairColorDISPLAY whitecol)
   (vla-put-AutoTrackingVecColor DISPLAY whitecol)
    )
    (
   (equal (vla-get-GraphicsWinModelBackgrndColor DISPLAY)
      blackcol
   )
   (vla-put-GraphicsWinModelBackgrndColor DISPLAY whitecol)
   (vla-put-ModelCrosshairColorDISPLAY blackcol)
   (vla-put-AutoTrackingVecColor DISPLAY blackcol)
    )
    (T
   (vla-put-GraphicsWinModelBackgrndColor DISPLAY blackcol)
   (vla-put-ModelCrosshairColorDISPLAY whitecol)
   (vla-put-AutoTrackingVecColor DISPLAY whitecol)
    )
)
    (princ "\n背景颜色已经切换。")
    (prin1)
)

dabingrain 发表于 2021-9-9 14:42:38

GOOD，Verygood
页: [1] 2
查看完整版本: 自动设置CAD模型、布局的背景颜色