請問各位程序高手如何用LISP程序來定義CAD模型空間的背景顏色?

BDYCAD

因我的功力不夠深厚,有個問題我想問問大家. 我一直在為這個問題發愁. 不知哪位大俠可
以用LISP來更改模型空的背顏色啊? 請不吝指教. 謝謝啦.





------------------------------------------------
我愛CAD 大家好. 請多多指教,

atone

又是一个20年的好东西

龙龙仔

;;Changing background color with vlisp

;; Written by Stephen Tate 19990422
(VL-LOAD-COM)
(defun C:SETRGB        (/ RED GREEN BLUE VAR-COLOUR DISPLAY)
  (setq        RED           (getint "\nRed content (0-255) : ")
        GREEN           (getint "\nGreen content (0-255) : ")
        BLUE           (getint "\nBlue content (0-255) : ")
        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)
) ;_ end DEFUN

BDYCAD

多謝龍龍仔, 這個很棒, 只是每個人的使用要求不同, 所以一般人很少用到, 我是用來啟動CAD時設計背景用的. 現在向你請教一下, 系統變量貼子里的用背景顏色系統變量不能提取.用程序是如何提取出背景顏色呀. 謝謝你啦.



-----------------------------------------------------
我愛CAD, 共同學習, 共同進步

龙龙仔

(setq PREFDISPLAY (vla-get-display
                    (vla-get-preferences (vlax-get-acad-object))
                  )
      COLOR          (vlax-variant-value
                    (vlax-variant-change-type
                      (vla-get-graphicswinmodelbackgrndcolor PREFDISPLAY)
                      vlax-vblong
                    )
                  )
)

xhq1954425

翻出来一个老帖，目前编程正涉及这个问题，试了一下提取出背景顏色好像是有问题？请大家给指点一下！谢谢！

龙龙仔

有甚麼问题?

 

xhq1954425

谢谢版主关注！我用的是08版本，我把程序复制到命令行，回车，背景色选为“白”返回值是16777215

                                                                                  背景色选为“黑”返回值是0

是不是我没会用呀？请指点迷津！谢谢！

 

 

 

龙龙仔

正常====>用2樓的程序白色--RGB: 255 255 255 

 

(+ (* BLUE 65536) (* GREEN 256) RED)

(+ (* 255 65536) (* 255 256) 255)=16777215

xhq1954425

感谢龙版主的指点！非常谢谢！

 

 

killer9806

学习一下,龙版强!