How to create point feature from longitude/latitude coordinates using ArcObjects and VB.net?

Question

i Want to add a point feature to my feature class. an i want to enter the coordinates manually.

here is what i am trying to do

 pworkspaceedit = pFeatureWorkspace
 pworkspaceedit.StartEditing(True)
 pworkspaceedit.StartEditOperation()
 Dim point As IPoint = New Point
 Dim geometry As IGeometry
 point.X = 100
 point.Y = 100
 geometry = point
 pfeature = pFeatureClass.CreateFeature()
 pfeature.Shape = geometry
 MsgBox(pFeatureClass.FeatureCount(Nothing))
 pworkspaceedit.StopEditOperation()
 pworkspaceedit.StopEditing(True)

i have searched and the results are for copying from one feature class to another using icursor, creating lines from points, but havent found one for creating a point feature. all suggestions are welcome

there is no error in the code, a new empty feature is also created, but it has no attributes, MsgBox(pFeatureClass.FeatureCount(Nothing)) this i am using to display the no. of features after its created

Answer 1

You're missing one step. You need to store the geometry to write it to the feature class. There are various ways to do this, but the easiest way in your situation is to invoke the IFeature.Store() method. Here's some other stuff:

• I assume your pFeature is an IFeature, but just to be sure we'll explicity declare it.

• From documentation, point X and point Y properties are get/set, so the way you are setting your coordinates looks fine, but just for kicks lets use the method that was designed to set coordinates: IPoint.PutCoords().

• Finally, you should be able to directly store an IPoint in the shape property of IFeature without having to move it to an IGeometry.

Try this:

pworkspaceedit = pFeatureWorkspace
pworkspaceedit.StartEditing(True)
pworkspaceedit.StartEditOperation()
Dim point As IPoint = New Point
point.PutCoords(100, 100)
Dim pfeature As IFeature = pFeatureClass.CreateFeature()
pfeature.Shape = point
feature.Store() 
MsgBox(pFeatureClass.FeatureCount(Nothing))
pworkspaceedit.StopEditOperation()
pworkspaceedit.StopEditing(True)