GeomarketingForum.com
September 05, 2010, 10:31:33 *
Willkommen Gast. Bitte einloggen oder registrieren.
Haben Sie Ihre Aktivierungs E-Mail übersehen?

Einloggen mit Benutzername, Passwort und Sitzungslänge
News: Jetzt beim GeoMarketingforum.com registrieren ...
Denn nur wer mitmacht, ist "eigentlich" INFORMIERT !
 
   Übersicht   Hilfe Suche Kalender Login Registrieren  
GeomarketingForum.com > VBA Programmierung mit RegioGraph / DISTRICT 5.0-8.0 > Beispiele Code (Samples) > Diskussion zum Datenimport (Excel) Makro (VBA-Hilfe)
Seiten: 1 [2]
« vorheriges nächstes »
  Drucken  
Autor Thema: Diskussion zum Datenimport (Excel) Makro (VBA-Hilfe)  (Gelesen 6828 mal)
SiRo
Newbie
*
Beiträge: 39


174263400
Profil anzeigen
« Antwort #15 am: April 16, 2009, 10:17:59 »
Ok Straßengenau wollte ich es auch nicht haben,
doch mit dem zufalspunkt setzte er mir noch nicht mal in die nähe des gebiets wo ich es brauche
z.B.:
 PLZ 99867
Name:      Gotha
Bundesland: Thüringen

der Punkt war bei mir aber in Köln ...

Doch der einwand das dann mehrere übereinander liegen ...... (das ist auch nicht der Sinn der Sache)
« Letzte Änderung: April 16, 2009, 10:20:03 von SiRo » Gespeichert
Nobody is perfect but Nobody is perfect
SiRo
Newbie
*
Beiträge: 39


174263400
Profil anzeigen
« Antwort #16 am: April 16, 2009, 10:29:41 »
Ok ich hab ne Lösung gefunden
Zitat
Dim cp as cpoint
Dim clay as rgLayer
Dim lObjectIndex AS Long
.....
Set clay = project.SearchLayerByName("Deutschland PLZ(5)-Geb. 2004")
lObjectIndex = abgleichLayer.FindValue(0, "99867")
und anstadt
Zitat
Set cp = clay.GetRandomPoint(1)
den gefundenen Logn wert einsetzen
Zitat
Set cp = clay.GetRandomPoint(lObjectIndex)
claynew.InsertGeoPoint cp.X, cp.Y



Nun wenn ich die Punkte habe kann ich auch werte setzen

Was muss ich beachten wenn ich aber einen Symbol Setze speziell was die farbe angeht
« Letzte Änderung: April 16, 2009, 10:33:40 von SiRo » Gespeichert
Nobody is perfect but Nobody is perfect
paff
Administrator
Hero Member
*****
Beiträge: 820


439627146
Profil anzeigen WWW
« Antwort #17 am: April 16, 2009, 11:14:10 »
getobjectbrush

auslesen

setzen
wieder einlesen
Gespeichert
Follow RegioGraph on Twitter
http://twitter.com/regiograph
SiRo
Newbie
*
Beiträge: 39


174263400
Profil anzeigen
« Antwort #18 am: April 16, 2009, 11:48:11 »
Ok die Farb setzung ist etwas knifflig doch ich komm gar nicht erst dazu:
Zitat
Dim layImport As rgLayer
Set layImport = project.SearchLayerByName("Punkte")

lObjectIndex = abgleichLayer.FindValue(0, "99867")
Set cp = abgleichLayer.GetRandomPoint(lObjectIndex)

layImport.InsertSymbol cp.X, cp.Y, 10, 10, 2, "C:\Temp", 14013696 <---- "Laufzeitfehler 'Layertype not valid for this Operation'"
Wie kann das seien?

Es ist ein Punkte / Symbol Layer und dann diese Fehlermeldung wenn ich versuche ein Symbol zu setzen
Gespeichert
Nobody is perfect but Nobody is perfect
paff
Administrator
Hero Member
*****
Beiträge: 820


439627146
Profil anzeigen WWW
« Antwort #19 am: April 16, 2009, 11:53:20 »
InsertSymbol

Function InsertSymbol (Left As Long, Top As Long, Width As Long, Height As Long, ResourceNumber As Long, FileName As String, Color As Long) As Long

Beschreibung
Fügt ein Symbol in einen Objektlayer ein.
Gespeichert
Follow RegioGraph on Twitter
http://twitter.com/regiograph
paff
Administrator
Hero Member
*****
Beiträge: 820


439627146
Profil anzeigen WWW
« Antwort #20 am: April 16, 2009, 11:55:05 »
Stats alle Objekte einzeln zu formatierne benutze lieber eine Einfärbung
Die Beispielcodes gibts in der VBA Hilfe
Gespeichert
Follow RegioGraph on Twitter
http://twitter.com/regiograph
SiRo
Newbie
*
Beiträge: 39


174263400
Profil anzeigen
« Antwort #21 am: April 16, 2009, 12:49:02 »
Jepp wieder mal das Problem mit dem lesen  Embarrassed
Hmm,  Undecided
Das mit dem Einfärben ist eine gute Lösung um ausendienst mitarbeiter gebiete zu Markieren,
allerdings es es etwas schwieriger um einfach mal die Kunden aufzulisten,
zudem Kommt noch die vorgabe das z.B. Kunden mit mehr als 2000€ Umsatz ein fänchen bekommen und kunden bis 5000€ eine Kruz und beide werden blau dargestellt
das war der sinn der Sache.  Undecided

und da es mit dem einlesesn sovieso jeden einzelnen datensatz betrifft wäre es praktisch dies wärend der Punkte setzung zu realesieren.
Gespeichert
Nobody is perfect but Nobody is perfect
paff
Administrator
Hero Member
*****
Beiträge: 820


439627146
Profil anzeigen WWW
« Antwort #22 am: April 16, 2009, 01:08:49 »
Nochmal, nutze eine Einfärbung

Die ist genau dafür gedacht <2000 so fomatiert
< 50000 so formartiert

Wenns doch anders soll,

zum setzen von Formatierungen
im Get/SetObjectBrush , Get/SetObjectSymbol usw. benutzen

Immer das Objekt mit Get auslesen
Parameter setzen im Brush-Objekt setzen
Dann wieder mit Set Setzen
Gespeichert
Follow RegioGraph on Twitter
http://twitter.com/regiograph
SiRo
Newbie
*
Beiträge: 39


174263400
Profil anzeigen
« Antwort #23 am: April 17, 2009, 09:58:39 »
Hallo,
die Funktion getObjectBrush ist aber nur aufs Layout anzuwenden und nicht auf das/den Objekt/Punkt vom Layer.   Cry
oder wie komm ich sonst dadran?
Gespeichert
Nobody is perfect but Nobody is perfect
paff
Administrator
Hero Member
*****
Beiträge: 820


439627146
Profil anzeigen WWW
« Antwort #24 am: April 17, 2009, 11:21:21 »
Und auf zur nächsten Stufe der Erkenntnis Smiley

Es gibt sogenannte maplayer
dieser ist für alle "graphischen" Einfärbungen eines Layers zuständig

Also im layer sind alle sachen die die Tabelle betreffen abgelegt

Im Maplayer sind alle graphische Attribute die man mit einem Layer in einer Mapping Box tun kann
Punkte umfärben usw.

Also auf dem Maplayer GetObjectBrush aufrufen

An den Maplayer kommst du z.B. mit Activemap.worklayer
Dies wäre der aktuelle Arbeitslayer in einer Aktivierten Mappingbox

Oder du benutzt die MapLayers Auflistung einer Map
(Achtung hier beginnt die Zählung glaube ich bei 1 und nicht bei 0)
Gespeichert
Follow RegioGraph on Twitter
http://twitter.com/regiograph
SiRo
Newbie
*
Beiträge: 39


174263400
Profil anzeigen
« Antwort #25 am: April 17, 2009, 12:33:32 »
Ok,
Vielen Dank das erklärt einiges:
Zitat
Es gibt sogenannte maplayer
dieser ist für alle "graphischen" Einfärbungen eines Layers zuständig

Also im layer sind alle sachen die die Tabelle betreffen abgelegt

Im Maplayer sind alle graphische Attribute die man mit einem Layer in einer Mapping Box tun kann
Punkte umfärben usw.

Also auf dem Maplayer GetObjectBrush aufrufen

An den Maplayer kommst du z.B. mit Activemap.worklayer
Dies wäre der aktuelle Arbeitslayer in einer Aktivierten Mappingbox
Gespeichert
Nobody is perfect but Nobody is perfect
Seiten: 1 [2]
  Drucken  
« vorheriges nächstes »
 
Gehe zu:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.11 | SMF © 2006-2007, Simple Machines LLC Prüfe XHTML 1.0 Prüfe CSS