vẽ elip đi qua 4 Điểm (biết tọa độ rồi)bằng VBA

[maytauthuy_vimaru 0]

ai  biết cách chỉ giúp em với

[NguyenNgocSon 43]

Tham khảo

Nếu qua 4 điểm thì tính chiều dài cạnh Elip nhé.

Sub EL()
Dim A(2) As Double
Dim B(2) As Double
A(0) = 0: A(1) = 0: A(2) = 0
B(0) = 5: B(1) = 5: B(2) = 0
Dim DS As AcadEllipse
Set DS = ThisDrawing.ModelSpace.AddEllipse(A, B, 0.75)
End Sub

 

[Doan Van Ha 3.185]

Qua 4 điểm có thể tồn tại nhiều hơn 1 Ellipse, chứ chưa chắc đã là 1 Ellipse duy nhất!