gilseorin
thanks for your reply.that's ok gilseorin.But i need to create a Point in modal Space.
below is my code.
Public Function CreateDrawingFile()
Try
Dim newBtrid, newBtrid1 As ObjectId
Dim btr1 As BlockTableRecord
Dim db1 As Database = HostApplicationServices.WorkingDatabase()
Dim newdoc As Document = Application.DocumentManager.MdiActiveDocument
Dim doclock As DocumentLock = newdoc.LockDocument()
Dim startpt As New Point3d(0, 0, 0)
Dim endpt As New Point3d(0, 0, 0)
Dim line As Line = New Line(startpt, endpt)
Dim newBtr As BlockTableRecord = New BlockTableRecord()
newBtr.Name = "EmployeeBlk"
Using trans1 As Transaction = db1.TransactionManager.StartTransaction()
Dim bt1 As BlockTable = trans1.GetObject(db1.BlockTableId, OpenMode.ForWrite)
newBtrid = bt1.Add(newBtr)
trans1.AddNewlyCreatedDBObject(newBtr, True)
newBtrid1 = newBtr.AppendEntity(line)
trans1.AddNewlyCreatedDBObject(line, True)
btr1 = trans1.GetObject(bt1(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
Dim br1 As New BlockReference(New Point3d(10, 10, 0), newBtrid)
btr1.AppendEntity(br1)
trans1.AddNewlyCreatedDBObject(br1, True)
ids.Add(newBtrid1)
Dim xRec As New Xrecord()
br1.CreateExtensionDictionary()
Dim brExtDict As DBDictionary = trans1.GetObject(br1.ExtensionDictionary(), OpenMode.ForWrite, False)
brExtDict.SetAt("Point", xRec)
trans1.AddNewlyCreatedDBObject(xRec, True)
trans1.Commit()
End Using
Return True
Catch
Return False
End Try
End Function
Public Sub CreatePoint()
Dim db1 As Database = HostApplicationServices.WorkingDatabase()
Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
Try
Using trans1 As Transaction = db1.TransactionManager.StartTransaction()
Dim bt1 As BlockTable = trans1.GetObject(db1.BlockTableId, OpenMode.ForWrite)
Dim btr1 As BlockTableRecord = trans1.GetObject(bt1(BlockTableRecord.ModelSpace), OpenMode.ForWrite)
Dim br1 As New BlockReference(New Point3d(10, 10, 0), CreateDrawingFile())
btr1.AppendEntity(br1)
trans1.AddNewlyCreatedDBObject(br1, True)
Dim xRec As New Xrecord()
br1.CreateExtensionDictionary()
Dim brExtDict As DBDictionary = trans1.GetObject(br1.ExtensionDictionary(), OpenMode.ForWrite, False)
brExtDict.SetAt("Point", xRec)
trans1.AddNewlyCreatedDBObject(xRec, True)
trans1.Commit()
End Using
Catch ex As System.Exception
ed.WriteMessage("Error Creating Point " + ex.Message)
End Try