请教一个算法？求点坐标的
已知一个图形，如上，在其内部有一个点，知道点的坐标，有没有什么办法，可以知道那个图形的五个定点的坐标，这个图形在中是二维的。大家有没有什么好的算法或办法或源代码？谢谢了
Private Type MyType
X As Double
Y As Double
Z As Double
End Type
Sub main()
Dim SelP(2) As Double '相当于内部的点
Dim GetP() As MyType'返回的边界定点数组
ReDim GetP(0)
SelP(0) = 250: SelP(1) = 150: SelP(2) = 0
ThisDrawing.SendCommand "-boundary" & vbCr & SelP(0) & "," & SelP(1) & vbCr & vbCr
Dim Obj As Object
Set Obj = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)
Dim i As Integer
Dim Data As Variant
Data = Obj.Coordinates
For i = 0 To (UBound(Data) + 1) / 2 - 1
If i0 Then ReDim Preserve GetP(UBound(GetP) + 1)
GetP(UBound(GetP)).X = Data(2 * i)
GetP(UBound(GetP)).Y = Data(2 * i + 1)
GetP(UBound(GetP)).Z = 0
Next
End Sub
页:
[1]