燃烧 发表于 2013-7-2 09:26:28

修改CAD背景颜色的LISP

下面的代码可以快速更改CAD背景色！有9种颜色可选，代码如下，与大家分享！
(defun c:gr (/ VAR-COLOUR DISPLAY clno blue rde green)
(setq clno (getint "\n=>输入颜色序号!"))
(prompt "\n,1=红,2=黄,3=绿,4=青,5=蓝,6=紫,7=白,8=灰,9=灰白"
)
(cond        ((= clno 1)
       (progn (setq rde 255) (setq green 0) (setq blue 0))
        )
        ((= clno 2)
       (progn (setq rde 255) (setq green 255) (setq blue 0))
        )
        ((= clno 3)
       (progn (setq rde 0) (setq green 255) (setq blue 0))
        )
        ((= clno 4)
       (progn (setq rde 0) (setq green 255) (setq blue 255))
        )
        ((= clno 5)
       (progn (setq rde 0) (setq green 0) (setq blue 255))
        )
        ((= clno 6)
       (progn (setq rde 255) (setq green 0) (setq blue 255))
        )
        ((= clno 7)
       (progn (setq rde 255) (setq green 255) (setq blue 255))
        )
        ((= clno 8)
       (progn (setq rde 128) (setq green 128) (setq blue 128))
        )
        ((= clno 9)
       (progn (setq rde 192) (setq green 192) (setq blue 192))
        )
        (t (progn (setq rde 0) (setq green 0) (setq blue 0)))
)
(setq
    VAR-COLOUR (vlax-make-variant
               (+ rde (* green 256)(* blue 65536))
               vlax-vblong
             )
    DISPLAY    (vla-get-display
               (vla-get-preferences
                   (vla-get-application (vlax-get-acad-object))
               )
             )
)
(vla-put-graphicswinlayoutbackgrndcolor DISPLAY VAR-COLOUR)
(vla-put-graphicswinmodelbackgrndcolor DISPLAY VAR-COLOUR)
)

bluefcc1 发表于 2018-7-11 19:30:49

sicky111 发表于 2013-7-2 10:08
有点意思，只是可以变换的颜色有点少。

更改cad背景色!增加顏色可選
(defun c:gr (/ VAR-COLOUR DISPLAY OLE_COLOR_LIST clno blue rde green aci)
(setq aci (acad_colordlg 0 t))   ;;0>>預設黑色
(setq OLE_COLOR_LIST
       '(0          255      65535      65280      16776960
         16711680   16711935   16777215   8421504    12632256
         255      8421631    166      5460902    128
         4210816    76         2500172    38         1250086
         16639      8429567    10662      5466278    8320
         4214912    4940       2502732    2598       1251366
         33023      8437759    21414      5471398    16512
         4219008    9804       2505036    4902       1252646
         49151      8445951    31910      5476774    24704
         4223104    14668      2507596    7462       1253670
         65535      8454143    42662      5482150    32896
         4227200    19532      2509900    9766       1254950
         65471      8454111    42620      5482129    32864
         4227184    19513      2509891    9757       1254945
         65408      8454079    42579      5482108    32832
         4227168    19494      2509881    9747       1254941
         65344      8454047    42537      5482088    32800
         4227152    19475      2509872    9738       1254936
         65280      8454016    42496      5482067    32768
         4227136    19456      2509862    9728       1254931
         4259584    10485632   2729472    6858323    2129920
         5275712    1264640    3165222    665088   1582611
         8453888    12582784   5481984    8169043    4227072
         6324288    2509824    3755046    1254912    1910291
         12582656   14679936   8168960    9545299    6324224
         7372864    3755008    4410406    1910272    2172435
         16776960   16777088   10921472   10921555   8421376
         8421440    5000192    5000230    2500096    2500115
         16760576   16768896   10910720   10916179   8413184
         8417344    4995328    4997926    2497792    2498835
         16744448   16760704   10900224   10910803   8404992
         8413248    4990464    4995366    2495232    2497811
         16728064   16752512   10889472   10905683   8396800
         8409152    4985600    4993062    2492928    2496531
         16711680   16744576   10878976   10900307   8388608
         8405056    4980736    4990502    2490368    2495251
         16711744   16744607   10879017   10900328   8388640
         8405072    4980755    4990512    2490378    2495256
         16711808   16744639   10879059   10900348   8388672
         8405088    4980774    4990521    2490387    2495261
         16711871   16744671   10879100   10900369   8388704
         8405104    4980793    4990531    2490397    2495265
         16711935   16744703   10879142   10900390   8388736
         8405120    4980812    4990540    2490406    2495270
         12517631   14647551   8126630    9524134    6291584
         7356544    3735628    4400716    1900582    2167590
         8388863    12550399   5439654    8147878    4194432
         6307968    2490444    3745356    1245222    1905446
         4194559    10453247   2687142    6837158    2097280
         5259392    1245260    3155532    655398   1577766
         5526612    5987163    10000536   12303291   14540253
         16777215
      )
      )
(if (and (>= aci 0) (<= 255))
    (setq aci (nth aci OLE_COLOR_LIST))
)
   (setq
    VAR-COLOUR (vlax-make-variant
                  aci
               vlax-vblong
               )
    DISPLAY    (vla-get-display
               (vla-get-preferences
                   (vla-get-application (vlax-get-acad-object))
               )
               )
)
(vla-put-graphicswinlayoutbackgrndcolor DISPLAY VAR-COLOUR)
(vla-put-graphicswinmodelbackgrndcolor DISPLAY VAR-COLOUR)
)

shuaier 发表于 2018-7-19 14:23:36

bluefcc1 发表于 2018-7-11 19:30
更改cad背景色!增加顏色可選
(defun c:gr (/ VAR-COLOUR DISPLAY OLE_COLOR_LIST clno blue rde green a ...

十字光标颜色没有修改，应该反色才对，不然黑色背景 黑色光标 ，光标就看不到了

bluefcc1 发表于 2018-7-19 18:01:16

shuaier 发表于 2018-7-19 14:23
十字光标颜色没有修改，应该反色才对，不然黑色背景 黑色光标 ，光标就看不到了

修改CAD背景顏色，十字光標顏色為背景反色。

sicky111 发表于 2013-7-2 10:08:46

有点意思，只是可以变换的颜色有点少。

fl202 发表于 2013-7-2 17:27:35

有趣，但是无用。。。在op里也可以改。

xhq1954425 发表于 2014-6-28 21:50:13

支持一下

但是，至今还没找到如何更改三维概念或真实视觉样式下的背景颜色，楼主可否研究一下……

77077 发表于 2014-6-29 11:08:51

有点意思~~
一般也就只用黑白灰这三种背景。

ynhh 发表于 2014-6-30 13:27:07

好程序
0为黑色
建议加入

恕放之生命 发表于 2014-7-30 23:05:57

不错，谢谢分享。

无忧小格子 发表于 2016-7-28 16:07:36

光标的颜色没有改

shuaier 发表于 2018-7-9 13:07:45

光标的颜色没有改
应该是反色

taoyi0727 发表于 2018-7-10 10:26:02

ynhh 发表于 2014-6-30 13:27
好程序
0为黑色
建议加入

黑色怎么加入 请问
页: [1] 2 3
查看完整版本: 修改CAD背景颜色的LISP