Visual Basic - CREAR FORMATO SHAPE (*.SHP)

Life is soft - evento anual de software empresarial
 
Vista:

CREAR FORMATO SHAPE (*.SHP)

Publicado por David (1 intervención) el 30/05/2000 00:00:00
Si sabes como crear un fichero "shape" a partir de código en Visual Basic y me lo puedes indicar me ayudarías un montón, si sabes donde hay ejemplos, pues mejor que mejor. Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:CREAR FORMATO SHAPE (*.SHP)

Publicado por M.Pino (50 intervenciones) el 31/05/2000 00:00:00
¿Que es un fichero "shape"?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:CREAR FORMATO SHAPE (*.SHP)

Publicado por M.Pino (50 intervenciones) el 01/06/2000 00:00:00
Es un fichero que almacena formas creadas con Sistemas de Información Geográfica (ARC/INFO, MapInfo,....). Lo que quiero saber es a través de que código Visual Basic se crean esas formas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:CREAR FORMATO SHAPE (*.SHP)

Publicado por aLGUIEN (1 intervención) el 22/11/2007 18:43:38
YO HE ENCONTRADO ESTO, PERO ME TIRA ERROR, SI SABES PROGRAMAR IGUAL LO SOLUCIONAS. SUERT.

Sub CreateNewEmptyPointShapefile(sFolder As Variant, sName As Variant)

' Constants...
Const sShapeFieldName As String = "Shape"

' Open the folder to contain the shapefile as a workspace
Dim pFWS As IFeatureWorkspace
Dim pWorkspaceFactory As IWorkspaceFactory
Set pWorkspaceFactory = New ShapefileWorkspaceFactory
Set pFWS = pWorkspaceFactory.OpenFromFile(sFolder, 0)

' Set up a simple fields collection
Dim pFields As IFields
Dim pFieldsEdit As IFieldsEdit
Set pFields = New Fields
Set pFieldsEdit = pFields
Dim pField As IField
Dim pFieldEdit As IFieldEdit

' Make the shape field
' it will need a geometry definition, with a spatial reference
Set pField = New Field
Set pFieldEdit = pField

pFieldEdit.Name = sShapeFieldName
pFieldEdit.Type = esriFieldTypeGeometry

Dim pGeomDef As IGeometryDef
Dim pGeomDefEdit As IGeometryDefEdit
Set pGeomDef = New GeometryDef
Set pGeomDefEdit = pGeomDef

With pGeomDefEdit
' Creates point shapefile
.GeometryType = esriGeometryPoint
Set .SpatialReference = New UnknownCoordinateSystem
End With

Set pFieldEdit.GeometryDef = pGeomDef
pFieldsEdit.AddField pField

' Add another miscellaneous text field
Set pField = New Field
Set pFieldEdit = pField

With pFieldEdit
.Length = 25
.Name = "sINDEX"
.Type = esriFieldTypeString
End With

pFieldsEdit.AddField pField

' Create the shapefile
Dim pFeatClass As IFeatureClass
Set pFeatClass = pFWS.CreateFeatureClass(sName, pFields, _
Nothing, Nothing, esriFTSimple, sShapeFieldName, "")

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar