Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
2 replies to this topic

#1 maytauthuy_vimaru

maytauthuy_vimaru

    Chưa sử dụng CAD

  • Members
  • Pip
  • 2 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 14 April 2013 - 12:20 PM

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


  • 0

#2 NguyenNgocSon

NguyenNgocSon

    biết dimbaseline

  • Members
  • PipPipPipPipPip
  • 368 Bài viết
Điểm đánh giá: 39 (tàm tạm)

Đã gửi 16 April 2013 - 11:30 AM

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

 


  • 0

#3 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5451 Bài viết
Điểm đánh giá: 2625 (tuyệt vời)

Đã gửi 16 April 2013 - 11:45 AM

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!


  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.