Lấy một điểm trên màn hình vẽ

Trong nhiều trường hợp bạn cần phải lấy 1 điểm trên màn hình vẽ hay lấy nhiều điểm trên màn hình vẽ để thực hiện vẽ cao độ hay đo đạc,... Ví dụ sau đây sẽ hướng dẫn bạn cách lấy một điểm và hướng dẫn bạn làm quen với công cụ Help của VBA.

Muốn lấy một toạ độ một điển trên màn hình không gian giấy vẽ, ta sẽ tìm kiếm lệnh getPoint bằng Object Browser sau đó ta sẽ thu được: AcadUtility.getPoint phải chuột vào đó chọn Help ta sẽ có một ví dụ đơn giản về getPoint tính chất của nó:

Chữ  Example ở góc trên bên phải sẽ nói cho ta biết được lệnh sử dụng như thế nào. Giờ ta chở lại Form, Sử dụng Form VD 1, gắn một nút lệnh:

Caption: Get Point

Name: btnGetPoint

Private Sub btnGetPoint_Click()

‘ Dùng biến Variant bao gồm 2 trục, bạn cũng có thể dùng double (0 to 2)

Dim returnPnt As Variant

‘ Trả về toạ độ điểm khi được chọn trên màn hình.

returnPnt = ThisDrawing.Utility.GetPoint

MsgBox "The WCS of the point is: " & returnPnt(0) & ", " & returnPnt(1) & ", " & returnPnt(2)

‘ returnPnt(0) là trục x ‘ returnPnt(1) là trục y ‘ returnPnt(2) là trục z

End Sub

Vậy là xong, giờ bạn có thể chọn điểm bất kỳ trên màn hình và kết hợp với lệnh vẽ đường thẳng hay đường tròn có thể tạo ra một bài toán đơn giản cho mình.

Bài sau tôi sẽ hướng dẫn làm cách nào để liên kết VBA với Access.