Here is VB.NET code,see my poor comments inline
<CommandMethod("OrderBlock", CommandFlags.Modal Or CommandFlags.Redraw)> _
Public Shared Sub CreateOrderLabel()
' Get the current document and database
Dim doc As Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
Dim db As Database = doc.Database
Dim ed As Editor = doc.Editor
Using tr As Transaction = db.TransactionManager.StartTransaction()
Try
Dim bt As BlockTable = DirectCast(tr.GetObject(db.BlockTableId, OpenMode.ForWrite), BlockTable)
' get current text size for attribute or use hard coded one instead
Dim txtheight As Double = db.Textsize
' block name
Dim blkName As String = "ORDER"
' check if exists
If bt.Has(blkName) Then
ed.WriteMessage(vbLf & "Block ""ORDER"" already exist.")
' if exists then exit
Return
End If
Dim btr As BlockTableRecord = DirectCast(tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite), BlockTableRecord)
Dim inspt As New Point3d(0, 0, 0)
Dim newBtr As New BlockTableRecord()
bt.Add(newBtr)
' change settings for you block to your suit:
newBtr.Name = blkName
newBtr.Origin = inspt
newBtr.BlockScaling = BlockScaling.Uniform
newBtr.Units = UnitsValue.Inches
newBtr.Explodable = False
tr.AddNewlyCreatedDBObject(newBtr, True)
Dim normal As Vector3d = Vector3d.ZAxis
Dim majorAxis As Vector3d = 6 * txtheight * Vector3d.XAxis
' change major axis to your suit
Dim radiusRatio As Double = 0.4
' change ratio to your suit
Dim startAng As Double = 0.0
Dim endAng As Double = Math.PI * 2
Dim ellipse As New Ellipse(inspt, normal, majorAxis, radiusRatio, startAng, endAng)
ellipse.Layer = "0"
ellipse.LinetypeId = db.ContinuousLinetype
ellipse.Color = Autodesk.AutoCAD.Colors.Color.FromColorIndex(ColorMethod.ByAci, 0)
' color by block
ellipse.LineWeight = LineWeight.LineWeight040
' wide lineweight 0.40, change on LineWeight.ByLineWeightDefault to discard it
newBtr.AppendEntity(ellipse)
tr.AddNewlyCreatedDBObject(ellipse, True)
Dim attr As New AttributeDefinition()
attr.Layer = "0"
attr.LinetypeId = db.ContinuousLinetype
attr.Color = Autodesk.AutoCAD.Colors.Color.FromColorIndex(ColorMethod.ByAci, 0)
' color by block
attr.LineWeight = LineWeight.ByLineWeightDefault
attr.Tag = "DESCRIPTION"
attr.Prompt = "Order description:"
attr.TextString = "blah"
attr.Preset = True
' using current textstyle
'attr.TextStyle = db.Textstyle ''<-- A2009
attr.TextStyleId = db.Textstyle ''<-- A2010
attr.Height = txtheight
attr.Position = inspt
attr.Justify = AttachmentPoint.MiddleCenter
attr.AlignmentPoint = inspt
attr.LockPositionInBlock = True
attr.AdjustAlignment(db)
newBtr.AppendEntity(attr)
tr.AddNewlyCreatedDBObject(attr, True)
tr.Commit()
ed.Regen()
Catch ex As Autodesk.AutoCAD.Runtime.Exception
ed.WriteMessage(ex.Message + vbLf + ex.StackTrace)
End Try
End Using
End Sub
_____________________________________
C6309D9E0751D165D0934D0621DFF27919
