Latest Contributions by Florianflo

Why does the following scribt not work ? # --------------------------------------------------------------------------- # test.py # Created on: Mi Jun 22 2011 11:23:51 #   (generated by ArcGIS/ModelBuilder) # Usage: test <o_90> <min_row> <max_row> <Zeile> <O> # --------------------------------------------------------------------------- # Import system modules import sys, string, os, arcgisscripting # Create the Geoprocessor object gp = arcgisscripting.create() # gp.SetProduct("ArcInfo") # or ArcEditor or ArcInfo gp.overwriteoutput = 1 # Load required toolboxes... gp.AddToolbox("C:/Program Files/ArcGIS/ArcToolbox/Toolboxes/Data Management Tools.tbx") gp.AddToolbox("C:/Program Files/ET GeoWizards 9.9 Floating/ET GeoWizards.tbx") #script arguments orbit = "D:/f/Cap/tanProblem/output/o_90.lyr" O1_mollw_90 = "o_90" O1_mollw_90_1_Dissolve_shp = "D:/figwer/Capacity/tandem Problem/input/orbit_90_Dissolve.shp" tan_shp = "D:/figwer/Cap/tanProblem/output/new/tan.shp" O1_mollw_90_1_Dissolve_shp__2_ = "D:/f/Cap/tanProblem/input/o_90_Dissolve.shp" #read row of txt file f=open("D:/f/Cap/tanProblem/Test_o1.txt","r") for line in f.readlines():  #in huge file f.xreadlines maybe to use     werte = line.split('\t')# für tab-separate     min_row = werte[4]     max_row = werte[5]     index   = werte[0]     O   = werte[3]     if O == "O":         continue     O = int(O)     min_row = int(min_row)     max_row = int(max_row)     print "min_row=%s, max_row=%s, index=%s, O=%s" % (min_row, max_row, index, O)     Expression = "\"FID\" >= %d+90*(%d-1) AND \"FID\" <= %d+90*(%d-1)" % (min_row, O, max_row, O)     #Expression = "\"FID\" >= %min_row%+90*(%O%-1) AND \"FID\" <= %max_row%+90*(%O%-1)"     Expression_2 = "%index%-3"     # Process: Select Layer By Attribute...,     gp.makefeaturelayer(o, "walk")     gp.SelectLayerByAttribute_management ("walk" , "NEW_SELECTION", Expression) #----------------------------------------------------------------------------------------     #übergabe funktioniert nicht #---------------------------------------------------------------------------------------- # Process: Dissolve...     gp.Dissolve_management("walk", O1_mollw_90_1_Dissolve_shp, "FID", "", "MULTI_PART", "DISSOLVE_LINES") # Process: Calculate Field...     gp.makefeaturelayer(O1_mollw_90_1_Dissolve_shp, "walk2")     gp.CalculateField_management("walk2", "Id", Expression_2, "VB", "") # Process: ET Select And Export...     gp.toolbox = "C:/Program Files/ET GeoWizards 9.9 Floating/ET GeoWizards.tbx";     gp.ET_GPSelectAndExport("walk2", tan_shp, "")    ... View more

HI i will get a value from a table dbf. for this i use the Calulate Value Tool in ArcGis 9.3 I wrote this small pyton tool but it will not work, could somebody help me Minimum("D:/data/program/test3_copy.dbf", "N15","10") def Minimum(inputData, FieldName,row):     import arcgisscripting     gp = arcgisscripting.create()     gpResult = gp.GetCellValue(inputData, FieldName,row)     print gp.AddMessage( str( gpResult.GetOutput(0) )) ... View more

hi I would like to split some lines after x kilometers. This schould work automaticaly, because i have to cut more than 100 Lines in different sections Is there any possibility to split polylines after x kilometers with the modelbuilder? Thanks for your help Flo ... View more

hi i created a VBA Macro in with i calculate a dbf table. now i want by clicking a button that the table open i found this code but it doesn´t work. Private Sub CommandButton3_Click() Dim pDoc As IMxDocument Set pDoc = ThisDocument Dim pMap As IMap Set pMap = pDoc.FocusMap Dim sDir As String, strTableName As String sDir = "D:\file\output\NEWTABLE" strTableName = "T_Test.DBF" Dim pFact As IWorkspaceFactory Set pFact = New ShapefileWorkspaceFactory Dim pWorkspace As IWorkspace Set pWorkspace = pFact.OpenFromFile(sDir, 0) Dim pFeatWs As IFeatureWorkspace Set pFeatWs = pWorkspace Dim pTable As ITable Set pTable = pFeatWs.OpenTable(strTableName) ' Create a new standalone table and add it ' to the collection of the focus map Dim pStTab As IStandaloneTable Set pStTab = New StandaloneTable Set pStTab.Table = pTable Dim pStTabColl As IStandaloneTableCollection Set pStTabColl = pMap pStTabColl.AddStandaloneTable pStTab ' Refresh the TOC pDoc.UpdateContents End Sub before i create the dbf file i used a shape file with the next code i opened the shape file on the same way it should work with the dbf files. Dim pMXDocument As IMxDocument Set pMXDocument = ThisDocument Dim pPfad As String pPfad = "D:\File\output\NEWTABLE" Dim pShapefile As String DBFile = "T_TesT_5" Dim pwFactory As IWorkspaceFactory Set pwFactory = New ShapefileWorkspaceFactory Dim pFeatureWorkspace As IFeatureWorkspace Set pFeatureWorkspace = pwFactory.OpenFromFile(pPfad, 0) Dim pFeatureClass As IFeatureClass Set pFeatureClass = pFeatureWorkspace.OpenFeatureClass(pShapefile) Dim pFeatureLayer As IFeatureLayer Set pFeatureLayer = New FeatureLayer Set pFeatureLayer.FeatureClass = pFeatureClass pFeatureLayer.Name = "o_length" ' Hier wurde ner neue layer bennant pMXDocument.AddLayer pFeatureLayer pMXDocument.ActiveView.Refresh pMXDocument.UpdateContents 'Dim pMXDocument As IMxDocument 'Set pMXDocument = ThisDocument Dim pfLayer As IFeatureLayer Dim pMap As IMap Set pMap = pMXDocument.FocusMap Set pfLayer = pMap.Layer(1) 'pMXDocument.SelectedLayer '############### Dim pFClass As IFeatureClass Set pFClass = pfLayer.FeatureClass Dim pFCursor As IFeatureCursor Set pFCursor = pFClass.Update(Nothing, False) Dim pFeature As IFeature Dim aoiApp As Application Dim aoiDoc As IMxDocument Dim aoiStandAloneTable As IStandaloneTable Dim aoiTwin As ITableWindow Dim aoiTab As IClass Dim aoiUnknown As IUnknown Dim aoiFlayer As IFeatureLayer2 Set aoiApp = Application Set aoiDoc = ThisDocument Set aoiTwin = New TableWindow Set aoiFlayer = pMap.Layer(0) ' aoiDoc.SelectedLayer If aoiFlayer Is Nothing Then MsgBox " Es ist kein Layer ausgewählt" Exit Sub End If Set aoiTab = aoiFlayer If aoiTab Is Nothing Then MsgBox "Auf die Tabelle kann nicht zu gegriffen werden." Exit Sub End If Set aoiTwin.Table = aoiTab Set aoiTwin.Application = aoiApp aoiTwin.Show (True) at the end i want save the file by clicking another button. could somebody help me sorry for my bad english Flo ... View more