Finally, I made the code.
But, Error occured.
How in the world,should I repair the following code?
It's too difficult to get correct code. Help me,plz.
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Geometry
Public Class GILSclass1
_
Public Sub Create3dPoly()
Dim pts As Point3dCollection = New Point3dCollection
Dim my3dpoly As Polyline3d = New Polyline3d(Poly3dType.SimplePoly, pts, False)
Dim ptsArr As Double() = {0, 0, 0, 10, 10, 10, 0, 10, 10}
Dim i As Integer = 0
While i < ptsArr.Length
pts.Add(New Point3d(ptsArr(i), ptsArr(i + 1), ptsArr(i + 2)))
i = i + 3
End While
Draw3dPoly(my3dPoly)
End Sub
Friend Function Draw3dPoly(ByVal my3dPoly As Polyline3d) As ObjectId
Dim db As Database = HostApplicationServices.WorkingDatabase
Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
Dim transMgr As Autodesk.AutoCAD.DatabaseServices.TransactionManager = db.TransactionManager
Dim trans As Transaction = transMgr.StartTransaction
Try
Dim btr As BlockTableRecord = CType(trans.GetObject(db.CurrentSpaceId, OpenMode.ForWrite), BlockTableRecord)
btr.AppendEntity(my3dPoly)
trans.AddNewlyCreatedDBObject(my3dPoly, True)
trans.Commit()
Catch ex As Autodesk.AutoCAD.Runtime.Exception
ed.WriteMessage("Error Message: " + ex.Message)
Finally
If Not (my3dPoly Is Nothing) Then
my3dPoly.Dispose()
End If
End Try
Return my3dPoly.ObjectId
End Function
End Class
