Pesquisar na Comunidade
Mostrando resultados para as tags ''AcadEntity''.
Encontrado 1 registro
-
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
- 1 resposta