创建对象

Posted 2021-03-08 rf8862

1、创建单行文字

  Dim dt As New DatabaseServices.DBText()
  With dt
     .TextString = psr.StringResult
     .Justify = AttachmentPoint.MiddleCenter
     .AlignmentPoint = ppr.Value
     .Position = ppr.Value
     .LineWeight = LineWeight.LineWeight020
  End With
  Using bt As DatabaseServices.BlockTable = CType(tr.GetObject(db.BlockTableId, DatabaseServices.OpenMode.ForWrite), DatabaseServices.BlockTable)
     Using btr As DatabaseServices.BlockTableRecord = CType(tr.GetObject(bt(DatabaseServices.BlockTableRecord.ModelSpace), DatabaseServices.OpenMode.ForWrite), DatabaseServices.BlockTableRecord)
         btr.AppendEntity(dt)
         tr.AddNewlyCreatedDBObject(dt, True)
     End Using
  End Using