POST
|
Does anyone know of a way to let a user use the walk tool but be confined to a set path like a trail or road? Thanks, David
... View more
02-12-2013
06:16 AM
|
0
|
0
|
518
|
POST
|
How do I paste a picture of the side of a building onto to the side of a 3D building in ArcScene 10.0? I am having trouble finding documentation on how to do this. Thanks for your help. David Kelly
... View more
10-31-2012
06:44 AM
|
0
|
0
|
2615
|
POST
|
David, I don't write in VB.Net, so I cannot provide exact syntax, but it does not appear that the point objects are ever "new"'ed in the sample code included in your post. In other words, before attempting to assign the X and Y coordinate values, it will be necessary to create an instance of the point object that is to be referenced through its IPoint interface. I'm confident there are samples in the ArcObjects developer help that will show VB.Net coding examples on how to "new" a new instance of a point object. I hope this information is of use. Scott Thank you Scott you were right, by creating a new point I was able to get it to work.
... View more
09-03-2012
05:10 AM
|
0
|
0
|
2141
|
POST
|
I am converting vba code to run in VB.net in ArcGIS 10. The code is supposed to read a text file of coordinates, creates points with the X,Y coordinates. When the code tries to set the value of x to pPoint(i).X, the code crashes. x and y both have the correct double values(coordinates). Any body have an idea what I am doing wrong? Dim pointColl As IPointCollection4 = New Polygon Dim pPoint() As IPoint Dim i As Long = 10000 ReDim pPoint(0 To CInt(i - 1)) i = 0 noCats = 1 'Read coords into points Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(VSTabTextFile) MyReader.TextFieldType = FileIO.FieldType.Delimited MyReader.SetDelimiters(",") Dim currentRow As String() currentRow = MyReader.ReadFields() currentRow = MyReader.ReadFields() testPM = Convert.ToDouble(currentRow(0)) PM = Convert.ToDouble(currentRow(0)) While Not MyReader.EndOfData If testPM = PM Then PM = Convert.ToDouble(currentRow(0)) x = Convert.ToDouble(currentRow(1)) y = Convert.ToDouble(currentRow(2)) pPoint(i).X = x pPoint(i).Y = y pointColl.AddPoint(pPoint) i = i + 1 currentRow = MyReader.ReadFields()a polygon. end while
... View more
09-02-2012
09:35 AM
|
0
|
2
|
12383
|
POST
|
Chris/Jennifer, I included some screenshots. The map service using Server 10 was created from a single layer with a relate to a table. Does something else have to be done before I can use the relate feature service the way it is used in the query relate sample on the website? It looks to me like there is not a relationship ID. David
... View more
08-29-2011
01:59 PM
|
0
|
0
|
1028
|
POST
|
Chris/Jennifer, It turns out the company has Server 10 running on one of its other servers so I was able to get the map service published using Server 10. I still get the same error message. Any idea was is causing it. Thanks, David
... View more
08-29-2011
12:56 PM
|
0
|
0
|
1028
|
POST
|
I am using ArcGIS 9.3.x server. The company has not upgraded to 10. So I will not be able to do this until I can have access to ArcGIS server 10? David
... View more
08-26-2011
05:53 PM
|
0
|
0
|
1028
|
POST
|
Jennifer, Thank you for your help. I tried the code you sent and still did not get an value for the id. Is it possible that there is something wrong with the map service. The map service was made from a single feature layer in ArcMap 9.3.1 with a relate that works to a table in a file geodatabase. The map service displays correctly. When the user clicks on one of the polygon features the form pops up with the correct fields and the expected value for the polygon that was clicked on. When I click on that value I get an error message about cannot have a null value. Below is the section of code where the error occurs: //Relationship query RelationshipParameter relationshipParameters = new RelationshipParameter() { ObjectIds = new int[] { Convert.ToInt32(g.Attributes[v_GIS_OPPTY_DETAIL.Tag as string]) }, OutFields = new string[] { "OPPTY_NAME, STAGE_DESC_TEXT, IHS_COUNTRY_NAME, HESS_BASIN_ID, FIRST_NAME_TEXT,LAST_NAME_TEXT " }, RelationshipId = 0, OutSpatialReference = MyMap.SpatialReference }; queryTask.ExecuteRelationshipQueryAsync(relationshipParameters); Any additional help is appreciated. David Kelly
... View more
08-26-2011
04:27 AM
|
0
|
0
|
1028
|
POST
|
I am new to Silverlight. I am trying to convert the live sample in the ArcGIS API for Silverlight to run with my data. The sample I am using is the related records sample. I need to have the relationship ID, it says to find it in the sertvice directory. What does that mean? How Thanks for your help, David
... View more
08-24-2011
10:51 AM
|
0
|
13
|
5556
|
POST
|
No, you should be fine. All those functions will use interfaces and objects but you wont need to Implement an interface (keyword) to do so. This could be done through an add-in command button. Thank you Sean. The application I want to convert is written completely in VBA; it sounds like I should be able to convert the whole thing to an add-in. Thank you for your help. David Kelly
... View more
06-17-2011
04:47 AM
|
0
|
0
|
233
|
POST
|
You cant implement an interface in an add-in or specify a component category so any customization that requires those such as custom features or custom renders must be written as COM components. So if I want to read a table containing Lat/Long fields in an mdb file, create an XY event layer out of it in ArcMap, and display the points using categories where I specify the breakpoints, and the color of each class then I cannot use an add-in. Is that correct? Thanks, David Kelly
... View more
06-16-2011
11:52 AM
|
0
|
0
|
233
|
POST
|
I was considering converting my vba code to an add-in but I just read you cannot write a custom renderer, a custom workspace or a custom feature using an add-in. What exactly does that mean? Most of my menu items perform custom processes and I build custom renderers on the fly. So I will not be able to build the custom renderer part; I guess I am not sure what they mean by custom workspace and custom features. Anybody understand this or can point me to further documentation. Thanks, David Kelly
... View more
06-16-2011
08:35 AM
|
0
|
5
|
375
|
POST
|
Below is the code I am using. It reads a sorted table in an access database to get the values to be rendered and the RGB values for their colors. I am having trouble setting the label values for each value rendered. The label values are stored in a field in the table. Any help would be appreciated. Thanks, David Kelly Private Sub standardCats(SomeLayer As IGeoFeatureLayer) On Error GoTo Errorhandler Dim pUVRenderer As IUniqueValueRenderer Set pUVRenderer = New UniqueValueRenderer pUVRenderer.FieldCount = 1 pUVRenderer.Field(0) = "PM" Dim pFLayer As IFeatureLayer, pFClass As IFeatureClass Set pFLayer = SomeLayer Set pFClass = pFLayer.FeatureClass Dim pFCursor As IFeatureCursor Set pFCursor = pFClass.Search(Nothing, False) Dim pfeature As IFeature, pSym As ISimpleFillSymbol Set pfeature = pFCursor.NextFeature Dim pColor As IRgbColor Set pColor = New RgbColor Dim pVsTable As ITable Dim pVsCursor As ICursor Dim pRow As IRow Dim PM As Long Dim pDoc As IMxDocument Set pDoc = ThisDocument Dim Trans As Integer Dim pFeatws As IFeatureWorkspace Dim pTables As IStandaloneTableCollection Dim pTable As ITable Dim pFact As IWorkspaceFactory Dim pWorkSpace As IWorkspace Set pFact = New AccessWorkspaceFactory Set pWorkSpace = pFact.OpenFromFile("C:\SmokeTools\VSmoke\Vsmoke.mdb", 0) Set pFeatws = pWorkSpace Set pTable = pFeatws.OpenTable("Cat_AQI_PM_Hourly") Dim pStTab As IStandaloneTable Set pStTab = New StandaloneTable Set pStTab.Table = pTable Dim pCursor As ICursor Dim OldValue As Double Dim pTabCursor As ICursor Dim LabelCount As Integer Dim x As String LabelCount = 1 Set pTabCursor = pStTab.Table.Search(Nothing, False) Set pRow = pTabCursor.NextRow Do Until pfeature Is Nothing PM = pfeature.Value(pFClass.FindField("PM")) OldValue = 0 While Not pRow Is Nothing If PM > OldValue And PM <= pRow.Value(1) Then Set pSym = New SimpleFillSymbol pColor.RGB = RGB(pRow.Value(3), pRow.Value(4), pRow.Value(5)) pSym.Color = pColor pUVRenderer.AddValue _ pfeature.Value(pFClass.FindField("PM")), "PM", pSym 'pUVRenderer.label(0) = pRow.Value(2) Trans = pRow.Value(6) End If OldValue = pRow.Value(1) LabelCount = LabelCount + 1 Set pRow = pTabCursor.NextRow Wend Set pTabCursor = Nothing Set pTabCursor = pStTab.Table.Search(Nothing, False) Set pRow = pTabCursor.NextRow Set pfeature = pFCursor.NextFeature Loop If TypeOf SomeLayer Is ILayerEffects Then Dim pLayerEffects As ILayerEffects Set pLayerEffects = SomeLayer pLayerEffects.Transparency = Trans End If Set SomeLayer.Renderer = pUVRenderer '** Refresh the TOC pDoc.ActiveView.ContentsChanged pDoc.UpdateContents '** Draw the map pDoc.ActiveView.Refresh Exit Sub Errorhandler: MsgBox "Error in UniqueValueRenderer" End Sub
... View more
02-17-2011
01:55 AM
|
0
|
0
|
119
|
POST
|
I have code that sets the colors for features using a unique renderer. How do I set a description for each unique rederer in the legend? If anyone has any examples or can point me toward one I would appreciate it. Thanks for your help. David Kelly
... View more
02-06-2011
11:59 AM
|
0
|
1
|
695
|
Online Status |
Offline
|
Date Last Visited |
11-11-2020
02:24 AM
|