- 积分
- 2414
- 明经币
- 个
- 注册时间
- 2012-12-26
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|

楼主 |
发表于 2019-8-16 17:44:59
|
显示全部楼层
如果是黑色就该改成白色,如果是黑色就该改成白色,进行切换,用一个命令控制。程序怎么改
(defun c:tt (/ 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)
) |
|