ZWCAD SHP文件

   _
        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