I use the ModelBuilder to run my model and I have question
Sub M()' Create the Geoprocessor objectDim gp As ObjectSet gp = CreateObject("esriGeoprocessing.GPDispatch.1")' Check out any necessary licensesgp.CheckOutExtension "spatial"' Load required toolboxes...gp.AddToolbox "C:/Program Files/ArcGIS/ArcToolbox/Toolboxes/Spatial Analyst Tools.tbx"gp.AddToolbox "C:/Program Files/ArcGIS/ArcToolbox/Toolboxes/Conversion Tools.tbx"gp.AddToolbox "C:/Program Files/ArcGIS/ArcToolbox/Toolboxes/Data Management Tools.tbx"' Local variables...Dim Output_Features As StringDim Output_point_features As StringDim Layer_Name_or_Table_View As StringDim Kriging_poin3 As StringDim Output_variance_of_prediction_raster As StringDim dbtexts_mdb As StringDim ws As StringDim dbtexts_mdb__2_ As StringOutput_Features = "C:\temp2\RasterT_Kriging1.shp"Output_point_features = "C:\temp2\RasterT_Kriging1.shp"Layer_Name_or_Table_View = "ws_Layer"Kriging_poin3 = "C:\temp2\kriging_poin3"Output_variance_of_prediction_raster = ""dbtexts_mdb = "C:\dbtexts.mdb"ws = "C:\dbtexts.mdb\ws"dbtexts_mdb__2_ = "C:\dbtexts.mdb"' Process: Make XY Event Layer...gp.MakeXYEventLayer_management ws, "x", "y", Layer_Name_or_Table_View, ""' Process: Kriging...gp.Kriging_sa Layer_Name_or_Table_View, "data", Kriging_poin3, "Spherical 249.101224", "250", "VARIABLE 12", Output_variance_of_prediction_raster' Process: Raster to Point...gp.RasterToPoint_conversion Kriging_poin3, Output_point_features, "Value"' Process: Add XY Coordinates...gp.AddXY_management Output_point_features' Process: Table to Geodatabase (multiple)...gp.TableToGeodatabase_conversion "C:\temp2\RasterT_Kriging1.shp", dbtexts_mdb__2_End Subin the sub I have parameters but I want it to run with the data I have
can I just like VB give it a do loop and make it run itself?
أكثر...
Sub M()' Create the Geoprocessor objectDim gp As ObjectSet gp = CreateObject("esriGeoprocessing.GPDispatch.1")' Check out any necessary licensesgp.CheckOutExtension "spatial"' Load required toolboxes...gp.AddToolbox "C:/Program Files/ArcGIS/ArcToolbox/Toolboxes/Spatial Analyst Tools.tbx"gp.AddToolbox "C:/Program Files/ArcGIS/ArcToolbox/Toolboxes/Conversion Tools.tbx"gp.AddToolbox "C:/Program Files/ArcGIS/ArcToolbox/Toolboxes/Data Management Tools.tbx"' Local variables...Dim Output_Features As StringDim Output_point_features As StringDim Layer_Name_or_Table_View As StringDim Kriging_poin3 As StringDim Output_variance_of_prediction_raster As StringDim dbtexts_mdb As StringDim ws As StringDim dbtexts_mdb__2_ As StringOutput_Features = "C:\temp2\RasterT_Kriging1.shp"Output_point_features = "C:\temp2\RasterT_Kriging1.shp"Layer_Name_or_Table_View = "ws_Layer"Kriging_poin3 = "C:\temp2\kriging_poin3"Output_variance_of_prediction_raster = ""dbtexts_mdb = "C:\dbtexts.mdb"ws = "C:\dbtexts.mdb\ws"dbtexts_mdb__2_ = "C:\dbtexts.mdb"' Process: Make XY Event Layer...gp.MakeXYEventLayer_management ws, "x", "y", Layer_Name_or_Table_View, ""' Process: Kriging...gp.Kriging_sa Layer_Name_or_Table_View, "data", Kriging_poin3, "Spherical 249.101224", "250", "VARIABLE 12", Output_variance_of_prediction_raster' Process: Raster to Point...gp.RasterToPoint_conversion Kriging_poin3, Output_point_features, "Value"' Process: Add XY Coordinates...gp.AddXY_management Output_point_features' Process: Table to Geodatabase (multiple)...gp.TableToGeodatabase_conversion "C:\temp2\RasterT_Kriging1.shp", dbtexts_mdb__2_End Subin the sub I have parameters but I want it to run with the data I have
can I just like VB give it a do loop and make it run itself?
أكثر...