como calcular a distância entre dois pontos

[osmarindy]

Boa tarde,

Alguém poderia me ajudar, estou tentando criar uma rotina vba para calcular no autocad a distância entre dois pontos:

distancia = ThisDrawing.Utility.GetDistance

e inserir um texto com o valor da distância no meio dos dois pontos selecionados.

Set Txt = ThisDrawing.ModelSpace.AddText(distancia, ponto, alturatxt)

porem não tenho a menor noção de como capturar as coordenadas para inserir o texto.

Alguém sabe como pegar a coordenada e calcular o ponto de inserção do texto?

grato.

Editado Fevereiro 5, 2015 por osmarindy