Message 1 of 3
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Protected Overrides Function WorldDraw(ByVal draw As Autodesk.AutoCAD.GraphicsInterface.WorldDraw) As Boolean
Dim acText As New DBText()
acText.SetDatabaseDefaults()
acText.Position = BasePt
acText.Height = 350
acText.TextString = "001"
' I want to set the alignment point in the mid, but it doesn't work.
' In JIG, it's still displayed in the left bottom corner, anyone can solve this problem?
acText.HorizontalMode = TextHorizontalMode.TextMid
acText.VerticalMode = TextVerticalMode.TextVerticalMid
acText.AlignmentPoint = BasePt
draw.Geometry.Draw(acText)
Return True
End Function
Solved! Go to Solution.