title: Drawing a line in VB without using Transaction Class for Autocad
body: <p>I am Drawing a line using transaction class </p>
  
  <pre><code>    Public Sub CreateLine()
      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, OpenMode.ForRead)
          Dim acBlkTblRec As BlockTableRecord
          acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), _
                                          OpenMode.ForWrite)
         procedure(acTrans, acBlkTblRec, 11, 3, 0, 5, 5, 0)
         acTrans.Commit()
      End Using
    End Sub
  Private Sub procedure(ByVal var1 As Transaction, ByVal var2 As BlockTableRecord, ByVal                       x As Double, ByVal y As Double, ByVal z As Double, ByVal x1 As Double, ByVal y1 As Double, ByVal z1 As Double)
      Dim ac As Line = New Line(New Point3d(x, y, z), _
                                        New Point3d(x1, y1, z1))
      var2.AppendEntity(ac)
      var1.AddNewlyCreatedDBObject(ac, True)
  
  End Sub
  </code></pre>
  
  <p>My task is to create line without using transaction 
  can any one help me...</p>