Pesquisar na Comunidade

Boa tarde pessoal, Estou desenvolvendo uma rotina vba para autocad, onde faz uma busca no desenho capturando todos os itens. Depois para os textos com determinados layers são calculados e exportados para uma planilha excel, mas, não estou conseguindo capturar os dados mantendo as casas decimais. Alguém sabe como consigo fazer isso. Segue trecho do código: For Each elem In ThisDrawing.ModelSpace With elem 'captura do layer do texto Array1 = .Layer 'acrescenta o valor para cada variavel de acordo com o layer Select Case Array1 Case "texto-cc-poste" textoCcPoste = textoCcPoste + Val(elem.TextString) Case "espinado" espinado = espinado + Val(elem.TextString) Case "espinadoJunto" espinadoJunto = espinadoJunto + Val(elem.TextString) Case "espinadoSemCordo" espinadoSemCordo = espinadoSemCordo + Val(elem.TextString) Case "cordoalha" cordoalha = cordoalha + Val(elem.TextString) Case "auto" auto = auto + Val(elem.TextString) End Select 'incrementa o numero de objetos verificados count = count + 1 End With Next elem

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.