Tạo Line AutoCAD từ 1 điểm, khoảng cách và góc bằng VB.Net

Public Sub AddLineDistance(ByVal X, ByVal Y, ByVal Dis, ByVal Goc_Radian)
        Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
        Dim acCurDb As Database = acDoc.Database
        Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
            Dim acBlkTbl As BlockTable
            acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, DatabaseServices.OpenMode.ForRead)

            Dim acBlkTblRec As BlockTableRecord
            acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), DatabaseServices.OpenMode.ForWrite)
            Dim X2 As Double = X + Dis * Math.Cos(Goc_Radian)
            Dim Y2 As Double = Y + Dis * Math.Sin(Goc_Radian)
            Dim acLine As Line = New Line(New Point3d(X, Y, 0), New Point3d(X2, Y2, 0))
            acLine.SetDatabaseDefaults()
            acBlkTblRec.AppendEntity(acLine)
            acTrans.AddNewlyCreatedDBObject(acLine, True)
            acTrans.Commit()
        End Using
    End Sub