Code VBA tính chiều dài các cạnh của LWPolyline

[ptlong04x1 8]

Nhờ mọi người gợi ý giúp mình đoạn code VBA sao cho :

Khi click chọn vào 1 đường LWPolyline bất kỳ thì sẽ hiện lên các msgbox thông báo chiều dài của tất cả các cạnh tạo nên đường LWPolyline đó. Cảm ơn mọi người!

[garupro 7]

Bạn chỉ cần lấy tất cả các điểm rồi tính chiều dài = điểm trước - điểm sau

 

Sub get_D()
Dim Entry As AcadObject
Dim point As Variant
Dim pline As AcadLWPolyline
Dim cor As Variant
Dim x1 As Double, y1 As Double, x2 As Double, y2 As Double
ThisDrawing.Utility.GetEntity Entry, point, "Chon mot Pline "
If Entry.ObjectName = "AcDbPolyline" Then
  Set pline = Entry
  cor = pline.Coordinates
  For I = 0 To UBound(cor) - 2 Step 2
 	x1 = cor(I)
 	y1 = cor(I + 1)
 	x2 = cor(I + 2)
 	y2 = cor(I + 3)
 	MsgBox tinhchieudai(x1, y1, x2, y2)
  Next
End If
End Sub
Function tinhchieudai(x1 As Double, y1 As Double, x2 As Double, y2 As Double) As Double
tinhchieudai = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
End Function