关于下面用rgb设置背景颜色代码，为什么设置成功，最后一句为什么会出错啊
本帖最后由 tranney 于 2014-4-21 14:57 编辑关于下面用rgb设置背景颜色代码，为什么设置成功，最后一句为什么会出错啊
(defun C:RGB (/ RED GREEN BLUE VAR-COLOUR DISPLAY)
(setq RED (getint "\nRed content (0-255) : <33>"))
(if (= RED nil) (setq RED 33)) ;新增默认
(setq GREEN (getint "\nGreen content (0-255) : <40>"))
(if (= GREEN nil) (setq GREEN 40));新增默认
(setq BLUE (getint "\nBlue content (0-255) : <48>"))
(if (= BLUE nil) (setq BLUE 48)) ;新增默认
(setqVAR-COLOUR (vlax-make-variant
(+ (* BLUE 65536) (* GREEN 256) RED)
vlax-vblong
)
DISPLAY (vla-get-display
(vla-get-preferences
(vla-get-application (vlax-get-acad-object))
)
)
) ;_ end setq
;; Set the Layout colour
(vla-put-graphicswinlayoutbackgrndcolor DISPLAY VAR-COLOUR)
;; Set the Modelspace colour
(vla-put-graphicswinmodelbackgrndcolor DISPLAY VAR-COLOUR)
(princ(strcat "\n---已设置背景rgb颜色为" RED "，" GREEN " " BLUE " "))：*请问高手为什么这句会出错啊！！
(princ)
) ;_ end DEFUN
08下通过。你到14下调试，根据报错应该能找到问题。 本帖最后由 llsheng_73 于 2014-4-21 10:38 编辑
(vla-put-graphicswinmodelbackgrndcolor DISPLAY (+ (* BLUE 65536) (* GREEN 256) RED))
试试看，06，08下测试通过，其它版本没装过不清楚 2014测试了一下，通过，可以用，
但如果RED/GREEN/BLUE这些数值没有输入直接回车的话就出错，
可能要加一个默认值检查吧，查到没有就设为33/40/48
kwok 发表于 2014-4-21 11:18 static/image/common/back.gif
2014测试了一下，通过，可以用，
但如果RED/GREEN/BLUE这些数值没有输入直接回车的话就出错，
可能要加一 ...
谢谢，呵呵，好久没用这个了，然后突然看到发现不会用了，代码也没仔细看 llsheng_73 发表于 2014-4-21 10:01 static/image/common/back.gif
(vla-put-graphicswinmodelbackgrndcolor DISPLAY (+ (* BLUE 65536) (* GREEN 256) RED))
试试看，06， ...
(vla-put-graphicswinmodelbackgrndcolor DISPLAY (vlax-make-variant (+ 255 (* 255 256) (* 255 65536)) vlax-vblong)) 楼主的代码是改后还有错，strcat red blue........ 老贴了。。。又被顶起来了，论坛见过好几个完整的代码
;; This lisp can change background color for 2D model space
(defun c:gr (/ VAR-COLOUR DISPLAY clno blue rde green)
(setq clno (getint "\n=>Input colour No!"))
(prompt "\n,1=red,2=yellow,3=gree,4=cyan,5=blue,6=magenta,7=white"
)
(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)
)
如何更改三维空间的背影颜色倒是一个问题，没有找到解决办法
lucas_3333 发表于 2015-6-8 23:30 static/image/common/back.gif
如何更改三维空间的背影颜色倒是一个问题，没有找到解决办法
可以尝试注册表。
HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R18.1\ACAD-9001:409\Profiles\<<Unnamed Profile>>\Drawing Window\Parallel background
页:
[1]
2