I got a little help, this is what I have but it draw one long line
how can I end each Polyline
<CommandMethod("XY")> _
Public Sub readxy()
Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
Dim acBlkTbl As BlockTable
acBlkTbl = CType(acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead), BlockTable)
Dim acBlkTblRec As BlockTableRecord
acBlkTblRec = CType(acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite), BlockTableRecord)
Dim shapeActual As FeatureSet = FeatureSet.Open("PATH\FILE.shp")
shapeActual.FillAttributes()
Dim dt As System.Data.DataTable = shapeActual.DataTable
Dim pline As Polyline = New Polyline()
pline.SetDatabaseDefaults()
For count As Integer = 0 To shapeActual.Features.Count - 1
For Each feature As IFeature In shapeActual.Features 'circle through the features
For i As Integer = 0 To feature.BasicGeometry.NumGeometries - 1 'circle through the parts of one feature
For Each coord As Coordinate In feature.BasicGeometry.GetBasicGeometryN(i).Coordinates() 'circle through the coordinates of the feature part
Dim AdresX = coord.X
Dim AdresY = coord.Y
pline.AddVertexAt(count, New Point2d(coord.X, (coord.Y + 1)), 0.0, 0.0, 0.0)
count = count + 1
ed.WriteMessage(vbCr & count)
ed.WriteMessage(vbCr & feature.FeatureType.ToString)
Next
Next
Next
Next
acBlkTblRec.AppendEntity(pline)
acTrans.AddNewlyCreatedDBObject(pline, True)
acTrans.Commit()
End Using
End Sub