topic Re: Trouble with AttachmentPoint.TopCenter in .NET Forum

Trouble with AttachmentPoint.TopCenter

GTVic — Fri, 27 Mar 2009 21:06:00 GMT

When I create DBText with a TopCenter alignment, the text comes out "Aligned" with a Height of 0 and Angle of 0. Any other value for the attachment point seems to work fine.

tsTable = CType(Trans.GetObject(AcadDoc.Database.TextStyleTableId, OpenMode.ForWrite), TextStyleTable)
Align = AttachmentPoint.TopCenter
TextEnt = New DBText
TextEnt.SetDatabaseDefaults()
TextEnt.TextString = TextString
TextEnt.Position = New Point3d(InsPoint)
TextEnt.Justify = Align
If Align <> AttachmentPoint.BaseLeft Then TextEnt.AlignmentPoint = New Point3d(InsPoint)
TextEnt.Height = Height
TextEnt.ColorIndex = Color
TextEnt.Rotation = Angle
TextEnt.TextStyle = tsTable(Style)
TextEnt.Layer = Layer
btr = Trans.GetObject(AcadDoc.Database.CurrentSpaceId, OpenMode.ForWrite)
btr.AppendEntity(TextEnt)
Trans.AddNewlyCreatedDBObject(TextEnt, True)
Trans.Commit()

Re: Trouble with AttachmentPoint.TopCenter

Anonymous — Fri, 27 Mar 2009 23:22:14 GMT

I've seen that, too. You can set the attribute's VerticalMode and HorizontalMode separately to achieve a TopCenter justification.

-drg

Re: Trouble with AttachmentPoint.TopCenter

GTVic — Sat, 28 Mar 2009 09:56:17 GMT

Thanks, I'll give that a try.

Re: Trouble with AttachmentPoint.TopCenter

GTVic — Mon, 30 Mar 2009 18:36:09 GMT

That worked, here is the code I used:
{code}
If Align = AttachmentPoint.BaseLeft Then
TextEnt.Justify = Align
ElseIf Align = AttachmentPoint.TopCenter Then
TextEnt.VerticalMode = TextVerticalMode.TextTop
TextEnt.HorizontalMode = TextHorizontalMode.TextCenter
TextEnt.AlignmentPoint = New Point3d(InsPoint)
Else
TextEnt.Justify = Align
TextEnt.AlignmentPoint = New Point3d(InsPoint)
End If
{code}