Create ShapeFile with Polyline

Dim nombreShape = "capaPrueba5" Dim nombreCampoShape = "Shape" Dim pFeatCur As IFeatureCursor = Nothing Dim fcShapefile As IFeatureClass = Nothing Try Dim ruta As String = "C:\CJMC" 'Se abre la carpeta que contiene el shapefile como un Workspace Dim pFWS As IFeatureWorkspace Dim pWorkspaceFactory As IWorkspaceFactory 'Se abre... pWorkspaceFactory = New ShapefileWorkspaceFactory() pFWS = pWorkspaceFactory.OpenFromFile(ruta, 0) 'Colección de campos simples Dim pColeccionCampos As IFields Dim pColeccionCamposEdit As IFieldsEdit 'Se instancian... pColeccionCampos = New Fields pColeccionCamposEdit = pColeccionCampos 'Se crea un campo, para campo geométrico. Dim pCampoGeom As IFieldEdit pCampoGeom = New Field pCampoGeom.Name_2 = nombreCampoShape pCampoGeom.Type_2 = esriFieldType.esriFieldTypeGeometry 'Definicion del tipo de geometría etc. para el campo geométrico Dim pGeomDef As IGeometryDefEdit pGeomDef = New GeometryDef With pGeomDef .GeometryType_2 = esriGeometryType.esriGeometryPolyline .SpatialReference_2 = pLine.SpatialReference End With 'Asigno la definicion al campo pCampoGeom.GeometryDef_2 = pGeomDef 'Añado el campo a la coleccion de campos que llevará el shapefile pColeccionCamposEdit.AddField(pCampoGeom) If System.IO.File.Exists(ruta) = True Then 'campos(aux) Es el nombre del campo adicional que va a llevar el Shapefile Dim campoAdicional As IFieldEdit = Nothing campoAdicional = New Field() campoAdicional.Name_2 = "prueba" campoAdicional.Type_2 = esriFieldType.esriFieldTypeString campoAdicional.Length_2 = 50 pColeccionCamposEdit.AddField(campoAdicional) End If fcShapefile = pFWS.CreateFeatureClass(nombreShape, pColeccionCampos, Nothing, Nothing, esriFeatureType.esriFTSimple, nombreCampoShape, "") 'Inicializo el cursor de insercion pFeatCur = fcShapefile.Insert(True) 'Bucle sobre líneas del fichero. Mientras haya línea avanzo. Dim pFeatBuf As IFeatureBuffer pFeatBuf = fcShapefile.CreateFeatureBuffer 'Meto la línea en el Shape si tiene punto If Not pLine Is Nothing Then Dim posicion As Integer pFeatBuf.Shape = pLine 'Inserto el elemento en el cursor pFeatCur.InsertFeature(pFeatBuf) End If pFeatBuf = Nothing pFeatCur.Flush() Catch ex As Exception Finally End Try Carlos Javier Martín Cano

Interchange Language

Celebra con eventun los mejore momentos de tu vida Si quieres practicar Ingles con nativos en Sevilla, no lo dudes acude a la pincelada Practice Spanish language with native people in Seville, please go to La pincelada Plazas limitadas / limited places Confirma tu asistencia al evento por Facebook If you can attend, please RSVP via this event http://www.eventun.com Carlos Javier Martín Cano

Despedidas solteras Sevilla

Qué fin de semana se nos presenta en

http://www.eventun.com

No te lo pierdas, visíta nuestra web Despedida de soltera sevilla, despedidas de solteras sevilla Carlos Javier Martín Cano

Create shapefile

Private Sub createShape(ByVal lista As ArrayList)
Try
Dim j As Integer
Dim strFolder As String = "C:\\tmp"
Dim strShapeFieldName As String = "Shape"
Dim pWorkspaceFactory As ShapefileWorkspaceFactory = New ShapefileWorkspaceFactoryClass()
Dim pFWS As IFeatureWorkspace = pWorkspaceFactory.OpenFromFile(strFolder, 0)

Dim pFields As IFields = New FieldsClass()
Dim pFieldsEdit As IFieldsEdit = pFields
Dim pField As IField = New FieldClass()
Dim pFieldEdit As IFieldEdit = pField
pFieldEdit.Name_2 = strShapeFieldName
pFieldEdit.Type_2 = esriFieldType.esriFieldTypeGeometry


Dim pGeomDef As IGeometryDef = New GeometryDefClass()
Dim pGeomDefEdit As IGeometryDefEdit = pGeomDef
pGeomDefEdit.GeometryType_2 = esriGeometryType.esriGeometryPolyline
pFieldEdit.GeometryDef_2 = pGeomDef

pFieldsEdit.AddField(pField)



Dim pFeatClass As IFeatureClass = pFWS.CreateFeatureClass("asd", pFields, Nothing, Nothing, esriFeatureType.esriFTSimple, strShapeFieldName, "")
For j = 0 To lista.Count - 1


Dim fb As IFeatureBuffer = pFeatClass.CreateFeatureBuffer()
Dim Feature As IFeature = pFeatClass.CreateFeature()
Dim FeatureCursor As IFeatureCursor = pFeatClass.Insert(True)

fb.Shape = lista(j)
FeatureCursor.InsertFeature(fb)
FeatureCursor.Flush()

Next
Catch ex As Exception
Throw ex
End Try
End Sub Carlos Javier Martín Cano

Despedidas de solteras

Comienza una nueva temporada, desde eventun os deamos que paséis un dia inolvidable
en la celebración de vuestra despedida de soltera en sevilla,
Para más información, visitar nuestra web:

http://www.eventun.com

Carlos Martin
cjmartin@eventun.com Carlos Javier Martín Cano

Eventun S.L, Despedida de soltera

Organización de eventos en Sevilla, bodas, despedidas de soltera, cenas de empresa
Actividad: Eventos en Sevilla

http://www.eventun.com

Organización de evento en Sevilla, bodas, despedidas de soltera,despedida de soltera,despedidas sevilla, cenas de empresa, aniversarios matrimoniales, cotillones fin de año, cenas de navidad
Productos y Marcas: Si quieres ahorrar tiempo, dinero y problemas en la planificación de sus eventos (bodas, despedidas de soltera, cenas de empresa, fiestas), debe dejar que nosotros hagamos el trabajo por usted. No hay necesidad de que la noche termine de pie esperando una larga cola de alguna discoteca Sevillana. Tenemos los mejores contactos en todas las discotecas de moda de la ciudad. Carlos Javier Martín Cano