Bezieht sich auf
	Produkt(e):	MicroStation
	Version(en):	08.11.09.578
	Umgebung:	Windows 7 32 bit,Windows 7 64 bit
	Produktbereich:	Programmierung
	Produktunterbereich:	VBA
	Ursprünglicher Autor:	Artur Goldsweer, Bentley Technical Support Group

 

Hintergrundinformation

Die in einer Zeichnunge verwendeten Farben lassen sich über die Farbtabelle darstellen oder auch verändern. Oftmals besteht aber der Wunsch eine Übersicht in Textform aller RGB Werte der Farben zu erhalten.

 

Erforderliche Schritte

Einen solchen Export der Farbwerte in eine Textdatei kann man mit VBA Mitteln generieren. Damit die Ausgabedatei leichter ausgewertet werden kann, werde ich in dem folgenden Beispiel die Ausgabe in eine CSV Datei leiten, wobei eine solche  CSV Datei auch eigentlich  nur eine Textdatei ist, deren einzelnen Werte einer Zeile durch ein Symbol getrennt sind, dieses Symbol variiert jedoch je nach Ländereinstellung, das häufigste Symbol dafür ist ein Semikolon bzw. Komma.

Hier nun ein Beispiel einer Subroutine tbl2txt.

Declare Function GetLocaleInfo Lib "kernel32" Alias _
"GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, _
ByVal lpLCData As String, ByVal cchData As Long) As Long

Declare Function GetUserDefaultLCID% Lib "kernel32" ()

Public Const LOCALE_SLIST = &HC

' Diese Funktion liest aus, welcher Listenseperator für CSV Dateien verwendet werden muss
Function GetListSeparator() As String
Dim ListSeparator As String
Dim iRetVal1 As Long
Dim iRetVal2 As Long
Dim lpLCDataVar As String

Dim Position As Integer
Dim Locale As Long
GetListSeparator = ";"
Locale = GetUserDefaultLCID()

iRetVal1 = GetLocaleInfo(Locale, LOCALE_SLIST, lpLCDataVar, 0)

ListSeparator = String$(iRetVal1, 0)

iRetVal2 = GetLocaleInfo(Locale, LOCALE_SLIST, ListSeparator, iRetVal1)

Position = InStr(ListSeparator, Chr$(0))
If Position > 0 Then
ListSeparator = Left$(ListSeparator, Position - 1)
GetListSeparator = ListSeparator
End If

End Function
' Zerlegt einen Long Wert in die RGB Anteile
Private Sub ExtractRGB(ByVal longColor As Long, intRed As Byte, intGreen As Byte, intBlue As Byte)
    Dim lngColor As Long

    lngColor = longColor
    intRed = lngColor Mod &H100
    lngColor = lngColor \ &H100
    intGreen = lngColor Mod &H100
    lngColor = lngColor \ &H100
    intBlue = lngColor Mod &H100
End Sub

' Extrahiert Farben aus der aktuellen Farbtabelle
Sub tbl2txt()
Dim tbl As ColorTable
Dim col() As Long
Dim r As Byte, g As Byte, b As Byte
Dim bg As Long
Dim Sep As String
    ' das Trennzeichen bei .CSV Dateien auslesen
    Sep = GetListSeparator
    
    ' Farbtabelle der aktiven Zeichznunsgdatei auslesen
    Set tbl = ActiveDesignFile.ExtractColorTable
    col = tbl.GetColors

    ' Öffnen der SCV Datei für die Ausgabe
    Open ActiveDesignFile.FullName + "-rgb values.csv" For Output As #1
    Print #1, "Number" + Sep + "Red" + Sep + "Green" + Sep + "Blue"
    
    ' Extrahiere jede Farbe der Farbtabelle und schreibe sie in die CSV Datei
    For i = LBound(col) To UBound(col)
        Call ExtractRGB(col(i), r, g, b)
        Print #1, Str(i) + Sep + Str(r) + Sep + Str(g) + Sep + Str(b)
    Next
    
    ' zuletzt die Hintergrundfarbe:
    bg = tbl.BackColor
    Call ExtractRGB(bg, r, g, b)
    Print #1, "BG" + Sep + Str(r) + Sep + Str(g) + Sep + Str(b)

    Close #1
End Sub

Die zusätzlichen Deklationen von Funktionen bzw. weiteren Subroutinen dienen zum Auslesen des Trennzeichens für CSV Dateien bzw. zum Zerlegen eine Long Wertes in die RGB Bestandteile in Byte.

Für die Standardfarbtabelle von MicroStation:

ergibt sich bei dieser VBA Routine folgende Ausgabe:

Number	Red	Green	Blue
0	255	255	255
1	0	0	255
2	0	255	0
3	255	0	0
4	255	255	0
5	255	0	255
6	255	127	0
7	0	255	255
8	64	64	64
9	192	192	192
10	254	0	96
11	160	224	0
12	0	254	160
13	128	0	160
14	176	176	176
15	0	240	240
16	240	240	240
17	0	0	240
18	0	240	0
19	240	0	0
20	240	240	0
21	240	0	240
22	240	122	0
23	0	240	240
24	240	240	240
25	0	0	240
26	0	240	0
27	240	0	0
28	240	240	0
29	240	0	240
30	240	122	0
31	0	225	225
32	225	225	225
33	0	0	225
34	0	225	0
35	225	0	0
36	225	225	0
37	225	0	225
38	225	117	0
39	0	225	225
40	225	225	225
41	0	0	225
42	0	225	0
43	225	0	0
44	225	225	0
45	225	0	225
46	225	117	0
47	0	210	210
48	210	210	210
49	0	0	210
50	0	210	0
51	210	0	0
52	210	210	0
53	210	0	210
54	210	112	0
55	0	210	210
56	210	210	210
57	0	0	210
58	0	210	0
59	210	0	0
60	210	210	0
61	210	0	210
62	210	112	0
63	0	195	195
64	195	195	195
65	0	0	195
66	0	195	0
67	195	0	0
68	195	195	0
69	195	0	195
70	195	107	0
71	0	195	195
72	195	195	195
73	0	0	195
74	0	195	0
75	195	0	0
76	195	195	0
77	195	0	195
78	195	107	0
79	0	180	180
80	180	180	180
81	0	0	180
82	0	180	0
83	180	0	0
84	180	180	0
85	180	0	180
86	180	102	0
87	0	180	180
88	180	180	180
89	0	0	180
90	0	180	0
91	180	0	0
92	180	180	0
93	180	0	180
94	180	102	0
95	0	165	165
96	165	165	165
97	0	0	165
98	0	165	0
99	165	0	0
100	165	165	0
101	165	0	165
102	165	97	0
103	0	165	165
104	165	165	165
105	0	0	165
106	0	165	0
107	165	0	0
108	165	165	0
109	165	0	165
110	165	97	0
111	0	150	150
112	150	150	150
113	0	0	150
114	0	150	0
115	150	0	0
116	150	150	0
117	150	0	150
118	150	92	0
119	0	150	150
120	150	150	150
121	0	0	150
122	0	150	0
123	150	0	0
124	150	150	0
125	150	0	150
126	150	92	0
127	0	135	135
128	135	135	135
129	0	0	135
130	0	135	0
131	135	0	0
132	135	135	0
133	135	0	135
134	135	87	0
135	0	135	135
136	135	135	135
137	0	0	135
138	0	135	0
139	135	0	0
140	135	135	0
141	135	0	135
142	135	87	0
143	0	120	120
144	120	120	120
145	0	0	120
146	0	120	0
147	120	0	0
148	120	120	0
149	120	0	120
150	120	82	0
151	0	120	120
152	120	120	120
153	0	0	120
154	0	120	0
155	120	0	0
156	120	120	0
157	120	0	120
158	120	82	0
159	0	105	105
160	105	105	105
161	0	0	105
162	0	105	0
163	105	0	0
164	105	105	0
165	105	0	105
166	105	77	0
167	0	105	105
168	105	105	105
169	0	0	105
170	0	105	0
171	105	0	0
172	105	105	0
173	105	0	105
174	105	77	0
175	0	90	90
176	90	90	90
177	0	0	90
178	0	90	0
179	90	0	0
180	90	90	0
181	90	0	90
182	90	72	0
183	0	90	90
184	90	90	90
185	0	0	90
186	0	90	0
187	90	0	0
188	90	90	0
189	90	0	90
190	90	72	0
191	0	75	75
192	75	75	75
193	0	0	75
194	0	75	0
195	75	0	0
196	75	75	0
197	75	0	75
198	75	67	0
199	0	75	75
200	75	75	75
201	0	0	75
202	0	75	0
203	75	0	0
204	75	75	0
205	75	0	75
206	75	67	0
207	0	60	60
208	60	60	60
209	0	0	60
210	0	60	0
211	60	0	0
212	60	60	0
213	60	0	60
214	60	62	0
215	0	60	60
216	60	60	60
217	0	0	60
218	0	60	0
219	60	0	0
220	60	60	0
221	60	0	60
222	60	62	0
223	0	45	45
224	45	45	45
225	0	0	45
226	0	45	0
227	45	0	0
228	45	45	0
229	45	0	45
230	45	57	0
231	0	45	45
232	45	45	45
233	0	0	45
234	0	45	0
235	45	0	0
236	45	45	0
237	45	0	45
238	45	57	0
239	0	30	30
240	30	30	30
241	0	0	30
242	0	30	0
243	30	0	0
244	30	30	0
245	30	0	30
246	30	52	0
247	0	30	30
248	30	30	30
249	0	0	30
250	0	30	0
251	30	0	0
252	30	30	0
253	30	0	30
254	192	192	192
BG	0	0	0

Sehen Sie hierzu auch