AutoCAD VBA 获取单个转角标注的相关数据。

AutoCAD VBA 获取单个转角标注的相关数据。@TOC

菜鸟献丑了，请多指教！
这是一个在AutoCAD VBA中获取转角标注关键点数据的方法。
DXF不会弄，只能用这个土方法。不是很标准规范，但可以应应急！

Option Explicit
Type DimData
topLeftPt(0 To 2) As Double '转角尺寸标注的矩形框左上角坐标。
topRightPt(0 To 2) As Double '转角尺寸标注的矩形框右上角坐标。
BtmLeftPt(0 To 2) As Double '转角尺寸标注的矩形框左下角坐标。
BtmRightPt(0 To 2) As Double '转角尺寸标注的矩形框右下角坐标。
Center(0 To 2) As Double '转角尺寸标注的矩形框中心坐标。
WIDTH As Double '转角尺寸标注的矩形框宽度。
TextPt(0 To 2) As Double '转角尺寸标注的文字原点坐标。
stText As String '转角尺寸标注的文本替代内容。
vDim As Double '转角尺寸标注的测量值。
End Type

'测试获取单个转角标注的相关数据。
Public Sub TestGetOneDimData()
Dim en As AcadEntity
Dim dd As DimData
Dim vp As Variant

ThisDrawing.Utility.GetEntity en, vp, "