关于下面用rgb设置背景颜色代码，为什么设置成功，最后一句为什么会出错啊

tranney

关于下面用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))   ;新增默认
  (setq  VAR-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

xiaxiang

08下通过。你到14下调试，根据报错应该能找到问题。

llsheng_73

(vla-put-graphicswinmodelbackgrndcolor DISPLAY (+ (* BLUE 65536) (* GREEN 256) RED))

试试看，06，08下测试通过，其它版本没装过不清楚

kwok

2014测试了一下，通过，可以用，
但如果RED/GREEN/BLUE这些数值没有输入直接回车的话就出错，
可能要加一个默认值检查吧，查到没有就设为33/40/48

tranney

kwok 发表于 2014-4-21 11:18
2014测试了一下，通过，可以用，
但如果RED/GREEN/BLUE这些数值没有输入直接回车的话就出错，
可能要加一 ...

谢谢，呵呵，好久没用这个了，然后突然看到发现不会用了，代码也没仔细看

荒野孤行

llsheng_73 发表于 2014-4-21 10:01
(vla-put-graphicswinmodelbackgrndcolor DISPLAY (+ (* BLUE 65536) (* GREEN 256) RED))

试试看，06， ...

(vla-put-graphicswinmodelbackgrndcolor DISPLAY (vlax-make-variant (+ 255 (* 255 256) (* 255 65536)) vlax-vblong))

edata

楼主的代码是改后还有错，strcat red blue........

lucas_3333

老贴了。。。又被顶起来了，论坛见过好几个完整的代码

1. ;; This lisp can change background color for 2D model space
   
2. 
   
3. (defun c:gr (/ VAR-COLOUR DISPLAY clno blue rde green)
   
4.   (setq clno (getint "\n=>Input colour No!"))
   
5.   (prompt "\n,1=red,2=yellow,3=gree,4=cyan,5=blue,6=magenta,7=white"
   
6.   )
   
7.   (cond        ((= clno 1)
   
8.          (progn (setq rde 255) (setq green 0) (setq blue 0))
   
9.         )
   
10.         ((= clno 2)
    
11.          (progn (setq rde 255) (setq green 255) (setq blue 0))
    
12.         )
    
13.         ((= clno 3)
    
14.          (progn (setq rde 0) (setq green 255) (setq blue 0))
    
15.         )
    
16.         ((= clno 4)
    
17.          (progn (setq rde 0) (setq green 255) (setq blue 255))
    
18.         )
    
19.         ((= clno 5)
    
20.          (progn (setq rde 0) (setq green 0) (setq blue 255))
    
21.         )
    
22.         ((= clno 6)
    
23.          (progn (setq rde 255) (setq green 0) (setq blue 255))
    
24.         )
    
25.         ((= clno 7)
    
26.          (progn (setq rde 255) (setq green 255) (setq blue 255))
    
27.         )
    
28.         ((= clno 8)
    
29.          (progn (setq rde 128) (setq green 128) (setq blue 128))
    
30.         )
    
31.         ((= clno 9)
    
32.          (progn (setq rde 192) (setq green 192) (setq blue 192))
    
33.         )
    
34.         (t (progn (setq rde 0) (setq green 0) (setq blue 0)))
    
35.   )
    
36.   (setq
    
37.     VAR-COLOUR (vlax-make-variant
    
38.                  (+ rde (* green 256)(* blue 65536))
    
39.                  vlax-vblong
    
40.                )
    
41.     DISPLAY    (vla-get-display
    
42.                  (vla-get-preferences
    
43.                    (vla-get-application (vlax-get-acad-object))
    
44.                  )
    
45.                )
    
46.   )
    
47.   (vla-put-graphicswinlayoutbackgrndcolor DISPLAY VAR-COLOUR)
    
48.   (vla-put-graphicswinmodelbackgrndcolor DISPLAY VAR-COLOUR)
    
49. )

;; This lisp can change background color for 2D model space<br /> <br /> (defun c:gr (/ VAR-COLOUR DISPLAY clno blue rde green)<br />   (setq clno (getint "\n=>Input colour No!"))<br />   (prompt "\n,1=red,2=yellow,3=gree,4=cyan,5=blue,6=magenta,7=white"<br />   )<br />   (cond        ((= clno 1)<br />          (progn (setq rde 255) (setq green 0) (setq blue 0))<br />         )<br />         ((= clno 2)<br />          (progn (setq rde 255) (setq green 255) (setq blue 0))<br />         )<br />         ((= clno 3)<br />          (progn (setq rde 0) (setq green 255) (setq blue 0))<br />         )<br />         ((= clno 4)<br />          (progn (setq rde 0) (setq green 255) (setq blue 255))<br />         )<br />         ((= clno 5)<br />          (progn (setq rde 0) (setq green 0) (setq blue 255))<br />         )<br />         ((= clno 6)<br />          (progn (setq rde 255) (setq green 0) (setq blue 255))<br />         )<br />         ((= clno 7)<br />          (progn (setq rde 255) (setq green 255) (setq blue 255))<br />         )<br />         ((= clno 8)<br />          (progn (setq rde 128) (setq green 128) (setq blue 128))<br />         )<br />         ((= clno 9)<br />          (progn (setq rde 192) (setq green 192) (setq blue 192))<br />         )<br />         (t (progn (setq rde 0) (setq green 0) (setq blue 0)))<br />   )<br />   (setq<br />     VAR-COLOUR (vlax-make-variant<br />                  (+ rde (* green 256)(* blue 65536))<br />                  vlax-vblong<br />                )<br />     DISPLAY    (vla-get-display<br />                  (vla-get-preferences<br />                    (vla-get-application (vlax-get-acad-object))<br />                  )<br />                )<br />   )<br />   (vla-put-graphicswinlayoutbackgrndcolor DISPLAY VAR-COLOUR)<br />   (vla-put-graphicswinmodelbackgrndcolor DISPLAY VAR-COLOUR)<br /> )

lucas_3333

如何更改三维空间的背影颜色倒是一个问题，没有找到解决办法

edata

lucas_3333 发表于 2015-6-8 23:30
如何更改三维空间的背影颜色倒是一个问题，没有找到解决办法

可以尝试注册表。
HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\R18.1\ACAD-9001:409\Profiles\<<Unnamed Profile>>\Drawing Window\Parallel background