vb.net怎么获取多行文字包围盒

18277132841

用vb.net怎么获取多行文字包围盒，只是显示的文字部分，不包含编辑框范围的。

tiancao100

2.   ''' <summary>
   
3.         ''' Gets the WCS points of the mtext bounding box.
   
4.         ''' </summary>
   
5.         ''' <param name="mtext">Instance of MText the method applies to.</param>
   
6.         ''' <returns>The bounding box points in counterclockwise sense.</returns>
   
7.         Public Shared Function GetMTextBoxCorners(mtext As MText) As Point3d()
   
8.             Dim width As Double = mtext.ActualWidth
   
9.             Dim height As Double = mtext.ActualHeight
   
10.             Dim point1 As Point3d, point2 As Point3d
    
11.             Select Case mtext.Attachment
    
12.                 Case AttachmentPoint.TopLeft
    
13.                     point1 = New Point3d(0.0, -height, 0.0)
    
14.                     point2 = New Point3d(width, 0.0, 0.0)
    
15.                     Exit Select
    
16.                 Case AttachmentPoint.TopCenter
    
17.                     point1 = New Point3d(-width * 0.5, -height, 0.0)
    
18.                     point2 = New Point3d(width * 0.5, 0.0, 0.0)
    
19.                     Exit Select
    
20.                 Case AttachmentPoint.TopRight
    
21.                     point1 = New Point3d(-width, -height, 0.0)
    
22.                     point2 = New Point3d(0.0, 0.0, 0.0)
    
23.                     Exit Select
    
24.                 Case AttachmentPoint.MiddleLeft
    
25.                     point1 = New Point3d(0.0, -height * 0.5, 0.0)
    
26.                     point2 = New Point3d(width, height * 0.5, 0.0)
    
27.                     Exit Select
    
28.                 Case AttachmentPoint.MiddleCenter
    
29.                     point1 = New Point3d(-width * 0.5, -height * 0.5, 0.0)
    
30.                     point2 = New Point3d(width * 0.5, height * 0.5, 0.0)
    
31.                     Exit Select
    
32.                 Case AttachmentPoint.MiddleRight
    
33.                     point1 = New Point3d(-width, -height * 0.5, 0.0)
    
34.                     point2 = New Point3d(0.0, height * 0.5, 0.0)
    
35.                     Exit Select
    
36.                 Case AttachmentPoint.BottomLeft
    
37.                     point1 = New Point3d(0.0, 0.0, 0.0)
    
38.                     point2 = New Point3d(width, height, 0.0)
    
39.                     Exit Select
    
40.                 Case AttachmentPoint.BottomCenter
    
41.                     point1 = New Point3d(-width * 0.5, 0.0, 0.0)
    
42.                     point2 = New Point3d(width * 0.5, height, 0.0)
    
43.                     Exit Select
    
44.                 Case AttachmentPoint.BottomRight
    
45.                     point1 = New Point3d(-width, 0.0, 0.0)
    
46.                     point2 = New Point3d(0.0, height, 0.0)
    
47.                     Exit Select
    
48.             End Select
    
49.             Dim xform As Matrix3d = Matrix3d.Displacement(mtext.Location.GetAsVector()) * Matrix3d.Rotation(mtext.Rotation, mtext.Normal, Point3d.Origin) * Matrix3d.PlaneToWorld(New Plane(Point3d.Origin, mtext.Normal))
    
50.             Return New Point3d() {point1.TransformBy(xform), New Point3d(point2.X, point1.Y, 0.0).TransformBy(xform), point2.TransformBy(xform), New Point3d(point1.X, point2.Y, 0.0).TransformBy(xform)}
    
51.         End Function

  ''' <summary><br />         ''' Gets the WCS points of the mtext bounding box.<br />         ''' </summary><br />         ''' <param name="mtext">Instance of MText the method applies to.</param><br />         ''' <returns>The bounding box points in counterclockwise sense.</returns><br />         Public Shared Function GetMTextBoxCorners(mtext As MText) As Point3d()<br />             Dim width As Double = mtext.ActualWidth<br />             Dim height As Double = mtext.ActualHeight<br />             Dim point1 As Point3d, point2 As Point3d<br />             Select Case mtext.Attachment<br />                 Case AttachmentPoint.TopLeft<br />                     point1 = New Point3d(0.0, -height, 0.0)<br />                     point2 = New Point3d(width, 0.0, 0.0)<br />                     Exit Select<br />                 Case AttachmentPoint.TopCenter<br />                     point1 = New Point3d(-width * 0.5, -height, 0.0)<br />                     point2 = New Point3d(width * 0.5, 0.0, 0.0)<br />                     Exit Select<br />                 Case AttachmentPoint.TopRight<br />                     point1 = New Point3d(-width, -height, 0.0)<br />                     point2 = New Point3d(0.0, 0.0, 0.0)<br />                     Exit Select<br />                 Case AttachmentPoint.MiddleLeft<br />                     point1 = New Point3d(0.0, -height * 0.5, 0.0)<br />                     point2 = New Point3d(width, height * 0.5, 0.0)<br />                     Exit Select<br />                 Case AttachmentPoint.MiddleCenter<br />                     point1 = New Point3d(-width * 0.5, -height * 0.5, 0.0)<br />                     point2 = New Point3d(width * 0.5, height * 0.5, 0.0)<br />                     Exit Select<br />                 Case AttachmentPoint.MiddleRight<br />                     point1 = New Point3d(-width, -height * 0.5, 0.0)<br />                     point2 = New Point3d(0.0, height * 0.5, 0.0)<br />                     Exit Select<br />                 Case AttachmentPoint.BottomLeft<br />                     point1 = New Point3d(0.0, 0.0, 0.0)<br />                     point2 = New Point3d(width, height, 0.0)<br />                     Exit Select<br />                 Case AttachmentPoint.BottomCenter<br />                     point1 = New Point3d(-width * 0.5, 0.0, 0.0)<br />                     point2 = New Point3d(width * 0.5, height, 0.0)<br />                     Exit Select<br />                 Case AttachmentPoint.BottomRight<br />                     point1 = New Point3d(-width, 0.0, 0.0)<br />                     point2 = New Point3d(0.0, height, 0.0)<br />                     Exit Select<br />             End Select<br />             Dim xform As Matrix3d = Matrix3d.Displacement(mtext.Location.GetAsVector()) * Matrix3d.Rotation(mtext.Rotation, mtext.Normal, Point3d.Origin) * Matrix3d.PlaneToWorld(New Plane(Point3d.Origin, mtext.Normal))<br />             Return New Point3d() {point1.TransformBy(xform), New Point3d(point2.X, point1.Y, 0.0).TransformBy(xform), point2.TransformBy(xform), New Point3d(point1.X, point2.Y, 0.0).TransformBy(xform)}<br />         End Function

18277132841

tiancao100 发表于 2024-5-7 17:11

感谢感谢