[求助]：如何获得屏幕背景颜色值？

eachy

1. 
   
2. (vla-get-graphicswinmodelbackgrndcolor
   
3.   (vla-get-display
   
4.     (vla-get-preferences (vlax-get-acad-object))
   
5.   )
   
6. )
   

复制代码

返回值
#<variant 19 0>
用vlax-safearray->list提示
_$

错误: LispFromPtr failed. The type is not supported: 19
_$

lijiao

最初由 eachy 发布
[B]

1. 
   
2. (vla-get-graphicswinmodelbackgrndcolor
   
3.   (vla-get-display
   
4.     (vla-get-preferences (vlax-get-acad-object))
   
5.   )
   
6. )
   

复制代码

返回值
#<variant 19 0>
用vlax-safearray->list提示
_$

错误... [/B]

未提供19这个值

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. 
   
6.       
   
7. vlax-variant-type Function
   
8. (vlax-variant-type var)
   
9. Arguments
   
10. 
    
11. var
    
12. 
    
13. A variable whose value is a variant.
    
14. 
    
15. Return Values
    
16. 
    
17. If var contains a variant, one of the following integers is returned:
    
18. 
    
19. 0
    
20. 
    
21. Uninitialized (vlax-vbEmpty)
    
22. 
    
23. 1
    
24. 
    
25. Contains no valid data (vlax-vbNull)
    
26. 
    
27. 2
    
28. 
    
29. Integer (vlax-vbInteger)
    
30. 
    
31. 3
    
32. 
    
33. Long integer (vlax-vbLong)
    
34. 
    
35. 4
    
36. 
    
37. Single-precision floating-point number (vlax-vbSingle)
    
38. 
    
39. 5
    
40. 
    
41. Double-precision floating-point number (vlax-vbDouble)
    
42. 
    
43. 8
    
44. 
    
45. String (vlax-vbString)
    
46. 
    
47. 9
    
48. 
    
49. Object (vlax-vbObject)
    
50. 
    
51. 11
    
52. 
    
53. Boolean (vlax-vbBoolean)
    
54. 
    
55. 8192 + n
    
56. 
    
57. Safearray (vlax-vbArray) of some data type. For example, an array of doubles (vlax-vbDouble) returns 8197 (8192 + 5).
    
58. 
    
59. If var does not contain a variant, an error results.
    
60. 
    
61. Examples
    
62. 
    
63. Set a variant to nil and display the variant's data type:
    
64. 
    
65. _$ (setq varnil (vlax-make-variant nil))
    
66. 
    
67. #<variant 0 >
    
68. _$ (vlax-variant-type varnil)
    
69. 
    
70. 0
    
71. Set a variant to an integer value and explicitly define the variant as an integer data type:
    
72. 
    
73. _$ (setq varint (vlax-make-variant 5 vlax-vbInteger))
    
74. 
    
75. #<variant 2 5>
    
76. _$ (vlax-variant-type varint)
    
77. 
    
78. 2
    
79. Set a variant to an integer value and display the variant's data type:
    
80. 
    
81. _$ (setq varint (vlax-make-variant 5))
    
82. 
    
83. #<variant 3 5>
    
84. _$ (vlax-variant-type varint)
    
85. 
    
86. 3
    
87. Notice that without explicitly defining the data type to vlax-make-variant, an integer assignment results in a Long integer data type.
    
88. 
    
89. Set a variant to a string and display the variant's data type:
    
90. 
    
91. _$ (setq varstr (vlax-make-variant "ghost"))
    
92. 
    
93. #<variant 8 ghost>
    
94. _$ (vlax-variant-type varstr)
    
95. 
    
96. 8
    
97. Create a safearray of doubles, assign the safearray to a variant, and display the variant's data type:
    
98. 
    
99. _$ (setq 4dubs (vlax-make-safearray vlax-vbDouble '(0 . 3)))
    
100. 
     
101. #<safearray...>
     
102. _$ (setq var4dubs (vlax-make-variant 4dubs))
     
103. 
     
104. #<variant 8197 ...>
     
105. _$ (vlax-variant-type var4dubs)
     
106. 
     
107. 8197
     
108. A variant type value greater than 8192 indicates that the variant contains some type of safearray. Subtract 8192 from the return value to determine the data type of the safearray. In this example, 8197-8192=5 (vlax-vbDouble).
     
109. 
     
110. Assign a real value to a variable, then issue vlax-variant-type to check the variable's data type:
     
111. 
     
112. _$ (setq notvar 6.0)
     
113. 
     
114. 6.0
     
115. _$ (vlax-variant-type notvar)
     
116. 
     
117. ; *** ERROR: bad argument type: variantp 6.0
     
118. This last example results in an error, because the variable passed to vlax-variant-type does not contain a variant.
     
119. 
     
120. See Also
     
121. 
     
122. The vlax-make-safearray , vlax-make-variant , vlax-variant-change-type , and vlax-variant-value functions.
     
123. 
     
124.    Comments?  
     
125.   
     
126.   [/FONT]
     

<br />   [FONT=courier new]<br /> <br /> <br />       <br /> vlax-variant-type Function <br /> (vlax-variant-type var) <br /> Arguments <br /> <br /> var <br /> <br /> A variable whose value is a variant. <br /> <br /> Return Values <br /> <br /> If var contains a variant, one of the following integers is returned: <br /> <br /> 0 <br /> <br /> Uninitialized (vlax-vbEmpty) <br /> <br /> 1 <br /> <br /> Contains no valid data (vlax-vbNull) <br /> <br /> 2 <br /> <br /> Integer (vlax-vbInteger) <br /> <br /> 3 <br /> <br /> Long integer (vlax-vbLong) <br /> <br /> 4 <br /> <br /> Single-precision floating-point number (vlax-vbSingle) <br /> <br /> 5 <br /> <br /> Double-precision floating-point number (vlax-vbDouble) <br /> <br /> 8 <br /> <br /> String (vlax-vbString) <br /> <br /> 9 <br /> <br /> Object (vlax-vbObject) <br /> <br /> 11 <br /> <br /> Boolean (vlax-vbBoolean) <br /> <br /> 8192 + n <br /> <br /> Safearray (vlax-vbArray) of some data type. For example, an array of doubles (vlax-vbDouble) returns 8197 (8192 + 5). <br /> <br /> If var does not contain a variant, an error results. <br /> <br /> Examples <br /> <br /> Set a variant to nil and display the variant's data type: <br /> <br /> _$ (setq varnil (vlax-make-variant nil))<br /> <br /> #<variant 0 ><br /> _$ (vlax-variant-type varnil)<br /> <br /> 0<br /> Set a variant to an integer value and explicitly define the variant as an integer data type: <br /> <br /> _$ (setq varint (vlax-make-variant 5 vlax-vbInteger))<br /> <br /> #<variant 2 5><br /> _$ (vlax-variant-type varint)<br /> <br /> 2<br /> Set a variant to an integer value and display the variant's data type: <br /> <br /> _$ (setq varint (vlax-make-variant 5))<br /> <br /> #<variant 3 5><br /> _$ (vlax-variant-type varint)<br /> <br /> 3<br /> Notice that without explicitly defining the data type to vlax-make-variant, an integer assignment results in a Long integer data type. <br /> <br /> Set a variant to a string and display the variant's data type: <br /> <br /> _$ (setq varstr (vlax-make-variant "ghost"))<br /> <br /> #<variant 8 ghost><br /> _$ (vlax-variant-type varstr)<br /> <br /> 8<br /> Create a safearray of doubles, assign the safearray to a variant, and display the variant's data type: <br /> <br /> _$ (setq 4dubs (vlax-make-safearray vlax-vbDouble '(0 . 3)))<br /> <br /> #<safearray...><br /> _$ (setq var4dubs (vlax-make-variant 4dubs))<br /> <br /> #<variant 8197 ...><br /> _$ (vlax-variant-type var4dubs)<br /> <br /> 8197<br /> A variant type value greater than 8192 indicates that the variant contains some type of safearray. Subtract 8192 from the return value to determine the data type of the safearray. In this example, 8197-8192=5 (vlax-vbDouble). <br /> <br /> Assign a real value to a variable, then issue vlax-variant-type to check the variable's data type: <br /> <br /> _$ (setq notvar 6.0)<br /> <br /> 6.0<br /> _$ (vlax-variant-type notvar)<br /> <br /> ; *** ERROR: bad argument type: variantp 6.0<br /> This last example results in an error, because the variable passed to vlax-variant-type does not contain a variant. <br /> <br /> See Also <br /> <br /> The vlax-make-safearray , vlax-make-variant , vlax-variant-change-type , and vlax-variant-value functions. <br /> <br />    Comments?  <br />   <br />   [/FONT]<br />

LUCAS

1. 
   
2. (vlax-variant-value
   
3.   (vlax-variant-change-type
   
4.     (vla-get-graphicswinmodelbackgrndcolor
   
5.       (vla-get-display
   
6.         (vla-get-preferences (vlax-get-acad-object))
   
7.       )
   
8.     )
   
9.     vlax-vblong
   
10.   )
    
11. )
    

复制代码