[求助]：如何在VBA里取得一个矩形的各个顶点？

lh4ever

我在VBA里已经取得一个矩形（多段线）lwpolyline对象，现在怎么获得这个矩形的各个顶点呢？我在这个对象的属性里找不到相关的数据，请各位高手帮帮忙：）谢谢

ljpnb

我对VBA不太熟悉，试着写了一个，不过对精度如何控制，因为坐标点都是double型的，看起来太恐怖了。
[php]
Sub test()
Dim recobj As AcadEntity
Dim data As Variant
Dim point1 As String
Dim point2 As String
Dim point3 As String
Dim point4 As String

ThisDrawing.Utility.GetEntity recobj, point, "选择一个矩形:"
data = recobj.Coordinates
point1 = CStr(data(0)) + " , " + CStr(data(1))
point2 = CStr(data(2)) + " , " + CStr(data(3))
point3 = CStr(data(4)) + " , " + CStr(data(5))
point4 = CStr(data(6)) + " , " + CStr(data(7))
MsgBox "所选择的矩形四个点的坐标为:" & vbCrLf & point1 & vbCrLf & point2 & vbCrLf & point3 & vbCrLf & point4

End Sub

[/php]