RGB codes

Gespeichert von Holger80 am
im Forum ArcGIS
Hi zusammen!

mein problem: ich hab nen layer mit 180 klassen. jeder soll mit nem rgb code eingefärbt werden. ich weiß wie das manuell geht, da werd ich aber bescheuert :-) gleichzeitg hab ich ne tabelle wo für jedes shape der rgb code drinsteht. kann man das über die tabelle automatisiert einfärben?

danke!!!!!

Gespeichert von juergen65 am Do., 21.06.2007 - 17:31

Permalink
hi,

ich weiß zwar nicht was das für ne tabelle ist, aber du kannst sie doch bestimmt in eine dbf umwandeln und dann mit dem dbf deines layers verknüpfen - wenn eine eindeutige zuordnungsid besteht.

Gespeichert von Holger80 am Do., 21.06.2007 - 17:45

Permalink
Hi Jürgen!

die info steht schon in der atrributtabelle drin,für jedes polygon ein rgb code, darum gehts also nicht. ich möchte nur über die tabelle die polygone einfärben, sonst muss ich jede klasse anklicken und im rgb editor bestimmen. das würde ewig dauern...und dafür gibts scheinbar keine lösung...

Gespeichert von Maxilla am Do., 21.06.2007 - 17:53

Permalink
Schau dir mal diesen Thread an: colors from Red green blue values. Sieht so aus, als müsstest du vorher nur deine RGBs auf drei Felder verteilen...

Gespeichert von Holger80 am Do., 21.06.2007 - 18:44

Permalink
super danke. leider bekomme ich immer einen "runtime 6 overflow" error. kennt sich jemand mit visual basic aus?

Gespeichert von Maxilla am Fr., 22.06.2007 - 09:22

Permalink
Hast du die RGB-Werte auf drei Integer-Felder mit den Namen (keine Aliasse!) Red, Green und Blue verteilt?

Gespeichert von Holger80 am Fr., 22.06.2007 - 09:33

Permalink
ja hab ich. keine ahnung, vielleicht sinds zuviele polygone?

Gespeichert von Maxilla am Fr., 22.06.2007 - 09:52

Permalink
Hm, ja, kann sein. Hab's mal ausprobiert und über ein kleines Shapefile mit 100 Polys gejagt - funzt einwandfrei...
Wie groß ist denn dein Layer?

Gespeichert von Holger80 am Fr., 22.06.2007 - 10:38

Permalink
ja es sind leider an die 40000 polygone. ggf. hat jemand ne idee wie man in den code was einbaut, das VB das häppchenweise berechnen lässt? Ich bin leider kein VB Experte...

Gespeichert von Maxilla am Fr., 22.06.2007 - 11:04

Permalink
Kannst du mal ausprobieren, die Zeile Do Until i = n durch Do Until i = 100 zu ersetzen?

Gespeichert von Maxilla am Fr., 22.06.2007 - 11:12

Permalink
Oder vielleicht noch besser: Ein Shapefile erzeugen, in dem jede deiner Klassen einmal auftaucht (also 180 Polys), das Skript drüberlaufen lassen und die erzeugte Symbologie dann auf den Gesamtlayer übertragen...

Gespeichert von Holger80 am Fr., 22.06.2007 - 12:11

Permalink
ich habs hinbekommen:

Dim n As Integer
n = pFeatClass.FeatureCount(pQueryFilter)
Dim i As Integer
i = 0

muss geändert werden in


Dim n As Long
n = pFeatClass.FeatureCount(pQueryFilter)
Dim i As Long
i = 0

Jetzt funzt es. Und wie! Superbunt ists!

Danke Maxilla und schönes Wochenende!