Lấy tọa độ của điểm bấm thứ 2 bằng VBA

[hongtvtk 2]

   Dim KhoangCach As Double
    Dim P As Variant
 P = ThisDrawing.Utility.GetPoint(, "Diem thu 1: ")
 KhoangCach = ThisDrawing.Utility.GetDistance(P, "Diem thu 2: ")

 

Các bác cho hỏi muốn lấy khoảng cách đồng thời lấy tọa độ của điểm thứ 2 thì phải làm thế nào?

thank you!

[CadExTools 100]

Pick thêm điểm p2 = thisdrawing.Utility.getpoint(p1,"Diem thu 2)

Sau đó viết thêm 1 hàm dùng để tính khoảng cách giữa 2 điểm p1 và p2 nữa

[hongtvtk 2]

Thank's CadExTools! pick 2 điểm để tính khoảng cách thì mình cũng làm rồi, tuy nhiên ý mình là lấy được tọa độ điểm bấm từ dòng này KhoangCach = ThisDrawing.Utility.GetDistance(P, "Diem thu 2: ")

[NguyenNgocSon 43]

Vào lúc 24/11/2018 tại 22:13, hongtvtk đã nói:

Thank's CadExTools! pick 2 điểm để tính khoảng cách thì mình cũng làm rồi, tuy nhiên ý mình là lấy được tọa độ điểm bấm từ dòng này KhoangCach = ThisDrawing.Utility.GetDistance(P, "Diem thu 2: ")

Lấy tọa độ đơn giản như sau

p2 = thisdrawing.Utility.getpoint(p1,"Diem thu 2)

Dim A(2) as Double

A(0)=p2(0):A(1)=p2(1):A(2)=p2(2):

[thuy19 0]

e vẫn chưa vẽ được, học kém cũng là một cái buồn :(