請問各位程序高手如何用LISP程序來定義CAD模型空間的背景顏色?
因我的功力不夠深厚,有個問題我想問問大家. 我一直在為這個問題發愁. 不知哪位大俠可以用LISP來更改模型空的背顏色啊? 請不吝指教. 謝謝啦.
------------------------------------------------
我愛CAD 大家好. 請多多指教, 又是一个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 多謝龍龍仔, 這個很棒, 只是每個人的使用要求不同, 所以一般人很少用到, 我是用來啟動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
)
)
) 翻出来一个老帖，目前编程正涉及这个问题，试了一下提取出背景顏色好像是有问题？请大家给指点一下！谢谢！ <p>有甚麼问题?</p>
<p> </p> <p>谢谢版主关注！我用的是08版本，我把程序复制到命令行，回车，背景色选为“白”返回值是<font face="Verdana">16777215</font></p>
<p> 背景色选为“黑”返回值是<font face="Verdana">0</font></p>
<p>是不是我没会用呀？请指点迷津！谢谢！</p>
<p> </p>
<p></p>
<p> </p>
<p> </p> <p>正常====>用2樓的程序白色--RGB: 255 255 255 </p>
<p> </p>
<p><font face="Verdana">(+ (* BLUE 65536) (* GREEN 256) RED)</font></p>
<p><font face="Verdana">(+ (* 255 65536) (* 255 256) 255)=16777215</font></p> <p>感谢龙版主的指点！非常谢谢！</p>
<p> </p>
<p> </p> 学习一下,龙版强!
页:
[1]
2