Você está aqui: AutoCAD VBA ::: Dicas & Truques ::: AcadSelectionSet - Seleção de Objetos |
Como percorrer os objetos selecionados na área de desenho do AutoCAD usando AutoCAD VBA e o objeto AcadSelectionSetQuantidade de visualizações: 51 vezes |
Em algumas situações nós queremos percorrer os objetos retornados no objeto AcadSelectionSet de forma individual, ou seja, um de cada vez. Para isso podemos usar um laço For Each...In e acessar o objeto da iteração atual. Nesta dica eu mostro como pedir para o usuário selecionar um ou mais objetos na área de desenho do AutoCAD e pressionar Enter. Quando isso acontecer, nós vamos receber os objetos selecionados como um objeto AcadSelectionSet. Para finalizar nós vamos percorrer os itens presentes neste objeto e aplicar a cor azul a eles, por meio da propriedade color. Veja o código AutoCAD VBA completo para o exemplo: ---------------------------------------------------------------------- Se precisar de ajuda com o código abaixo, pode me chamar no WhatsApp +55 (62) 98553-6711 (Osmar) ---------------------------------------------------------------------- ' Macro que permite ao usuário selecionar um ou mais ' objetos na área de desenho do AutoCAD e aplicar a cor ' azul a todos eles Sub ColorirObjetosSelecionados() ' para guardar a seleção de objetos Dim objetosSelecionados As AcadSelectionSet ' para guardar o objeto atual Dim objetoAtual As AcadEntity ' estamos trabalhando com o desenho atual With ThisDrawing On Error Resume Next ' primeiro limpamos a seleção atual .SelectionSets("CurrentSelection").Delete ' agora pedimos para o usuário selecionar os objetos MsgBox "Selecione os objetos desejados e pressione Enter" ' obtemos a seleção Set objetosSelecionados = .SelectionSets.Add("CurrentSelection") ' selecionamos os objetos na tela de desenho objetosSelecionados.SelectOnScreen ' agora percorremos todos os objetos selecionados For Each objetoAtual In objetosSelecionados ' definimos a cor azul para o objeto atual objetoAtual.color = acBlue Next End With End Sub Ao executar este código AutoCAD nós teremos o seguinte resultado: Selecione os objetos desejados e pressione Enter [Seleciona alguns objetos e pressiona Enter] [Todos os objetos são coloridos de azul] |
![]() |
Veja mais Dicas e truques de AutoCAD VBA |
Dicas e truques de outras linguagens |
Quem Somos |
![]() Entre em contato comigo para, juntos, vermos em que posso contribuir para resolver ou agilizar o desenvolvimento de seus códigos.
|
![]() Não basta ter um site. É necessário ter um site que é localizado e converte usuários em clientes. Se sua página não faz isso, Fale comigo e vamos fazer uma analise e conseguir resultados mais satisfatórios..
|
Linguagens Mais Populares |
1º lugar: Java |